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;
|
