r37348 - in /trunk/libset-scalar-perl: ChangeLog MANIFEST META.yml README README.old debian/changelog debian/control lib/Set/Scalar.pm lib/Set/Scalar/Base.pm t/intersection.t

nhandler-guest at users.alioth.debian.org nhandler-guest at users.alioth.debian.org
Wed Jun 3 11:53:37 UTC 2009


Author: nhandler-guest
Date: Wed Jun  3 11:53:32 2009
New Revision: 37348

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=37348
Log:
* New upstream release
* debian/docs:
  - Removed. There is no need to install the upstream README file. All
    information that is in it is available from 'perldoc Set::Scalar'

Added:
    trunk/libset-scalar-perl/README.old
      - copied unchanged from r37346, branches/upstream/libset-scalar-perl/current/README.old
Modified:
    trunk/libset-scalar-perl/ChangeLog
    trunk/libset-scalar-perl/MANIFEST
    trunk/libset-scalar-perl/META.yml
    trunk/libset-scalar-perl/README
    trunk/libset-scalar-perl/debian/changelog
    trunk/libset-scalar-perl/debian/control
    trunk/libset-scalar-perl/lib/Set/Scalar.pm
    trunk/libset-scalar-perl/lib/Set/Scalar/Base.pm
    trunk/libset-scalar-perl/t/intersection.t

Modified: trunk/libset-scalar-perl/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-scalar-perl/ChangeLog?rev=37348&op=diff
==============================================================================
--- trunk/libset-scalar-perl/ChangeLog (original)
+++ trunk/libset-scalar-perl/ChangeLog Wed Jun  3 11:53:32 2009
@@ -1,8 +1,24 @@
+2009-06-02  Jarkko Hietaniemi  <jhi at iki.fi>
+
+	* Fixed "The intersection method does not like references in the 
+	  set." [rt.cpan.org #46589], bug reported and fix provided by
+	  Father Chrysostomos.
+
+	* Cosmetics: removed trailing whitespace.
+	
+	* Renamed README as README.old.  It has been close to ten years.
+
+	* Added new README.
+	
+	* Updated copyright years. 
+	
+	* Released as 1.24.
+	
 2009-01-16  Jarkko Hietaniemi  <jhi at iki.fi>
 
 	* Add overload for '@{}' as suggested by John Loverso,
 	  meaning that you can now do @$set and get the members
