Update of /cvsroot/lxr/lxr/lib/LXR
In directory usw-pr-cvs1:/tmp/cvs-serv26990
Modified Files:
Common.pm
Log Message:
Index: Common.pm
===================================================================
RCS file: /cvsroot/lxr/lxr/lib/LXR/Common.pm,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -d -r1.38 -r1.39
--- Common.pm 26 Feb 2002 15:59:32 -0000 1.38
+++ Common.pm 26 Feb 2002 16:07:06 -0000 1.39
@@ -67,7 +67,7 @@
my $c = join(", line ", (caller)[0,2]);
print(STDERR "[",scalar(localtime),"] fatal: $c: $_[0]\n");
print(STDERR '[@INC ', join(" ", @INC), ' $0 ', $0, "\n");
- print(STDERR '$config', join(" ", %$config), "\n");
+ print(STDERR '$config', join(" ", %$config), "\n") if ref($config) eq "HASH";
print("<h4 align=\"center\"><i>** Fatal: $_[0]</i></h4>\n") if $wwwdebug;
exit(1);
}
|
