remove temp file on exit
This commit is contained in:
parent
3d6e9ffea7
commit
6c5dd0637e
1 changed files with 2 additions and 1 deletions
|
|
@ -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";
|
||||
}
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue