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