summaryrefslogtreecommitdiff
path: root/Echolot/Pinger.pm
diff options
context:
space:
mode:
authorPeter Palfrader <peter@palfrader.org>2003-02-20 14:22:38 +0000
committerPeter Palfrader <peter@palfrader.org>2003-02-20 14:22:38 +0000
commit9c271f82116b065f895737be592460eabcb533b1 (patch)
tree78bd7913f375feccac621278b19e1e430375393a /Echolot/Pinger.pm
parenta77ae906609459dfbea8362f2bde833b2765997d (diff)
Fix Top/Bottom msg detection
Diffstat (limited to 'Echolot/Pinger.pm')
-rw-r--r--Echolot/Pinger.pm6
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');
};