Changeset 25065

Timestamp:

Aug 13, 2009, 2:31:40 PM (17 years ago)

Author:

bills

Message:

need to use Carp changed an error return

File:

• trunk/pstamp/scripts/pstamp_job_run.pl (modified) (2 diffs)

trunk/pstamp/scripts/pstamp_job_run.pl

@@ -11 +11 @@
 use Sys::Hostname;
 use Getopt::Long qw( GetOptions :config auto_help auto_version gnu_getopt );
+use Carp;
 use File::Basename;
 use Digest::MD5::File qw( file_md5_hex );
@@ -137 +138 @@
     }
 } elsif ($jobType eq "get_image") {
-    my_die( "get_image jobs not working right now", $job_id, $PS_EXIT_CONFIG_ERROR);
+    my_die( "get_image jobs not working right now", $job_id, $PS_EXIT_PROG_ERROR);
 
     my $uri = "";