[popfile-commit] engine/Proxy POP3.pm,1.38,1.39

[<jgr...@us...>]

Update of /cvsroot/popfile/engine/Proxy
In directory sc8-pr-cvs1:/tmp/cvs-serv26589/Proxy

Modified Files:
	POP3.pm 
Log Message:
Major update to the history caching code that makes POPFile History a hell of a lot faster by being a real cache and not the lame one it was before; Stan, this might have undone your last & fix check in because of the size of changes I was making; I fixed a nasty bug where we were leaking file handles in class files when reclassifying or undoing.

Index: POP3.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Proxy/POP3.pm,v
retrieving revision 1.38
retrieving revision 1.39
diff -C2 -d -r1.38 -r1.39
*** POP3.pm	21 Feb 2003 18:36:24 -0000	1.38
--- POP3.pm	24 Feb 2003 23:08:49 -0000	1.39
***************
*** 217,221 ****
              $class =~ s/[\r\n]//g;
  
- 	        $self->{ui}->{history_invalid}                    = 1;
              $self->{classifier}->{parameters}{$class}{count} += 1;
              $self->{configuration}->{configuration}{mcount}  += 1;
--- 217,220 ----
***************
*** 235,238 ****
--- 234,238 ----
      
      if ( $stats_changed ) {
+ 		$self->{ui}->invalidate_history_cache();
          $self->{configuration}->save_configuration();
          $self->{classifier}->write_parameters();
***************
*** 265,269 ****
                  delete $self->{children}{$kid};
                  
!                 debug( $self, "Done with $kid" ); 
              }
          }
--- 265,269 ----
                  delete $self->{children}{$kid};
                  
!                 debug( $self, "Done with $kid (" . (length(keys %{$self->{children}})-1) . " to go)" ); 
              }
          }