--- loncom/Attic/lonc	2000/12/05 16:51:41	1.9
+++ loncom/Attic/lonc	2000/12/05 19:03:55	1.10
@@ -12,7 +12,10 @@
 
 # 6/4/99,6/5,6/7,6/8,6/9,6/10,6/11,6/12,7/14,7/19,
 # 10/8,10/9,10/15,11/18,12/22,
-# 2/8,7/25 Gerd Kortemeyer 
+# 2/8,7/25 Gerd Kortemeyer
+# 12/05 Scott Harrison
+# 12/05 Gerd Kortemeyer
+# 
 # based on nonforker from Perl Cookbook
 # - server who multiplexes without forking
 
@@ -28,6 +31,8 @@ use Crypt::IDEA;
 # grabs exception and records it to log before exiting
 sub catchexception {
     my ($signal)=@_;
+    $SIG{'QUIT'}='DEFAULT';
+    $SIG{__DIE__}='DEFAULT';
     &logthis("<font color=red>CRITICAL: "
      ."ABNORMAL EXIT. Child $$ for server $wasserver died through "
      ."$signal with this parameter->[$@]</font>");
@@ -40,6 +45,8 @@ sub catchexception {
 # (despite what some of the documentation says about SIG{__DIE__}.
 sub catchdie {
     my ($message)=@_;
+    $SIG{'QUIT'}='DEFAULT';
+    $SIG{__DIE__}='DEFAULT';
     &logthis("<font color=red>CRITICAL: "
      ."ABNORMAL EXIT. Child $$ for server $wasserver died through "
      ."\_\_DIE\_\_ with this parameter->[$message]</font>");