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

Lock files opruimen bij "soft-errors"

Browse source
This commit is contained in:
Ward Wouts 2001-12-06 12:19:43 +00:00
parent ca5438d012
commit 5bcdc11ee3
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
mvwrap/mvwrap
View file

@ -132,15 +132,19 @@ sub pattern_edit {
sub run_checks { sub run_checks {
my $line; my $line;
unless ( scalar(@source) == scalar(@target) ) { unless ( scalar(@source) == scalar(@target) ) {
if ( -e ".mv_wrap" ) { unlink (".mv_wrap"); }
die "Aborting. Source and target list don't have the same number of lines.\n"; die "Aborting. Source and target list don't have the same number of lines.\n";
} }
foreach $line (@target) { foreach $line (@target) {
if ( $line =~ m/^$/ ) { if ( $line =~ m/^$/ ) {
die "Aborting. You can't move to empy names.\n"; } if ( -e ".mv_wrap" ) { unlink (".mv_wrap"); }
die "Aborting. You can't move to empy names.\n";
}
} }
if ( &check_unique(@target) ) { if ( &check_unique(@target) ) {
if ( -e ".mv_wrap" ) { unlink (".mv_wrap"); }
die "Aborting. You're trying to move multiple files to the same name.\n"; die "Aborting. You're trying to move multiple files to the same name.\n";
} }
} }