ward/publicscripts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

in case of doubles, show which files are the culprits

Browse source
This commit is contained in:
Ward Wouts 2002-12-11 11:51:42 +00:00
parent f5edf6e384
commit dbe4afb325
1 changed files with 19 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

20
mvwrap/mvwrap
View file

@ -150,12 +150,13 @@ sub run_checks {
} }
if ( &check_unique(@target) ) { if ( &check_unique(@target) ) {
&which_doubles(@source, @target);
&cdie("Aborting. You're trying to move multiple files to the same name.\n"); &cdie("Aborting. You're trying to move multiple files to the same name.\n");
} }
} }
# returns 0 if all entries in @target_list are unique. 1 if not. # returns 0 if all entries in @target_list are unique. 1 if not.
sub check_unique (@){ sub check_unique (@) {
my @uniqu; my @uniqu;
my @target_list = @_; my @target_list = @_;
my %seen = (); my %seen = ();
@ -163,6 +164,23 @@ sub check_unique (@){
return (scalar(@uniqu) != scalar(@target)) return (scalar(@uniqu) != scalar(@target))
} }
sub which_doubles () {
my %selector = ();
foreach $i (0 .. $#target) {
if ( exists $selector{$target[$i]} ) {
push @{$selector{$target[$i]}}, $i;
} else {
$selector{$target[$i]} = [$i];
}
}
foreach (keys %selector) {
if ( scalar(@{$selector{$_}}) > 1 ) {
print "Doubles detected:\n";
map {print "$source[$_] -> $target[$_]\n";} @{$selector{$_}};
}
}
}
# Compares one array of file names to another, making sure files # Compares one array of file names to another, making sure files
# can be moved safely without overwriting each other # can be moved safely without overwriting each other
# Must be called like: # Must be called like: