Index: trunk/tools/warp_inputs.pl
===================================================================
--- trunk/tools/warp_inputs.pl	(revision 21427)
+++ trunk/tools/warp_inputs.pl	(revision 25458)
@@ -23,4 +23,5 @@
 my ($skycell_id);               # Skycell of interest
 my ($image, $mask, $variance); # Files to contain input lists
+my ($muggle);                   # No magicked inputs?
 
 GetOptions(
@@ -34,4 +35,5 @@
            'mask=s' => \$mask,  # File with masks
            'variance=s' => \$variance, # File with variances
+           'muggle'   => \$muggle, # No magicked inputs?
            ) or die "Unable to parse arguments.\n";
 die "Unknown option: @ARGV\n" if @ARGV;
@@ -108,4 +110,11 @@
     my $file = shift;           # File to copy
 
+    if (defined $muggle) {
+        my @file = split /\//, $file;
+        my $last = pop @file;
+        push @file, "SR_$last";
+        $file = join '/', @file;
+    }
+
     my $source = `ipp_datapath.pl $file` or die "Unable to locate $file\n"; # Actual file
     chomp $source;