From 4218368936ee0e3613d29903a333f334b65f63dd Mon Sep 17 00:00:00 2001 From: Peter Palfrader Date: Fri, 6 Jun 2003 10:36:23 +0000 Subject: Regularily clean up temp dir --- Echolot/Pinger/CPunk.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'Echolot/Pinger') 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 -# $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; -- cgit v1.2.3