From e61c9c9f2e96a129f31a1bf49d4f2514137a3b01 Mon Sep 17 00:00:00 2001 From: Peter Palfrader Date: Sat, 15 Feb 2003 11:43:41 +0000 Subject: Chain pinging fixes --- Echolot/Tools.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'Echolot/Tools.pm') diff --git a/Echolot/Tools.pm b/Echolot/Tools.pm index db9d785..86adb91 100644 --- a/Echolot/Tools.pm +++ b/Echolot/Tools.pm @@ -1,7 +1,7 @@ package Echolot::Tools; # (c) 2002 Peter Palfrader -# $Id: Tools.pm,v 1.14 2003/01/14 05:25:35 weasel Exp $ +# $Id: Tools.pm,v 1.15 2003/02/15 11:43:41 weasel Exp $ # =pod @@ -291,14 +291,14 @@ sub crypt_symmetrically($$) { waitpid $pid, 0; if ($direction eq 'encrypt') { - (($status =~ /^^\[GNUPG:\] BEGIN_ENCRYPTION\s/m) && - ($status =~ /^^\[GNUPG:\] END_ENCRYPTION\s/m)) or + (($status =~ /^\[GNUPG:\] BEGIN_ENCRYPTION\s/m) && + ($status =~ /^\[GNUPG:\] END_ENCRYPTION\s/m)) or Echolot::Log::info("GnuPG status '$status' didn't indicate message was encrypted correctly (stderr: $stderr). Returning."), return undef; } elsif ($direction eq 'decrypt') { - (($status =~ /^^\[GNUPG:\] BEGIN_DECRYPTION\s/m) && - ($status =~ /^^\[GNUPG:\] DECRYPTION_OKAY\s/m) && - ($status =~ /^^\[GNUPG:\] END_DECRYPTION\s/m)) or + (($status =~ /^\[GNUPG:\] BEGIN_DECRYPTION\s/m) && + ($status =~ /^\[GNUPG:\] DECRYPTION_OKAY\s/m) && + ($status =~ /^\[GNUPG:\] END_DECRYPTION\s/m)) or Echolot::Log::info("GnuPG status '$status' didn't indicate message was decrypted correctly (stderr: $stderr). Returning."), return undef; }; -- cgit v1.2.3