r57389 - in /branches/upstream/libset-infinite-perl/current: Changes META.yml lib/Set/Infinite.pm lib/Set/Infinite/Basic.pm t/infinite.t

Mon May 3 14:22:40 UTC 2010

Author: jawnsy-guest
Date: Mon May  3 14:22:18 2010
New Revision: 57389

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=57389
Log:
[svn-upgrade] Integrating new upstream version, libset-infinite-perl (0.65)

Modified:
    branches/upstream/libset-infinite-perl/current/Changes
    branches/upstream/libset-infinite-perl/current/META.yml
    branches/upstream/libset-infinite-perl/current/lib/Set/Infinite.pm
    branches/upstream/libset-infinite-perl/current/lib/Set/Infinite/Basic.pm
    branches/upstream/libset-infinite-perl/current/t/infinite.t

Modified: branches/upstream/libset-infinite-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libset-infinite-perl/current/Changes?rev=57389&op=diff
==============================================================================

--- branches/upstream/libset-infinite-perl/current/Changes (original)
+++ branches/upstream/libset-infinite-perl/current/Changes Mon May  3 14:22:18 2010
@@ -1,4 +1,11 @@
 Revision history for Perl extension Set::Infinite.
+
+0.65   2010-04-26
+- documentation fix 
+
+0.64   2010-04-26
+- s/simmetric/symmetric/ 
+  reported by Richard Jelinek
 
 0.63   2008-07-21
 - minor tweak in union(); added tests

Modified: branches/upstream/libset-infinite-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libset-infinite-perl/current/META.yml?rev=57389&op=diff
==============================================================================
--- branches/upstream/libset-infinite-perl/current/META.yml (original)
+++ branches/upstream/libset-infinite-perl/current/META.yml Mon May  3 14:22:18 2010
@@ -1,12 +1,15 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
-name:         Set-Infinite
-version:      0.63
-version_from: lib/Set/Infinite.pm
-installdirs:  site
-requires:
+--- #YAML:1.0
+name:                Set-Infinite
+version:             0.65
+abstract:            Infinite Sets math
+license:             ~
+author:              
+    - Flavio S. Glock <fglock at gmail.com>
+generated_by:        ExtUtils::MakeMaker version 6.44
+distribution_type:   module
+requires:     
     Test::More:                    0
     Time::Local:                   0
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.30
+meta-spec:
+    url:     http://module-build.sourceforge.net/META-spec-v1.3.html
+    version: 1.3

Modified: branches/upstream/libset-infinite-perl/current/lib/Set/Infinite.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libset-infinite-perl/current/lib/Set/Infinite.pm?rev=57389&op=diff
==============================================================================
--- branches/upstream/libset-infinite-perl/current/lib/Set/Infinite.pm (original)
+++ branches/upstream/libset-infinite-perl/current/lib/Set/Infinite.pm Mon May  3 14:22:18 2010
@@ -10,7 +10,7 @@
 # These methods are inherited from Set::Infinite::Basic "as-is":
 #   type list fixtype numeric min max integer real new span copy
 #   start_set end_set universal_set empty_set minus difference
-#   simmetric_difference is_empty
+#   symmetric_difference is_empty
 
 use strict;
 use base qw(Set::Infinite::Basic Exporter);
@@ -43,7 +43,7 @@
 
 
 BEGIN {
-    $VERSION = "0.63";
+    $VERSION = "0.65";
     $TRACE = 0;         # enable basic trace method execution
     $DEBUG_BT = 0;      # enable backtrack tracer
     $PRETTY_PRINT = 0;  # 0 = print 'Too Complex'; 1 = describe functions
@@ -1504,7 +1504,7 @@
     print $set1->minus( $set2 );
     # output: [1..4]
 
-=head2 simmetric_difference
+=head2 symmetric_difference
 
 Returns a set containing elements that are in either set,
 but not in both. This is the "set" version of "XOR".

Modified: branches/upstream/libset-infinite-perl/current/lib/Set/Infinite/Basic.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libset-infinite-perl/current/lib/Set/Infinite/Basic.pm?rev=57389&op=diff
==============================================================================
--- branches/upstream/libset-infinite-perl/current/lib/Set/Infinite/Basic.pm (original)
+++ branches/upstream/libset-infinite-perl/current/lib/Set/Infinite/Basic.pm Mon May  3 14:22:18 2010
@@ -783,7 +783,7 @@
 
 *difference = \&complement;
 
-sub simmetric_difference {
+sub symmetric_difference {
     my $a1 = shift;
     my $b1;
     if (ref ($_[0]) eq ref($a1) ) {
@@ -796,6 +796,8 @@
     return $a1->complement( $b1 )->union(
            $b1->complement( $a1 ) );
 }
+
+*simmetric_difference = \&symmetric_difference; # bugfix
 
 sub min { 
     ($_[0]->min_a)[0];
@@ -1013,7 +1015,7 @@
     $set = $set->complement;
     $set = $set->complement($b);   # can also be called "minus" or "difference"
 
-    $set = $set->simmetric_difference( $b );
+    $set = $set->symmetric_difference( $b );
 
     $set = $set->span;   
 

Modified: branches/upstream/libset-infinite-perl/current/t/infinite.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libset-infinite-perl/current/t/infinite.t?rev=57389&op=diff
==============================================================================
--- branches/upstream/libset-infinite-perl/current/t/infinite.t (original)
+++ branches/upstream/libset-infinite-perl/current/t/infinite.t Mon May  3 14:22:18 2010
@@ -89,8 +89,8 @@
 # print " a is ", $a, "\n";
 test ("$a union (10..13)  ", '$a->union(10, 13)', "[10..13],[16..17]"); # 5
 
-# simmetric_difference
-test ("$a simmetric_difference (10..16.5)  ", '$a->simmetric_difference(10, 16.5)', "[10..16),(16.5..17]"); # 5.5
+# symmetric_difference
+test ("$a symmetric_difference (10..16.5)  ", '$a->symmetric_difference(10, 16.5)', "[10..16),(16.5..17]"); # 5.5
 
 # universal_set
 test ("universal_set ", 'Set::Infinite->universal_set', "($neg_inf..$inf)" );