-	  of the set (unordered, mind) [rt.cpan.org #42452]
+	  of the set (unordered, mind)
 
 	* Add overload for '=' (how did we manage so long without?)
 	  [rt.cpan.org #42449]
@@ -39,7 +55,7 @@
 
 	* [cpan #13816] Set::Scalar blesses unblessed refs
 
-	  A genuine bug, the suggsted fix used, but then again Set::Scalar
+	  A genuine bug, the suggested fix used, but then again Set::Scalar
 	  was never designed or tested be used with references as the set
 	  members.  I would not recommend doing that unless much more
 	  testing has been conducted.  A test added to misc.t for that,

Modified: trunk/libset-scalar-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-scalar-perl/MANIFEST?rev=37348&op=diff
==============================================================================
--- trunk/libset-scalar-perl/MANIFEST (original)
+++ trunk/libset-scalar-perl/MANIFEST Wed Jun  3 11:53:32 2009
@@ -10,6 +10,7 @@
 lib/Set/Scalar/ValuedUniverse.pm
 lib/Set/Scalar/Virtual.pm
 README
+README.old
 t/basic.t
 t/basic_overload.t
 t/boolean.t

Modified: trunk/libset-scalar-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-scalar-perl/META.yml?rev=37348&op=diff
==============================================================================
--- trunk/libset-scalar-perl/META.yml (original)
+++ trunk/libset-scalar-perl/META.yml Wed Jun  3 11:53:32 2009
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Set-Scalar
-version:            1.23
+version:            1.24
 abstract:           ~
 author:
     - Jarkko Hietaniemi <jhi at iki.fi>
@@ -8,12 +8,14 @@
 distribution_type:  module
 configure_requires:
     ExtUtils::MakeMaker:  0
+build_requires:
+    ExtUtils::MakeMaker:  0
 requires:  {}
 no_index:
     directory:
         - t
         - inc
-generated_by:       ExtUtils::MakeMaker version 6.48
+generated_by:       ExtUtils::MakeMaker version 6.52
 meta-spec:
     url:      http://module-build.sourceforge.net/META-spec-v1.4.html
     version:  1.4

Modified: trunk/libset-scalar-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-scalar-perl/README?rev=37348&op=diff
==============================================================================
--- trunk/libset-scalar-perl/README (original)
+++ trunk/libset-scalar-perl/README Wed Jun  3 11:53:32 2009
@@ -1,44 +1,10 @@
-This is a long-waited-for (I hope) rewrite of the venerable Set::Scalar
-module.  The original 0.00x series culminated in 0.003 back in May 1996,
-the 0.004 in October 1998 was just a minor update.
+The first priority of Set::Scalar is to be a convenient interface
+to sets (as in: unordered colletions of Perl scalars.)  While not
+designed to be slow or big, neither has it been designed to be
+fast or compact.
 
-The most egregious problem with the old implementation was that having
-complex things such as objects as set members (for example if sets of sets
-were wanted) didn't really work.
-
-While this new implementation is more correct, it may be also slower.
-Some operations are certainly slower, but some are faster.  It all
-depends on your mix of operations.
-
-Displaying sets is not as versatile as with the old implementation,
-but then on the other hand I doubt (hope) that anybody ever used the
-overly baroque interface anyway.  If, however, I am wrong in this,
-please let me know, I'll think of something.  The old interface should
-not be revived as such, I think, it was far too clunky.
-
-The "valued sets" concept is now moved to its own subclass,
-Set::Scalar::Valued.
-
-(There are two meta-classes, Set::Scalar::Universe and
- Set::Scalar::ValuedUniverse, but do not use them overmuch, as there
- are still some rough edges that may change in future releases.
- Do not use them directly (by instantiating them yourself, for example),
- $set->universe is about the only method that works and will continue
- to work.  Even more internal-use-only are the Set::Scalar::Real and
- Set::Scalar::Virtual.  Do not try to use them directly.
- Their interfaces are left undocumented on purpose.)
-
-The "inverted sets" concept is history, removed, gone, not to return.
-You can just use -$set.
-
-Let me know what you think, did I miss anything obvious?  Any old
-functionality that I didn't purposefully/accidentally migrate to
-the new one?  Could the documentation be better? (a rhetorical question)
-Any new functionality you would like to see?  (Please don't say that
-you want the Cartesian product: it's a concept from wholly different
-world, the ordered sets.  My sets are unordered.)
+Please see lib/Set/Scalar.pm for more information, once you have
+installed this module, "perldoc Set::Scalar" should work.
 
 -- 
-Jarkko Hietaniemi <jhi at iki.fi>
-
-
+jhi at iki.fi

Modified: trunk/libset-scalar-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-scalar-perl/debian/changelog?rev=37348&op=diff
==============================================================================
--- trunk/libset-scalar-perl/debian/changelog (original)
+++ trunk/libset-scalar-perl/debian/changelog Wed Jun  3 11:53:32 2009
@@ -1,3 +1,12 @@
+libset-scalar-perl (1.24-1) unstable; urgency=low
+
+  * New upstream release
+  * debian/docs:
+    - Removed. There is no need to install the upstream README file. All
+      information that is in it is available from 'perldoc Set::Scalar'
+
+ -- Nathan Handler <nhandler at ubuntu.com>  Wed, 03 Jun 2009 11:53:17 +0000
+
 libset-scalar-perl (1.23-1) unstable; urgency=low
 
   [ Brian Cassidy ]

Modified: trunk/libset-scalar-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-scalar-perl/debian/control?rev=37348&op=diff
==============================================================================
--- trunk/libset-scalar-perl/debian/control (original)
+++ trunk/libset-scalar-perl/debian/control Wed Jun  3 11:53:32 2009
@@ -3,7 +3,7 @@
 Priority: extra
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
 Uploaders: Jose Luis Rivas <ghostbar38 at gmail.com>,
- Brian Cassidy <brian.cassidy at gmail.com>
+ Brian Cassidy <brian.cassidy at gmail.com>, Nathan Handler <nhandler at ubuntu.com>
 Build-Depends: debhelper (>= 7)
 Build-Depends-Indep: perl
 Standards-Version: 3.8.1

Modified: trunk/libset-scalar-perl/lib/Set/Scalar.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-scalar-perl/lib/Set/Scalar.pm?rev=37348&op=diff
==============================================================================
--- trunk/libset-scalar-perl/lib/Set/Scalar.pm (original)
+++ trunk/libset-scalar-perl/lib/Set/Scalar.pm Wed Jun  3 11:53:32 2009
@@ -5,7 +5,7 @@
 
 use vars qw($VERSION @ISA);
 
-$VERSION = '1.23';
+$VERSION = '1.24';
 
 @ISA = qw(Set::Scalar::Real Set::Scalar::Null Set::Scalar::Base);
 
@@ -57,7 +57,7 @@
 =head2 Creating
 
     $s = Set::Scalar->new;
-    $s = Set::Scalar->new(@members); 
+    $s = Set::Scalar->new(@members);
 
     $t = $s->clone;
     $t = $s->copy;         # Clone of clone.
@@ -106,6 +106,7 @@
 
     $s->is_null        # Returns true if the set is empty.
     $s->is_empty       # Alias for is_null.
+
     $s->is_universal   # Returns true if the set is universal.
 
     $s->null           # The null set.
@@ -121,7 +122,7 @@
     $v = $s->unique($t);
     $c = $s->complement;
 
-These methods have operator overloads:    
+These methods have operator overloads:
 
     $u = $s + $t;  # union
     $i = $s * $t;  # intersection
@@ -173,7 +174,7 @@
 intersect", and in future (once I get around implementing it),
 "disjoint universes".
 
-These methods have operator overloads:    
+These methods have operator overloads:
 
     $eq = $s == $t;  # is_equal
     $dj = $s != $t;  # is_disjoint
@@ -277,7 +278,7 @@
 
   my $a = Set::Scalar->new(1..2);
   my $b = Set::Scalar->new(3..5);
-  my $c = $a->cartesian_product($b);  # As an object method. 
+  my $c = $a->cartesian_product($b);  # As an object method.
   my $d = Set::Scalar->cartesian_product($a, $b);  # As a class method.
 
 The $c and $d will be of the same class as $a.  The members of $c and
@@ -383,10 +384,10 @@
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright 2001,2002,2003,2004 by Jarkko Hietaniemi
+Copyright 2001,2002,2003,2004,2005,2007,2009 by Jarkko Hietaniemi
 
 This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself. 
+it under the same terms as Perl itself.
 
 =cut
 

Modified: trunk/libset-scalar-perl/lib/Set/Scalar/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-scalar-perl/lib/Set/Scalar/Base.pm?rev=37348&op=diff
==============================================================================
--- trunk/libset-scalar-perl/lib/Set/Scalar/Base.pm (original)
+++ trunk/libset-scalar-perl/lib/Set/Scalar/Base.pm Wed Jun  3 11:53:32 2009
@@ -306,7 +306,7 @@
 
     my %intersection = _make_elements $intersection->elements;
 
-    delete @intersection{ $that->elements };
+    delete @intersection{ keys %{{ _make_elements $that->elements }} };
 
     $intersection->delete( values %intersection );
 

Modified: trunk/libset-scalar-perl/t/intersection.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-scalar-perl/t/intersection.t?rev=37348&op=diff
==============================================================================
--- trunk/libset-scalar-perl/t/intersection.t (original)
+++ trunk/libset-scalar-perl/t/intersection.t Wed Jun  3 11:53:32 2009
@@ -1,6 +1,6 @@
 use Set::Scalar;
 
-print "1..23\n";
+print "1..24\n";
 
 my $a = Set::Scalar->new("a".."e");
 my $b = Set::Scalar->new("c".."g");
@@ -95,6 +95,12 @@
 	print "ok 23\n";
 }
 
+print "not " unless join("", sort @{
+	new Set::Scalar \$1,\$2,\$3,->intersection(
+		new Set::Scalar \$2,\$3,\$4
+	)
+}) eq join "", sort \$2,\$3;
+print "ok 24\n";
 
 
 




More information about the Pkg-perl-cvs-commits mailing list