Changed protocol testing condition from ($ver == 2) to ($ver >= 2 && …

…$ver <= 6) to make the milter work with Sendmail 8.14
avar · Feb 23, 2009 · 40a4dbf · 40a4dbf
1 parent 1ee983b
commit 40a4dbf
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 4 deletions.
diff --git a/Changes b/Changes
@@ -1,7 +1,10 @@
-$Id: Changes,v 1.28 2004/08/10 21:10:36 tvierling Exp $
-
 Revision history for Perl extension Sendmail::PMilter.
 
+0.97  Mon Feb 23 23:39:15 2009 UTC
+    - RT#43327: Changed protocol testing condition from ($ver == 2) to ($ver >= 2 && $ver <= 6)
+      to make the milter work with Sendmail 8.14
+    - Removed CVS Id from Changes file
+
 0.96  Sat Jul 07 18:27:25 2007 UTC
     - Changed threads::shared::share(\$nchildren) to
       threads::shared::share($nchildren), this should fix some failing smokes

diff --git a/lib/Sendmail/PMilter.pm b/lib/Sendmail/PMilter.pm
@@ -46,7 +46,7 @@ use Socket;
 use Symbol;
 use UNIVERSAL;
 
-our $VERSION = '0.96';
+our $VERSION = '0.97';
 our $DEBUG = 0;
 
 =pod

diff --git a/lib/Sendmail/PMilter/Context.pm b/lib/Sendmail/PMilter/Context.pm
@@ -272,7 +272,7 @@ sub main ($) {
 				die "SMFIC_OPTNEG: packet has wrong size\n" unless (length($buf) == 12);
 
 				my ($ver, $actions, $protocol) = unpack('NNN', $buf);
-				die "SMFIC_OPTNEG: unknown milter protocol version $ver\n" unless ($ver == 2);
+				die "SMFIC_OPTNEG: unknown milter protocol version $ver\n" unless ($ver >= 2 && $ver <= 6);
 
 				$this->write_packet(SMFIC_OPTNEG, pack('NNN', 2,
 					$this->{callback_flags} & $actions,