[Perl-flat-cvs-notify] perl-flat/lib/FLAT FA.pm,1.8,1.9

[<per...@li...>]

Update of /cvsroot/perl-flat/perl-flat/lib/FLAT
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10496/lib/FLAT

Modified Files:
	FA.pm 
Log Message:
added preliminary FLAT::FA test suite



Index: FA.pm
===================================================================
RCS file: /cvsroot/perl-flat/perl-flat/lib/FLAT/FA.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** FA.pm	24 Feb 2006 06:20:25 -0000	1.8
--- FA.pm	3 Mar 2006 15:17:44 -0000	1.9
***************
*** 218,222 ****
      
      my @useless = grep { !$seen{$_} } $self->get_states;
!     $self->delete_state(@useless);
      
      return @useless;
--- 218,222 ----
      
      my @useless = grep { !$seen{$_} } $self->get_states;
!     $self->delete_states(@useless);
      
      return @useless;