Changeset 27689 for trunk/tools/diff_outputs.pl

Timestamp:

Apr 14, 2010, 4:49:24 PM (16 years ago)

Author:

Paul Price

Message:

Don't die just because we can't find the file.

File:

• trunk/tools/diff_outputs.pl (modified) (3 diffs)

trunk/tools/diff_outputs.pl

@@ -8 +8 @@
 use strict;
 
+use Carp;
 use DBI;
 use constant DB_SOCKET => '/var/run/mysqld/mysqld.sock'; # Socket for mysql
@@ -35 +36 @@
                              'JPEG1' => '.b1.jpg', # Binned JPEG
                              'JPEG2' => '.b2.jpg', # Binned JPEG
-#                             'KERNEL' => '.subkernel', # Convolution kernel
+                             'KERNEL' => '.subkernel', # Convolution kernel
                              'INVERSE.IMAGE' => '.inv.fits', # Image
                              'INVERSE.MASK' => '.inv.mask.fits', # Mask
@@ -140 +141 @@
 
     my $file = "$path$ext";     # File
-    my $source = `ipp_datapath.pl $file` or die "Unable to locate $file\n"; # Actual file
+    my $source = `ipp_datapath.pl $file` or (carp "Unable to locate $file\n" and return); # Actual file
     chomp $source;
     my ($target) = $source =~ m|^.*[:/](.*)|; # Target name
-    !system "cp $source $target" or die "Unable to copy $source\n";
+    !system "cp $source $target" or carp "Unable to copy $source\n";
 }