Changeset 24830 for trunk/tools/stack_inputs.pl

Timestamp:

Jul 16, 2009, 4:21:18 PM (17 years ago)

Author:

Paul Price

Message:

PSF files don't get destreaked

File:

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

trunk/tools/stack_inputs.pl

@@ -70 +70 @@
 
 foreach my $warp_path ( @$warps ) {
-    if (defined $muggle) {
-        my @warp = split /\//, $warp_path;
-        my $last = pop @warp;
-        push @warp, "SR_$last";
-        $warp_path = join '/', @warp;
-    }
     print $list "INPUT METADATA\n" if defined $input;
     foreach my $type ( keys %{EXTENSIONS()} ) {
+        my $path = $warp_path;
+        if (defined $muggle and $type ne "PSF") {
+            my @warp = split /\//, $warp_path;
+            my $last = pop @warp;
+            push @warp, "SR_$last";
+            $path = join '/', @warp;
+        }
         my $ext = ${EXTENSIONS()}{$type}; # Extension
-        my $file = "$warp_path$ext"; # File
+        my $file = "$path$ext"; # File
         my $source = `ipp_datapath.pl $file` or die "Unable to locate $file\n"; # Resolved file name
         chomp $source;