Merge remote branch 'working/user/berick/marc-stream-importer-read-repair'
authorGalen Charlton <gmc@esilibrary.com>
Tue, 11 Oct 2011 13:52:06 +0000 (09:52 -0400)
committerGalen Charlton <gmc@esilibrary.com>
Tue, 11 Oct 2011 13:52:14 +0000 (09:52 -0400)
Signed-off-by: Galen Charlton <gmc@esilibrary.com>
Open-ILS/src/support-scripts/marc_stream_importer.pl

index 2549222..d288504 100755 (executable)
@@ -380,10 +380,7 @@ sub process_request {   # The core Net::Server method
         local $SIG{ALRM} = sub { die "alarm\n" };
         alarm $wait_time; # prevent accidental tie ups of backend processes
         local $/ = "\x1D"; # MARC record separator
-        while (my $newline = <STDIN>) {
-            $data .= $newline;
-            alarm $wait_time; # prevent accidental tie ups of backend processes
-        }
+        $data = <STDIN>;
         alarm 0;
     };