popfile-commit

[<ssc...@us...>]

Update of /cvsroot/popfile/engine/UI
In directory sc8-pr-cvs1:/tmp/cvs-serv3131/UI

Modified Files:
	HTML.pm 
Log Message:
fixed possible handle leak in archive code. made spaced word detector more aggressive at word edges and updated spaced tests

Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.95
retrieving revision 1.96
diff -C2 -d -r1.95 -r1.96
*** HTML.pm	27 Feb 2003 00:55:24 -0000	1.95
--- HTML.pm	27 Feb 2003 09:49:38 -0000	1.96
***************
*** 3414,3420 ****
  {
      my ( $self, $mail_file, $archive ) = @_;
!     
      $mail_file =~ /(popfile.+\=.+\.msg)/;
      $mail_file = $1;
  
      if ( $archive ) {
--- 3414,3421 ----
  {
      my ( $self, $mail_file, $archive ) = @_;
!         
      $mail_file =~ /(popfile.+\=.+\.msg)/;
      $mail_file = $1;
+     print "delete: $mail_file\n";
  
      if ( $archive ) {
***************
*** 3476,3482 ****
                  print TO $_;
              }
-         close FROM;
-         }
          close TO;
      }
  }
--- 3477,3483 ----
                  print TO $_;
              }
          close TO;
+         }
+         close FROM;
      }
  }