From 51ef379850faa13b0ffd1df808dc14733b8fd99f Mon Sep 17 00:00:00 2001 From: Ken Hornstein Date: Thu, 17 May 2012 08:34:29 -0400 Subject: [PATCH] Minor changes to replyfilter to make it compatible with older versions of Perl. --- docs/contrib/replyfilter | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/docs/contrib/replyfilter b/docs/contrib/replyfilter index 2e98794..8e591bd 100755 --- a/docs/contrib/replyfilter +++ b/docs/contrib/replyfilter @@ -661,15 +661,15 @@ sub null_decoder ($) sub match_boundary($$) { - my ($_, $boundary) = @_; + my ($line, $boundary) = @_; return if ! defined $boundary; - if (substr($_, 0, 2) eq '--') { - s/[ \t\r\n]+\Z//; - if ($_ eq "--$boundary") { + if (substr($line, 0, 2) eq '--') { + $line =~ s/[ \t\r\n]+\Z//; + if ($line eq "--$boundary") { return 'EOP'; - } elsif ($_ eq "--$boundary--") { + } elsif ($line eq "--$boundary--") { return 'EOM'; } } -- 1.7.10.4