[Perl-flat-cvs-notify] perl-flat/dev-scripts pregex-to-pfa.pl,1.5,1.6

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

Update of /cvsroot/perl-flat/perl-flat/dev-scripts
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10957/dev-scripts

Modified Files:
	pregex-to-pfa.pl 
Log Message:
...

Index: pregex-to-pfa.pl
===================================================================
RCS file: /cvsroot/perl-flat/perl-flat/dev-scripts/pregex-to-pfa.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** pregex-to-pfa.pl	18 Apr 2006 21:50:17 -0000	1.5
--- pregex-to-pfa.pl	19 Apr 2006 15:27:42 -0000	1.6
***************
*** 10,18 ****
  # This is mainly my test script for FLAT::FA::PFA.pm
  
! my $PRE = FLAT::Regex::WithExtraOps->new('(ab+c*)[xyz](a+b)*');
  
! my $PFA = $PRE->as_pfa();
  
! print Dumper($PFA);
  
- print $PRE->as_string;
--- 10,19 ----
  # This is mainly my test script for FLAT::FA::PFA.pm
  
! my $PRE = FLAT::Regex::WithExtraOps->new('ab&c');
  
! print Dumper($PRE);
  
! exit;
! 
! my $PFA = $PRE->as_pfa();