CGI.pm + blead perl warn on http upload

Hi Lincoln,

When uploading a file via LWP, and just doing a simple CGI->new() with blead 
perl I started to get warnings:

  Variable "@SAVED_SYMBOLS" is not available at (eval 159) line 3.

(e.g. when running the mp2 test: t/TEST -v modules/cgi)

I added

$SIG{__WARN__} = \&Carp::confess;

to CGI.pm (3.01) and I've got the long trace below. I hope you know what does 
it mean and why blead perl (@21917) complains about it. I don't get this issue 
with 5.8.3-tobe (@21920). Could it be something related to AUTOLOAD?

[Fri Dec 19 00:20:54 2003] [error] [client 127.0.0.1] Fh::new: Variable 
"@SAVED_SYMBOLS" is not available       eval 'package Fh; sub new {
    my($pack,$name,$file,$delete) = @_;
    _setup_symbols(@SAVED_SYMBOLS) if @SAVED_SYMBOLS;
    require Fcntl unless defined &Fcntl::O_RDWR;
    (my $safename = $name) =~ s/([\':%])/ sprintf \'%%%02X\', ord $1 /eg;
    my $fv = ++$FH . $safename;
    my $ref = \\*{"Fh::$fv"};
    $file =~ m!^([a-zA-Z0-9_ \\\'\\":/.\\$\\\\-]+)$! || return;
    my $safe = $1;
    sysopen($ref,$safe,Fcntl::O_RDWR()|Fcntl::O_CREAT()|Fcntl::O_EXCL(),0600) 
|| return;
    unlink($safe) if $delete;
    CORE::delete $Fh::{$fv};
    return bless $ref,$pack;
}

;' called at /home/stas/perl/blead-ithread/lib/5.9.0/CGI.pm line 775
        CGI::_compile called at 
/home/stas/perl/blead-ithread/lib/5.9.0/CGI.pm line 739

CGI::AUTOLOAD('Fh','b','/home/stas/apache.org/mp2-cvs2/t/logs/CGItemp3959',0) 
called at (eval 80) line 59
        CGI::read_multipart('CGI=HASH(0x8d421f0)',742617000027,130) called at 
/home/stas/perl/blead-ithread/lib/5.9.0/CGI.pm line 488
        CGI::init('CGI=HASH(0x8d421f0)') called at 
/home/stas/perl/blead-ithread/lib/5.9.0/CGI.pm line 324
        CGI::new('CGI') called at 
/home/stas/apache.org/mp2-cvs2/t/response/TestModules/cgi.pm line 31
        TestModules::cgi::handler('Apache::RequestRec=SCALAR(0x8d42148)') 
called at (eval 95) line 3
        eval {...} called at (eval 95) line 3
 at /home/stas/apache.org/mp2-cvs2/t/response/TestModules/cgi.pm line 31


perl-blead-ithread -V
Summary of my perl5 (revision 5.0 version 9 subversion 0 patch 21917) 
configuration:
  Platform:
    osname=linux, osvers=2.4.22-10mdk, archname=i686-linux-thread-multi
    uname='linux rabbit.stason.org 2.4.22-10mdk #1 thu sep 18 12:30:58 cest 
2003 i686 unknown unknown gnulinux '
    config_args='-des -Dprefix=/home/stas/perl/blead-ithread -Dusethreads 
-Doptimize=-g -Duseshrplib -Dusedevel'
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=define useithreads=define usemultiplicity=define
    useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
    use64bitint=undef use64bitall=undef uselongdouble=undef
    usemymalloc=n, bincompat5005=undef
  Compiler:
    cc='cc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS 
-DDEBUGGING -fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE 
-D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm',
    optimize='-g',
    cppflags='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBUGGING 
-fno-strict-aliasing -I/usr/local/include -I/usr/include/gdbm'
    ccversion='', gccversion='3.3.1 (Mandrake Linux 9.2 3.3.1-4mdk)', 
gccosandvers=''
    intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', 
lseeksize=8
    alignbytes=4, prototype=define
  Linker and Libraries:
    ld='cc', ldflags =' -L/usr/local/lib'
    libpth=/usr/local/lib /lib /usr/lib
    libs=-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lpthread -lc
    perllibs=-lnsl -ldl -lm -lcrypt -lutil -lpthread -lc
    libc=/lib/libc-2.3.2.so, so=so, useshrplib=true, libperl=libperl.so
    gnulibc_version='2.3.2'
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic 
-Wl,-rpath,/home/stas/perl/blead-ithread/lib/5.9.0/i686-linux-thread-multi/CORE'
    cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'


Characteristics of this binary (from libperl):
  Compile-time options: DEBUGGING MULTIPLICITY USE_ITHREADS USE_LARGE_FILES 
PERL_IMPLICIT_CONTEXT
  Locally applied patches:
        DEVEL21538
  Built under linux
  Compiled at Dec 16 2003 11:20:18
  %ENV:
    PERLDOC_PAGER="less -R"
  @INC:
    /home/stas/perl/blead-ithread/lib/5.9.0/i686-linux-thread-multi
    /home/stas/perl/blead-ithread/lib/5.9.0
    /home/stas/perl/blead-ithread/lib/site_perl/5.9.0/i686-linux-thread-multi
    /home/stas/perl/blead-ithread/lib/site_perl/5.9.0
    /home/stas/perl/blead-ithread/lib/site_perl
    .

__________________________________________________________________
Stas Bekman            JAm_pH ------> Just Another mod_perl Hacker
http://stason.org/     mod_perl Guide ---> http://perl.apache.org
mailto:stas@xxxxxxxxxx http://use.perl.org http://apacheweek.com
http://modperlbook.org http://apache.org   http://ticketmaster.com