diff -rupN devscripts-2.13.5/scripts/uscan.pl devscripts-2.13.5-new/scripts/uscan.pl
--- devscripts-2.13.5/scripts/uscan.pl	2013-12-05 04:27:55.000000000 +0100
+++ devscripts-2.13.5-new/scripts/uscan.pl	2013-12-11 10:17:12.715256802 +0100
@@ -2171,12 +2171,12 @@ sub get_main_source_dir($$$$) {
     foreach my $file (@files) {
 	unless ($file =~ /^\.\.?/) {
 	    if ( -d "${tempdir}/$file" ) {
-                # HELP: why can't perl move not move directories????
-                system( "mv ${tempdir}/$file $main_source_dir" ) ;
-            } else {
-                move("${tempdir}/$file", $main_source_dir) or die("Unable to move ${tempdir}/$file directory $main_source_dir\n");
-            }
-        }
+		# HELP: why can't perl move not move directories????
+		system('mv', "${tempdir}/$file", $main_source_dir);
+	    } else {
+		move("${tempdir}/$file", $main_source_dir) or die("Unable to move ${tempdir}/$file directory $main_source_dir\n");
+	    }
+	}
     }
     return $main_source_dir;
 }