From 9c271f82116b065f895737be592460eabcb533b1 Mon Sep 17 00:00:00 2001 From: Peter Palfrader Date: Thu, 20 Feb 2003 14:22:38 +0000 Subject: Fix Top/Bottom msg detection --- Echolot/Pinger.pm | 6 +++--- 1 file 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 -# $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'); }; -- cgit v1.2.3