perl-flat-cvs-notify

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

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

Modified Files:
	FA.pm 
Log Message:
more tests...input and output files now

Index: FA.pm
===================================================================
RCS file: /cvsroot/perl-flat/flat4cpan/lib/FLAT/FA.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** FA.pm	21 Feb 2006 14:43:40 -0000	1.2
--- FA.pm	24 Feb 2006 21:27:15 -0000	1.3
***************
*** 149,153 ****
    }
    # rename states as actual numbers    
!   my $number = 0;
    foreach ($self->get_states()) {
      $self->rename_state($_,$number);
--- 149,153 ----
    }
    # rename states as actual numbers    
!   $number = 0;
    foreach ($self->get_states()) {
      $self->rename_state($_,$number);