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

some more bug squashing...

Browse source
This commit is contained in:
Ward Wouts 2001-08-01 14:28:38 +00:00
parent 8d8aafde7f
commit 9770daf06f
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
mvwrap/mvwrap
View file

@ -88,9 +88,9 @@ sub open_temp {
sub read_temp { sub read_temp {
my $target_name = shift; my $target_name = shift;
open $target, $target_name or die "Couldn't open tempfile: $target_name: $!"; open TARGET, $target_name or die "Couldn't open tempfile: $target_name: $!";
@target = <$target>; @target = <TARGET>;
close ($target); close (TARGET);
} }
# moves files from the names in one array to the names in another array # moves files from the names in one array to the names in another array
@ -186,7 +186,7 @@ sub lock {
die "Another mv_wrap process is active in this direcory\n" die "Another mv_wrap process is active in this direcory\n"
} }
else { else {
open LOCK, ">.mv_wrap"; open LOCK, "> .mv_wrap" or die "Couldn't open .mv_wrap for writing: $?\n";
print LOCK $$; print LOCK $$;
close LOCK; close LOCK;
} }