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
|
#!/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";
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue