Changeset 18780

Timestamp:

Jul 30, 2008, 10:38:22 AM (18 years ago)

Author:

Paul Price

Message:

Fixing compilation errors.

File:

• trunk/ippScripts/scripts/magic_mask.pl (modified) (3 diffs)

trunk/ippScripts/scripts/magic_mask.pl

@@ -42 +42 @@
 
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
-pod2usage( -msg => "Required options: --magic_id --camera --node --outroot",
+pod2usage( -msg => "Required options: --magic_id --camera --outroot",
            -exitval => 3) unless
     defined $magic_id and
@@ -84 +84 @@
 {
     my $command = "$streaks --streaks"; # Command to execute
+    my @basenames;              # List of base names
 
     # Concatenate the names
@@ -136 +137 @@
 {
     my $file = shift;           # Name of file
-    &my_die("Unable to find output file: $file", $magic_id, $node, $PS_EXIT_SYS_ERROR) unless
+    &my_die("Unable to find output file: $file", $magic_id, $PS_EXIT_SYS_ERROR) unless
         $ipprc->file_exists($file);
 }