lib/scripts/feeder.pl
changeset 4504 2f39aa4bebf3
parent 4501 5f629ee2502b
child 6281 25d41c118304
--- a/lib/scripts/feeder.pl	Tue Dec 30 13:43:39 1997 +0100
+++ b/lib/scripts/feeder.pl	Wed Dec 31 15:17:49 1997 +0100
@@ -6,7 +6,7 @@
 
 # args
 
-($head, $noint, $emitpid, $quit, $symbols, $tail) = @ARGV;
+($head, $emitpid, $quit, $symbols, $tail) = @ARGV;
 
 
 # symbols translation table
@@ -113,20 +113,15 @@
 );
 
 
-# setup hangup handler
+# setup signal handlers
 
-sub hangup {
-    exit(0);
-}
-
+sub hangup { exit(0); }
 $SIG{'HUP'} = "hangup";
+$SIG{'INT'} = "IGNORE";
 
 
 # main
 
-#bulletproof session
-$noint && ($SIG{INT} = "IGNORE");
-
 #buffer lines
 $| = 1;
 
@@ -145,7 +140,7 @@
 $tail && (print "$tail", "\n");
 
 
-# wait forever, expecting to be terminated by HUP
+# wait forever
 
 close STDOUT;
 sleep;