Changeset 24624

Timestamp:

Jun 29, 2009, 1:47:49 PM (17 years ago)

Author:

eugene

Message:

do not fail for a missed input

File:

• trunk/tools/chip_outputs.pl (modified) (1 diff)

trunk/tools/chip_outputs.pl

@@ -82 +82 @@
 
     my $neb = "$path$ext"; # Nebulous file
-    my $source = `neb-locate --path $neb` or die "Unable to locate $neb\n"; # Actual file
+    my $source = `neb-locate --path $neb`;
+    if (!$source) { 
+        print "Unable to locate $neb\n"; # Actual file
+        return;
+    }
     chomp $source;
     my ($target) = $source =~ m|^.*:(.*)|; # Target name
-    !system "cp $source $target" or die "Unable to copy $source\n";
+    my $status = system "cp $source $target";
+    if ($status) {
+        print "Unable to copy $source\n";
+        return;
+    }
 }