--- loncom/lond	2000/12/05 19:03:13	1.25
+++ loncom/lond	2000/12/05 19:45:36	1.27
@@ -29,14 +29,14 @@ use Authen::Krb4;
 
 # grabs exception and records it to log before exiting
 sub catchexception {
-    my ($signal)=@_;
+    my ($error)=@_;
     $SIG{'QUIT'}='DEFAULT';
     $SIG{__DIE__}='DEFAULT';
     &logthis("<font color=red>CRITICAL: "
      ."ABNORMAL EXIT. Child $$ for server $wasserver died through "
-     ."$signal with this parameter->[$@]</font>");
-    if ($client) { print $client "error: $@\n"; }
-    die($@);
+     ."a crash with this error msg->[$error]</font>");
+    if ($client) { print $client "error: $error\n"; }
+    die($error);
 }
 
 # grabs exception and records it to log before exiting
@@ -50,7 +50,7 @@ sub catchdie {
     $SIG{__DIE__}='DEFAULT';
     &logthis("<font color=red>CRITICAL: "
      ."ABNORMAL EXIT. Child $$ for server $wasserver died through "
-     ."\_\_DIE\_\_ with this parameter->[$message]</font>");
+     ."\_\_DIE\_\_ with this error msg->[$message]</font>");
     if ($client) { print $client "error: $message\n"; }
     die($message);
 }
@@ -606,7 +606,7 @@ sub make_new_child {
                          } else {
                            $now=time;
                            { 
-			    my sh;
+			    my $sh;
                             if ($sh=
                              IO::File->new(">$fname.$hostid{$clientip}")) {
                                print $sh "$clientip:$now\n";