added a 'no warnings' for cleaner output
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 5 Jan 2006 23:39:35 +0000 (23:39 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 5 Jan 2006 23:39:35 +0000 (23:39 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@2634 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/support-scripts/oils_header.pl

index 0d81c47..818925a 100755 (executable)
@@ -6,6 +6,7 @@
 
 use strict;
 use warnings;
+use JSON;
 use Data::Dumper;
 use OpenSRF::System;
 use OpenSRF::AppSession;
@@ -40,6 +41,7 @@ our $ACTOR            = 'open-ils.actor';
 #----------------------------------------------------------------
 sub err { 
        my ($pkg, $file, $line, $sub)  = _caller(); 
+       no warnings;
        die "Script halted with error ".
                "($pkg : $file : $line : $sub):\n" . shift() . "\n"; 
 }