diff options
| author | Peter Palfrader <peter@palfrader.org> | 2003-02-15 11:43:41 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2003-02-15 11:43:41 +0000 |
| commit | e61c9c9f2e96a129f31a1bf49d4f2514137a3b01 (patch) | |
| tree | 3759bc4364e782fa7cb177571ad195cb82121c36 /Echolot/Tools.pm | |
| parent | 7adc1b95176205694c1b34878b185a41c82373e9 (diff) | |
Chain pinging fixes
Diffstat (limited to 'Echolot/Tools.pm')
| -rw-r--r-- | Echolot/Tools.pm | 12 |
1 files changed, 6 insertions, 6 deletions
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 <peter@palfrader.org> -# $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; }; |