diff options
| author | Peter Palfrader <peter@palfrader.org> | 2003-06-06 10:36:23 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2003-06-06 10:36:23 +0000 |
| commit | 4218368936ee0e3613d29903a333f334b65f63dd (patch) | |
| tree | ea2ec0c26ab7a559d9fc6bfd6bbd21eda2c11438 /Echolot/Pinger | |
| parent | 5c5d3ec3d283b8454788dad1c72510c1eb4eaf71 (diff) | |
Regularily clean up temp dir
Diffstat (limited to 'Echolot/Pinger')
| -rw-r--r-- | Echolot/Pinger/CPunk.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Echolot/Pinger/CPunk.pm b/Echolot/Pinger/CPunk.pm index 9379ee4..08bed0c 100644 --- a/Echolot/Pinger/CPunk.pm +++ b/Echolot/Pinger/CPunk.pm @@ -1,7 +1,7 @@ package Echolot::Pinger::CPunk; # (c) 2002 Peter Palfrader <peter@palfrader.org> -# $Id: CPunk.pm,v 1.19 2003/02/22 19:08:55 weasel Exp $ +# $Id: CPunk.pm,v 1.20 2003/06/06 10:36:23 weasel Exp $ # =pod @@ -150,8 +150,8 @@ sub encrypt_to($$$$) { unlink ($keyring.'~'); # gnupg does those evil backups (defined $plaintextfile) and - ( unlink ($plaintextfile) or - Echolot::Log::warn("Cannot unlink tmp keyring '$plaintextfile'."), + (unlink ($plaintextfile) or + Echolot::Log::warn("Cannot unlink tmp plaintextfile '$plaintextfile'."), return undef); @@ -167,8 +167,8 @@ sub encrypt_to($$$$) { return 0; (defined $plaintextfile) and - ( unlink ($plaintextfile) or - Echolot::Log::warn("Cannot unlink tmp keyring '$plaintextfile'."), + (unlink ($plaintextfile) or + Echolot::Log::warn("Cannot unlink tmp plaintextfile '$plaintextfile'."), return undef); $result =~ s,^Version: .*$,Version: N/A,m; |