acq order reader; continuing

Signed-off-by: Bill Erickson <berick@esilibrary.com>

diff --git a/Open-ILS/src/support-scripts/acq_order_reader.pl b/Open-ILS/src/support-scripts/acq_order_reader.pl
index 0a24f2b..da72226 100755 (executable)
--- a/Open-ILS/src/support-scripts/acq_order_reader.pl
+++ b/Open-ILS/src/support-scripts/acq_order_reader.pl
@@ -317,11 +317,14 @@ while (1) {
 
     $logger->info("acq-or: loop processed $processed files");
     $debug and print "Sleeping for $poll_interval seconds...\n";
-    sleep $poll_interval;
-}
 
-warn "Exiting main acq_order_reader loop!\n";
+    $SIG{INT} = sub { 
+        print "Cleaning up...\n";
+        exit; # allows lockfile cleanup
+    };
 
+    sleep $poll_interval;
+}
 
 __END__