don't forget the normal exits

This commit is contained in:
Ward Wouts 2002-12-18 12:11:47 +00:00
parent 6c5dd0637e
commit 98520b4d12

View file

@ -1,6 +1,6 @@
#!/usr/bin/perl -w #!/usr/bin/perl -w
# $Dwarf: mvwrap,v 1.38 2002/12/13 18:54:12 ward Exp $ # $Dwarf: mvwrap,v 1.39 2002/12/18 12:10:39 ward Exp $
# $Source$ # $Source$
# #
@ -48,6 +48,7 @@ if (@unsafe = &check_safety(\@source, \@target)) {
&move_files(\@source, \@target); &move_files(\@source, \@target);
&unlock; &unlock;
unlink $temp_file or die "Couldn't remove temp file: $!\n";
######################################################## ########################################################