Skip site navigation (1)Skip section navigation (2)
Date:      Wed, 1 Mar 2006 15:24:03 +0100 (CET)
From:      Matthias Meyser <Meyser@xenet.de>
To:        FreeBSD-gnats-submit@FreeBSD.org
Subject:   ports/93981: ePerl coredumps as CGI Handler when used with Perl 5.8
Message-ID:  <200603011424.k21EO3kB004185@intserv0.intern>
Resent-Message-ID: <200603011430.k21EU6wb059417@freefall.freebsd.org>

next in thread | raw e-mail | index | archive | help

>Number:         93981
>Category:       ports
>Synopsis:       ePerl coredumps as CGI Handler when used with Perl 5.8
>Confidential:   no
>Severity:       serious
>Priority:       medium
>Responsible:    freebsd-ports-bugs
>State:          open
>Quarter:        
>Keywords:       
>Date-Required:
>Class:          sw-bug
>Submitter-Id:   current-users
>Arrival-Date:   Wed Mar 01 14:30:05 GMT 2006
>Closed-Date:
>Last-Modified:
>Originator:     Matthias Meyser
>Release:        FreeBSD 6.1-BETA1 i386
>Organization:
XeNET GmbH, Clausthal
>Environment:
System: FreeBSD intserv0.intern 6.1-BETA1 FreeBSD 6.1-BETA1 #2: Wed Mar 01 14:48:49 UTC 2006 root@intserv0.intern:/usr/obj/usr/src/sys/INTSERV0 i386


>Description:
	When compiled with Perl Version 5.8.8 eperl coredumps when used as a CGI handler.

>How-To-Repeat:

	Build and Install Perl Version 5.8.8 from ports
	Build and install ePerl from ports
	
	do the following

	echo '<? print "hello"; !>' >test.epl 
	eperl -mc test.epl

>Fix:
	In "eperl_perl5.h" the function "fwrite" is redefined iby a macro to use "PerlIO_write".
	"FILE *" parameter (fwrite) ist used as "PerlIO *" parameter (PerlIO_write).
	This does not work. It may have worked with older Perl versions.

	Using the original fwrite works with Perl 5.8.8 (tested) and schould work with older
        Versions of Perl (not tested).

	patch follows
	
--- patch-ad begins here ---
--- eperl_perl5.h.orig  Fri Jul 10 07:52:13 1998
+++ eperl_perl5.h       Wed Mar  1 12:12:32 2006
@@ -43,10 +43,10 @@


 /*  try to adjust for PerlIO handling  */
-#ifdef USE_PERLIO
-#undef  fwrite
-#define fwrite(buf,size,count,f) PerlIO_write(f,buf,size*count)
-#endif
+/* #ifdef USE_PERLIO */
+/* #undef  fwrite */
+/* #define fwrite(buf,size,count,f) PerlIO_write(f,buf,size*count) */
+/* #endif */


 /*  define the I/O type string for verbosity */
--- patch-ad ends here ---


>Release-Note:
>Audit-Trail:
>Unformatted:



Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?200603011424.k21EO3kB004185>