Index: trunk/tools/diff_inputs.pl
===================================================================
--- trunk/tools/diff_inputs.pl	(revision 21427)
+++ trunk/tools/diff_inputs.pl	(revision 24816)
@@ -28,4 +28,5 @@
 my ($diff_id, $skycell_id);     # Diff and skycell of interest
 my ($input);                    # Input list
+my ($muggle);                   # No magicked inputs?
 
 GetOptions(
@@ -37,4 +38,5 @@
            'skycell_id=s' => \$skycell_id, # Skycell 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;
@@ -88,4 +90,11 @@
     if (defined $warp) {
         copy_extensions( $warp, WARP_EXTENSIONS() );
+        if (defined $muggle) {
+            my @warp = split /\//, $warp;
+            my $last = pop @warp;
+            push @warp, "SR_$last";
+            $warp = join '/', @warp;
+            copy_extensions( $warp, WARP_EXTENSIONS() );
+        }
     } elsif (defined $stack) {
         copy_extensions( $stack, STACK_EXTENSIONS() );