ZMailer Patch

[Leonardo Helman]

Hi Julian, I'm sending you a patch for the ZMDiskStore,
it seems the last I sent this wasn't the latest I have or something


You have (surely I sent it that way) a xxx == "-UNDEF-"
and it should said something like xxx eq "-UNDEF-"


Thanks

Saludos 
--  
Leonardo Helman
Pert Consultores
Argentina
PERT Consultores
Argentina


-------------- next part --------------
diff -Naur MailScanner-4.63.1-2.ORIG/lib/MailScanner/ZMDiskStore.pm MailScanner-4.63.1-2/lib/MailScanner/ZMDiskStore.pm
--- MailScanner-4.63.1-2.ORIG/lib/MailScanner/ZMDiskStore.pm	2007-05-30 13:30:34.000000000 -0300
+++ MailScanner-4.63.1-2/lib/MailScanner/ZMDiskStore.pm	2007-08-14 11:12:59.000000000 -0300
@@ -504,7 +504,7 @@
 sub Start {
   #my ( $this )=@_;
   my ($this,$entiremessage )=@_;
-  if( $$this{_startpos} == "-UNDEF-" ) {
+  if( $$this{_startpos} eq "-UNDEF-" ) {
     seek $$this{_handle}, 0, 0; # reset the handle
     my $InHeader = 0;
     #print STDERR "Start\n";
@@ -531,7 +531,7 @@
 sub Next {
   my ( $this )=@_;
        
-  if( $$this{_startpos} == "-UNDEF-" ) {
+  if( $$this{_startpos} eq "-UNDEF-" ) {
     $this->Start();
   }
   return( $$this{_handle}->getline );