From: Ken Hornstein <kenh@pobox.com>
Date: Thu, 17 May 2012 12:34:29 +0000 (-0400)
Subject: Minor changes to replyfilter to make it compatible with older versions of Perl.
X-Git-Url: http://git.marmaro.de/?a=commitdiff_plain;h=51ef379850faa13b0ffd1df808dc14733b8fd99f;p=mmh

Minor changes to replyfilter to make it compatible with older versions of Perl.
---

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';
 		}
 	}