diff options
| author | Peter Palfrader <peter@palfrader.org> | 2003-02-20 14:22:38 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2003-02-20 14:22:38 +0000 |
| commit | 9c271f82116b065f895737be592460eabcb533b1 (patch) | |
| tree | 78bd7913f375feccac621278b19e1e430375393a /Echolot/Pinger.pm | |
| parent | a77ae906609459dfbea8362f2bde833b2765997d (diff) | |
Fix Top/Bottom msg detection
Diffstat (limited to 'Echolot/Pinger.pm')
| -rw-r--r-- | Echolot/Pinger.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Echolot/Pinger.pm b/Echolot/Pinger.pm index 2287dc8..c6b4dad 100644 --- a/Echolot/Pinger.pm +++ b/Echolot/Pinger.pm @@ -1,7 +1,7 @@ package Echolot::Pinger; # (c) 2002 Peter Palfrader <peter@palfrader.org> -# $Id: Pinger.pm,v 1.27 2003/02/20 14:05:38 weasel Exp $ +# $Id: Pinger.pm,v 1.28 2003/02/20 14:22:38 weasel Exp $ # =pod @@ -148,8 +148,8 @@ sub receive($$$$) { # they add an empty line between each usefull line $msg =~ s/(\r?\n)\r?\n/$1/g if ($msg =~ /^-----BEGIN PGP MESSAGE-----\r?\n\r?\n/m); - $top = $msg =~ m/^\S.*-----BEGIN PGP MESSAGE-----/s ? 1 : 0; - $bot = $msg =~ m/^-----END PGP MESSAGE-----.*\S/s ? 1 : 0; + $top = ($msg =~ m/^\S.*-----BEGIN PGP MESSAGE-----/ms) ? 1 : 0; + $bot = ($msg =~ m/^-----END PGP MESSAGE-----.*\S/ms) ? 1 : 0; $body = Echolot::Tools::crypt_symmetrically($msg, 'decrypt'); }; |