Changeset 13712 for trunk/ippScripts/scripts/diff_skycell.pl

Timestamp:

Jun 7, 2007, 4:05:41 PM (19 years ago)

Author:

Paul Price

Message:

Fixing compilation problems.

File:

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

trunk/ippScripts/scripts/diff_skycell.pl

@@ -80 +80 @@
 
 # Identify the input and the template
-my $input, $inputMask;          # Input file and mask
-my $template, $templateMask;    # Template file and mask
+my ($input, $inputPath);        # Input file and path
+my ($template, $templatePath);  # Template file and path
 my $tess_id;                    # Tesselation identifier
 my $skycell_id;                 # Skycell identifier
@@ -88 +88 @@
     if (defined $file->{template} and $file->{template}) {
         $template = $file->{uri};
-        $templateMask = $ipprc->filename("PSWARP.OUTPUT.MASK", $file->{path_base});
+        $templatePath = $file->{path_base};
     } else {
         $input = $file->{uri};
-        $inputMask = $ipprc->filename("PSWARP.OUTPUT.MASK", $file->{path_base});
+        $inputPath = $file->{path_base};
     }
     if (defined $tess_id) {
@@ -117 +117 @@
 $ipprc->define_camera($camera);
 
+my $templateMask = $ipprc->filename("PSWARP.OUTPUT.MASK", $templatePath);
+my $inputMask = $ipprc->filename("PSWARP.OUTPUT.MASK", $inputPath);
+
 &my_die("Couldn't find input: $template", $diff_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($template);
 &my_die("Couldn't find input: $templateMask", $diff_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($templateMask);
-&my_die("Couldn't find input: $nput", $diff_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($input);
-&my_die("Couldn't find input: $nputMask", $diff_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($inputMask);
+&my_die("Couldn't find input: $input", $diff_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($input);
+&my_die("Couldn't find input: $inputMask", $diff_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($inputMask);
 
 # Get the output filenames