Re: [Speedycgi-users] CGI::LogCarp fixed, use FindBin problem

[Sam H. <sa...@da...>]

Looks like $^X is not defiuned - I'll look into it.  In the meantime
here's a workaround:

BEGIN {
$^X = 'perl' if ($CGI::SpeedyCGI::i_am_speedy);
$0 = $^X unless ($^X =~ m%(^|[/\\])(perl)|(perl.exe)$%i );
}
use FindBin;


 > Hi Sam,
 > 
 > The good news is the problems I reported some time back with 
 > 
 > use CGI::LogCarp qw(:STDLOG :STDBUG :STDERR);
 > 
 > have been fixed with 2.20.  Thanks.
 > 
 > There is still an outstanding issue, the following code :
 > 
 > #!/usr/local/bin/speedy
 > BEGIN {
 > $0 = $^X unless ($^X =~ m%(^|[/\\])(perl)|(perl.exe)$%i );
 > }
 > # Problem for speedy CGI
 > use FindBin;
 > 
 > Give the following error :
 > 
 > Cannot find current script '' at /usr/local/lib/perl5/5.6.1/FindBin.pm line 
 > 166
 > BEGIN failed--compilation aborted at /usr/local/lib/perl5/5.6.1/FindBin.pm 
 > line 166.
 > Compilation failed in require at ./test_speedy.cgi line 7.
 > BEGIN failed--compilation aborted at ./test_speedy.cgi line 7.
 > speedy_backend[1363]: perl_parse error
 > speedy[1361]: Cannot spawn backend process
 > 
 > The BEGIN block is a recommended fix to allow the use of FindBin with 
 > perl2exe.  Perhaps you can see why this causes problems under speedyCGI ?
 > 
 > Thanks for your help,
 > 	Mark
 > 
 > 
 > 
 > -------------------------------------------------------
 > This sf.net email is sponsored by: DEDICATED SERVERS only $89!
 > Linux or FreeBSD, FREE setup, FAST network. Get your own server 
 > today at http://www.ServePath.com/indexfm.htm
 > _______________________________________________
 > Speedycgi-users mailing list
 > Spe...@li...
 > https://lists.sourceforge.net/lists/listinfo/speedycgi-users