[Perl-flat-commit-notify] SF.net SVN: perl-flat: [82] trunk/perl-flat

[notifies s. of c. c. <per...@li...>]

Revision: 82
          http://svn.sourceforge.net/perl-flat/?rev=82&view=rev
Author:   estrabd
Date:     2006-10-07 05:52:05 -0700 (Sat, 07 Oct 2006)

Log Message:
-----------
just in case I missed something

Modified Paths:
--------------
    trunk/perl-flat/dev-scripts/pre_compare.pl
    trunk/perl-flat/dev-scripts/pregex-to-pfa.pl
    trunk/perl-flat/t/03-pregex-pfa.t

Modified: trunk/perl-flat/dev-scripts/pre_compare.pl
===================================================================
--- trunk/perl-flat/dev-scripts/pre_compare.pl	2006-10-03 22:40:35 UTC (rev 81)
+++ trunk/perl-flat/dev-scripts/pre_compare.pl	2006-10-07 12:52:05 UTC (rev 82)
@@ -14,7 +14,11 @@
 my $DFA1 = $PFA1->as_nfa->as_min_dfa;
 my $DFA2 = $PFA2->as_nfa->as_min_dfa;
 
-print "Match!" if ($DFA1->equals($DFA2));
+if ($DFA1->equals($DFA2)) {
+  print "MATCH!";
+} else {
+  print "No Match";
+}
 
 __END__
 open(GDL,">pfa.gdl");

Modified: trunk/perl-flat/dev-scripts/pregex-to-pfa.pl
===================================================================
--- trunk/perl-flat/dev-scripts/pregex-to-pfa.pl	2006-10-03 22:40:35 UTC (rev 81)
+++ trunk/perl-flat/dev-scripts/pregex-to-pfa.pl	2006-10-07 12:52:05 UTC (rev 82)
@@ -30,7 +30,7 @@
   print GDL $DFA->as_min_dfa->trim_sinks->as_gdl,"\n";
 close(GDL);
 
-my $dot = $DFA->as_min_dfa->as_graphviz;
+my $dot = $DFA->as_min_dfa->trim_sinks->as_graphviz;
 open my $fh, "|-", "circo -Tpng -o output.png"
    or die "Couldn't run dot: $!\n";
 

Modified: trunk/perl-flat/t/03-pregex-pfa.t
===================================================================
--- trunk/perl-flat/t/03-pregex-pfa.t	2006-10-03 22:40:35 UTC (rev 81)
+++ trunk/perl-flat/t/03-pregex-pfa.t	2006-10-07 12:52:05 UTC (rev 82)
@@ -1,4 +1,4 @@
-use Test::More tests => 3;
+use Test::More tests => 2;
 use FLAT;
 use FLAT::NFA;
 use FLAT::PFA;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.