I don't know if this is a perl 5.8.7ism or not, but this script prints "undef got defined":
#!perl
$foo = undef;
$bar = lc $foo;
if (defined($bar)) {
print "undef got defined\n";
}
This causes a problem in grapher.cgi, which has been spitting out this error message in my apache logs:
[Sun Mar 11 04:18:35 2007] [error] [client A.B.C.D] Use of uninitialized value in split at /home/cricket/public_html/./grapher.cgi line 1497., referer: http://www.example.com/~cricket/grapher.cgi?target=%2Fhttp-performance%2FCNN-homepage
It took a while to hunt down where the source of this was, but here's a patch that allows me to actually see something in the http-performance collector:
--- grapher.cgi-dist Fri Feb 6 08:27:34 2004
+++ grapher.cgi Mon Mar 12 01:37:41 2007
@@ -230,8 +230,9 @@
# put the view into the target dict, so it's
# there if they want to use it.
- my($view) = lc $gQ->param('view');
+ my($view) = $gQ->param('view');
if (defined($view)) {
+ $view = lc $view;
$targRef->{'auto-view'} = $view;
}
Now I have http-performance graphs again. :-)
Sean
Logged In: YES
user_id=955479
Originator: YES
Rats. This is a duplicate of 1671970. Sorry for the noise.