Hey bart, hey aquarium
Thanks for the replies!
I've just found the cure.
Before that part of the code, I had a sub that initiated the CGI object within itself. For example:
#!/usr/bin/perl -wT
use CGI; my $q = new CGI;
#...
my ( $user_id, $name ) = identify ( $auth_token );
# ...
my $fh = $q->upload( "file" );
my $filesize = -s $fh;
die $filesize; # undef at debugging!
# ... file read routines, that resulted blank after the upgrade
Then, on my personal lib, mylib1.pm, I had this subroutine:
sub identify {
my $token = shift;
# my $q = new CGI; # it started working when I removed this line!
# identification routines
# some calls to CGI.pm methods, where I used $q
}
After hours of mystery, I decided to remove this inner initialization. And it worked!
I'm now passing $q as a parameter to the sub.
sub identify {
my $token = shift;
my $q = shift; # and including this element on the sub call, of cou
+rse
my $q = new CGI; # it started working when I removed this line!
# identification routines
# some calls to CGI.pm methods, where I used $q
}
Tell me, guys, what's the explanation? Is this a bug on CGI.pm garbage collection or is it the case that I was doing ugly things.
Funny is that it worked with 5.8.7.
Thanks
Andre |