[Lxr-commits] CVS: lxr/lib/LXR Common.pm,1.38,1.39

[Malcolm B. <mb...@us...>]

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);
 }