[Perl-flat-cvs-notify] SF.net SVN: perl-flat: [72] trunk/perl-flat-legacy/lib/FLAT/Legacy

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

Revision: 72
          http://svn.sourceforge.net/perl-flat/?rev=72&view=rev
Author:   estrabd
Date:     2006-09-26 16:17:12 -0700 (Tue, 26 Sep 2006)

Log Message:
-----------
fixed the spelling of complement

Modified Paths:
--------------
    trunk/perl-flat-legacy/lib/FLAT/Legacy/FA/PFA.pm
    trunk/perl-flat-legacy/lib/FLAT/Legacy/FA.pm

Modified: trunk/perl-flat-legacy/lib/FLAT/Legacy/FA/PFA.pm
===================================================================
--- trunk/perl-flat-legacy/lib/FLAT/Legacy/FA/PFA.pm	2006-09-26 13:22:54 UTC (rev 71)
+++ trunk/perl-flat-legacy/lib/FLAT/Legacy/FA/PFA.pm	2006-09-26 23:17:12 UTC (rev 72)
@@ -226,7 +226,7 @@
         # @next contains new, obviously
 	push(@next,@new);
 	# @next also contains @T - @tied
-	push(@next,$self->compliment(\@T,\@tied));
+	push(@next,$self->complement(\@T,\@tied));
 	# see if the resulting state can be added to @Dstates
         my $state = $self->serialize_name(@next);
 	if (!defined($Dtran{$state})) {
@@ -240,7 +240,7 @@
           if (defined($self->{_TRANSITIONS}{$node}{$symbol})) {
 	    my @new = $self->get_transition_on($node,$symbol);
 	    foreach my $new (@new) {
-	      my @next = $self->compliment(\@T,[$node]);
+	      my @next = $self->complement(\@T,[$node]);
 	      push(@next,$new);
               my $state = $self->serialize_name(@next);
 	      if (!defined($Dtran{$state})) {

Modified: trunk/perl-flat-legacy/lib/FLAT/Legacy/FA.pm
===================================================================
--- trunk/perl-flat-legacy/lib/FLAT/Legacy/FA.pm	2006-09-26 13:22:54 UTC (rev 71)
+++ trunk/perl-flat-legacy/lib/FLAT/Legacy/FA.pm	2006-09-26 23:17:12 UTC (rev 72)
@@ -235,7 +235,7 @@
   close(FH);
 }
 
-sub  compliment {
+sub  complement {
   my $self = shift;
   my $set1 = shift;
   my $set2 = shift;


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