r1499 - in packages/libmath-combinatorics-perl/trunk: . debian lib/Math

[Carlo Segre]

Author: segre-guest
Date: 2005-11-14 00:54:01 +0000 (Mon, 14 Nov 2005)
New Revision: 1499

Modified:
   packages/libmath-combinatorics-perl/trunk/Changes
   packages/libmath-combinatorics-perl/trunk/META.yml
   packages/libmath-combinatorics-perl/trunk/debian/changelog
   packages/libmath-combinatorics-perl/trunk/lib/Math/Combinatorics.pm
Log:
New upstream release


Modified: packages/libmath-combinatorics-perl/trunk/Changes
===================================================================
--- packages/libmath-combinatorics-perl/trunk/Changes	2005-11-14 00:51:05 UTC (rev 1498)
+++ packages/libmath-combinatorics-perl/trunk/Changes	2005-11-14 00:54:01 UTC (rev 1499)
@@ -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/trunk/META.yml
===================================================================
--- packages/libmath-combinatorics-perl/trunk/META.yml	2005-11-14 00:51:05 UTC (rev 1498)
+++ packages/libmath-combinatorics-perl/trunk/META.yml	2005-11-14 00:54:01 UTC (rev 1499)
@@ -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/trunk/debian/changelog
===================================================================
--- packages/libmath-combinatorics-perl/trunk/debian/changelog	2005-11-14 00:51:05 UTC (rev 1498)
+++ packages/libmath-combinatorics-perl/trunk/debian/changelog	2005-11-14 00:54:01 UTC (rev 1499)
@@ -1,3 +1,9 @@
+libmath-combinatorics-perl (0.07-1) unstable; urgency=low
+
+  * New upstream release
+
+ -- Carlo Segre <segre at iit.edu>  Sun, 13 Nov 2005 18:51:17 -0600
+
 libmath-combinatorics-perl (0.06-1) unstable; urgency=low
 
   * New upstream release (Closes: #329586)

Modified: packages/libmath-combinatorics-perl/trunk/lib/Math/Combinatorics.pm
===================================================================
--- packages/libmath-combinatorics-perl/trunk/lib/Math/Combinatorics.pm	2005-11-14 00:51:05 UTC (rev 1498)
+++ packages/libmath-combinatorics-perl/trunk/lib/Math/Combinatorics.pm	2005-11-14 00:54:01 UTC (rev 1499)
@@ -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
 
@@ -569,7 +569,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++;
     }