Okay here's a demonstration:
The test script is:
#!/usr/local/bin/perl
use strict; use vars qw ($mydata);
$mydata = 'woodooeer'; my $data = 'woodoo'; my $data2 = 'dingdong';
print "Content-type: text/plain\n\n";
print scalar localtime () , "\n\n"; print `cat /tmp/modperltest.txt`;
END { open FILE , '>/tmp/modperltest.txt'; print FILE "DATA: " , scalar localtime , "\n"; print FILE "$data\n"; print FILE "$mydata\n"; print FILE "$data2\n"; close FILE; }
You can see the different behaviors at: no modperl: http://www.nasim.org/test/short.cgi modperl: http://www.nasim.org/test/short.pl
Note that the file is printed first and then updated. Hit refresh to see that modperl misses $mydata.
Actually it's very inconsistent. If I hit reload I get the value of $mydata appearing and disappearing in both scripts.
Any chance you could rewrite your code not to use the END block for the desired functionality? At least until we get some freed resources to work on modperl1 issues again?
-- __________________________________________________________________ Stas Bekman JAm_pH ------> Just Another mod_perl Hacker http://stason.org/ mod_perl Guide ---> http://perl.apache.org mailto:[EMAIL PROTECTED] http://use.perl.org http://apacheweek.com http://modperlbook.org http://apache.org http://ticketmaster.com
-- Report problems: http://perl.apache.org/bugs/ Mail list info: http://perl.apache.org/maillist/modperl.html List etiquette: http://perl.apache.org/maillist/email-etiquette.html