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;
}