Wassercrats
02-08-2006, 12:11 AM
http://www.aota.net/forums/showthread.php?postid=145163#post145163I have updated Perl's CGI module from 3.05 to 3.15... See if that helpsNope, I still get the out of memory error when using the code I used, but not in the server logs. It's not stopping be from doing what I want at the moment, but if you want to track down the problem, the following code demonstrates it:
########################################################
print "Cache-Control: no-cache, must-revalidate\n";
print "Pragma: no-cache\n";
print "Content-type: text/html\n\n";
BEGIN
{
use CGI::Carp qw( fatalsToBrowser );
CGI::Carp::carpout(\*LOGGY) if open
(LOGGY, '>>'.__FILE__.'.err.log');
}
$var = 'a'x100000000;An out of memory error will appear in a file named name_of_above_file.err.log, but it won't appear in /big/dom/xexample/logs_web/error or /big/dom/xexample/logs_cgi/script.
I had this same problem (http://www.aota.net/forums/showthread.php?t=13554) almost three years ago. The code that I posted later in that thread that caused the out of memory error doesn't cause the error now. Maybe there was something else about the script, or maybe it's the new version of Perl. The code that caused it for me yesterday has to be combined with some other code from the script, so I just created the demo above using $var = 'a'x100000000;.
########################################################
print "Cache-Control: no-cache, must-revalidate\n";
print "Pragma: no-cache\n";
print "Content-type: text/html\n\n";
BEGIN
{
use CGI::Carp qw( fatalsToBrowser );
CGI::Carp::carpout(\*LOGGY) if open
(LOGGY, '>>'.__FILE__.'.err.log');
}
$var = 'a'x100000000;An out of memory error will appear in a file named name_of_above_file.err.log, but it won't appear in /big/dom/xexample/logs_web/error or /big/dom/xexample/logs_cgi/script.
I had this same problem (http://www.aota.net/forums/showthread.php?t=13554) almost three years ago. The code that I posted later in that thread that caused the out of memory error doesn't cause the error now. Maybe there was something else about the script, or maybe it's the new version of Perl. The code that caused it for me yesterday has to be combined with some other code from the script, so I just created the demo above using $var = 'a'x100000000;.