remove temp file on exit

This commit is contained in:
Ward Wouts 2002-12-18 12:10:39 +00:00
parent 3d6e9ffea7
commit 6c5dd0637e

View file

@ -1,6 +1,6 @@
#!/usr/bin/perl -w #!/usr/bin/perl -w
# $Dwarf$ # $Dwarf: mvwrap,v 1.38 2002/12/13 18:54:12 ward Exp $
# $Source$ # $Source$
# #
@ -310,6 +310,7 @@ sub unlock {
sub cdie { sub cdie {
$message = shift; $message = shift;
&unlock; &unlock;
unlink $temp_file or die "Couldn't remove temp file: $!\n";
die "$message"; die "$message";
} }