Index: trunk/tools/stack_inputs.pl
===================================================================
--- trunk/tools/stack_inputs.pl	(revision 21427)
+++ trunk/tools/stack_inputs.pl	(revision 24828)
@@ -24,4 +24,5 @@
 my ($stack_id);                 # Stack of interest
 my ($input);                    # Input list
+my ($muggle);                   # No magicked inputs?
 
 GetOptions(
@@ -32,4 +33,5 @@
            'stack_id=s' => \$stack_id, # Stack identifier
            'input=s'  => \$input, # Input list to generate
+           'muggle'   => \$muggle, # No magicked inputs?
            ) or die "Unable to parse arguments.\n";
 die "Unknown option: @ARGV\n" if @ARGV;
@@ -68,4 +70,10 @@
 
 foreach my $warp_path ( @$warps ) {
+    if (defined $muggle) {
+        my @warp = split /\//, $warp;
+        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()} ) {