Changeset 25027 for branches/pap/tools/chip_outputs.pl

Timestamp:

Aug 7, 2009, 4:08:25 PM (17 years ago)

Author:

Paul Price

Message:

Merging trunk (r25026) to get up-to-date on old branch.

Location:

branches/pap

Files:

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

branches/pap/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;
+    }
 }