r1497 - in packages/libmath-combinatorics-perl/branches/upstream/current: . lib/Math

[Carlo Segre]

Author: segre-guest
Date: 2005-11-14 00:50:53 +0000 (Mon, 14 Nov 2005)
New Revision: 1497

Modified:
   packages/libmath-combinatorics-perl/branches/upstream/current/Changes
   packages/libmath-combinatorics-perl/branches/upstream/current/META.yml
   packages/libmath-combinatorics-perl/branches/upstream/current/lib/Math/Combinatorics.pm
Log:
Load /tmp/tmp.5zvQzd/libmath-combinatorics-perl-0.07 into
packages/libmath-combinatorics-perl/branches/upstream/current.


Modified: packages/libmath-combinatorics-perl/branches/upstream/current/Changes
===================================================================
--- packages/libmath-combinatorics-perl/branches/upstream/current/Changes	2005-11-12 00:47:59 UTC (rev 1496)
+++ packages/libmath-combinatorics-perl/branches/upstream/current/Changes	2005-11-14 00:50:53 UTC (rev 1497)
@@ -18,3 +18,5 @@
 
 0.06  o Added multiset, string, and derangement methods for OO mode
       o Corrections to documentation examples
+
+0.07  o Fixed syntax error under 5.8.7

Modified: packages/libmath-combinatorics-perl/branches/upstream/current/META.yml
===================================================================
--- packages/libmath-combinatorics-perl/branches/upstream/current/META.yml	2005-11-12 00:47:59 UTC (rev 1496)
+++ packages/libmath-combinatorics-perl/branches/upstream/current/META.yml	2005-11-14 00:50:53 UTC (rev 1497)
@@ -1,10 +1,10 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         Math-Combinatorics
-version:      0.06
+version:      0.07
 version_from: lib/Math/Combinatorics.pm
 installdirs:  site
 requires:
 
 distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.21
+generated_by: ExtUtils::MakeMaker version 6.30

Modified: packages/libmath-combinatorics-perl/branches/upstream/current/lib/Math/Combinatorics.pm
===================================================================
--- packages/libmath-combinatorics-perl/branches/upstream/current/lib/Math/Combinatorics.pm	2005-11-12 00:47:59 UTC (rev 1496)
+++ packages/libmath-combinatorics-perl/branches/upstream/current/lib/Math/Combinatorics.pm	2005-11-14 00:50:53 UTC (rev 1497)
@@ -204,7 +204,7 @@
 
 our @ISA = qw(Exporter);
 our @EXPORT = qw( combine derange factorial permute );
-our $VERSION = '0.06';
+our $VERSION = '0.07';
 
 =head1 EXPORTED FUNCTIONS
 
@@ -560,7 +560,10 @@
     my $ok = 1;
     my $i = 0;
     foreach my $x ( @perm ) {
-      $ok = 0 and last if $x eq $${ $data->[$i] };
+      if ( $x eq $${ $data->[$i] } ) {
+        $ok = 0;
+        last;
+      }
       $i++;
     }