r49453 - in /branches/upstream/libset-scalar-perl/current: ChangeLog META.yml lib/Set/Scalar.pm lib/Set/Scalar/Base.pm lib/Set/Scalar/Virtual.pm t/basic_overload.t
carnil-guest at users.alioth.debian.org
carnil-guest at users.alioth.debian.org
Mon Dec 28 07:07:35 UTC 2009
Author: carnil-guest
Date: Mon Dec 28 07:06:10 2009
New Revision: 49453
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=49453
Log:
[svn-upgrade] Integrating new upstream version, libset-scalar-perl (1.25)
Modified:
branches/upstream/libset-scalar-perl/current/ChangeLog
branches/upstream/libset-scalar-perl/current/META.yml
branches/upstream/libset-scalar-perl/current/lib/Set/Scalar.pm
branches/upstream/libset-scalar-perl/current/lib/Set/Scalar/Base.pm
branches/upstream/libset-scalar-perl/current/lib/Set/Scalar/Virtual.pm
branches/upstream/libset-scalar-perl/current/t/basic_overload.t
Modified: branches/upstream/libset-scalar-perl/current/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libset-scalar-perl/current/ChangeLog?rev=49453&op=diff
==============================================================================
--- branches/upstream/libset-scalar-perl/current/ChangeLog (original)
+++ branches/upstream/libset-scalar-perl/current/ChangeLog Mon Dec 28 07:06:10 2009
@@ -1,3 +1,16 @@
+2009-12-27 Jarkko Hietaniemi <jhi at iki.fi>
+
+ * Fixed "trying to add an element twice prevents further
+ adds to the set" [rt.cpan.org #52559], bug reported by
+ Eduard Wulff.
+
+ * Removed unused and deprecated (Perl 5.12?) "use UNIVERSAL 'isa'"
+ from Set/Scalar/Virtual.pm.
+
+ * Add tests for the copy overload.
+
+ * Released as 1.25.
+
2009-06-02 Jarkko Hietaniemi <jhi at iki.fi>
* Fixed "The intersection method does not like references in the
Modified: branches/upstream/libset-scalar-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libset-scalar-perl/current/META.yml?rev=49453&op=diff
==============================================================================
--- branches/upstream/libset-scalar-perl/current/META.yml (original)
+++ branches/upstream/libset-scalar-perl/current/META.yml Mon Dec 28 07:06:10 2009
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Set-Scalar
-version: 1.24
+version: 1.25
abstract: ~
author:
- Jarkko Hietaniemi <jhi at iki.fi>
@@ -15,7 +15,7 @@
directory:
- t
- inc
-generated_by: ExtUtils::MakeMaker version 6.52
+generated_by: ExtUtils::MakeMaker version 6.55_02
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
Modified: branches/upstream/libset-scalar-perl/current/lib/Set/Scalar.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libset-scalar-perl/current/lib/Set/Scalar.pm?rev=49453&op=diff
==============================================================================
--- branches/upstream/libset-scalar-perl/current/lib/Set/Scalar.pm (original)
+++ branches/upstream/libset-scalar-perl/current/lib/Set/Scalar.pm Mon Dec 28 07:06:10 2009
@@ -5,7 +5,7 @@
use vars qw($VERSION @ISA);
-$VERSION = '1.24';
+$VERSION = '1.25';
@ISA = qw(Set::Scalar::Real Set::Scalar::Null Set::Scalar::Base);
Modified: branches/upstream/libset-scalar-perl/current/lib/Set/Scalar/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libset-scalar-perl/current/lib/Set/Scalar/Base.pm?rev=49453&op=diff
==============================================================================
--- branches/upstream/libset-scalar-perl/current/lib/Set/Scalar/Base.pm (original)
+++ branches/upstream/libset-scalar-perl/current/lib/Set/Scalar/Base.pm Mon Dec 28 07:06:10 2009
@@ -1,7 +1,7 @@
package Set::Scalar::Base;
use strict;
-local $^W = 1;
+# local $^W = 1;
require Exporter;
@@ -63,7 +63,7 @@
'>=' => \&is_superset,
'bool' => \&size,
'@{}' => sub { [ $_[0]->members ] },
- '=' => sub { $_[0]->new($_[0]->members) },
+ '=' => sub { $_[0]->clone($_[1]) },
'cmp' => sub { "$_[0]" cmp "$_[1]" };
use constant OVERLOAD_BINARY_2ND_ARG => 1;
@@ -246,8 +246,11 @@
return ($that->clone, 0, ref $that)
if $this->is_null;
- return ($this_universe, 1, ref $this)
- if $this->is_universal || $that->is_universal;
+ return ($this, 1, ref $this)
+ if $this->is_universal;
+
+ return ($that, 1, ref $that)
+ if $that->is_universal;
my $union = $this->clone;
Modified: branches/upstream/libset-scalar-perl/current/lib/Set/Scalar/Virtual.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libset-scalar-perl/current/lib/Set/Scalar/Virtual.pm?rev=49453&op=diff
==============================================================================
--- branches/upstream/libset-scalar-perl/current/lib/Set/Scalar/Virtual.pm (original)
+++ branches/upstream/libset-scalar-perl/current/lib/Set/Scalar/Virtual.pm Mon Dec 28 07:06:10 2009
@@ -8,8 +8,6 @@
@ISA = qw(Set::Scalar::Base);
use Set::Scalar::Base qw(_make_elements as_string _compare _strval);
-
-use UNIVERSAL 'isa';
use overload
'""' => \&as_string,
Modified: branches/upstream/libset-scalar-perl/current/t/basic_overload.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libset-scalar-perl/current/t/basic_overload.t?rev=49453&op=diff
==============================================================================
--- branches/upstream/libset-scalar-perl/current/t/basic_overload.t (original)
+++ branches/upstream/libset-scalar-perl/current/t/basic_overload.t Mon Dec 28 07:06:10 2009
@@ -2,7 +2,7 @@
use strict;
-print "1..30\n";
+print "1..40\n";
my $s = Set::Scalar->new;
@@ -112,7 +112,48 @@
print "ok 29\n";
print "not " unless $s->universe eq "[a b c d e]";
-
print "ok 30\n";
+my $t = $s;
+
+print "not " unless $t->size == 4;
+print "ok 31\n";
+
+print "not " if $t->is_null;
+print "ok 32\n";
+
+print "not " if $t->is_universal;
+print "ok 33\n";
+
+print "not " unless $t eq "(a b d e)";
+print "ok 34\n";
+
+print "not " unless $t->universe eq "[a b c d e]";
+print "ok 35\n";
+
+$t = $t + 'f';
+
+print "not " unless $t eq "(a b d e f)";
+print "ok 36\n";
+
+print "not " unless $t->universe eq "[a b c d e f]";
+print "ok 37\n";
+
+print "not " unless $s eq "(a b d e)";
+print "ok 38\n";
+
+print "not " unless $s->universe eq "[a b c d e f]";
+print "ok 39\n";
+
+my $a = Set::Scalar->new();
+adder(2);
+adder(3);
+adder(34);
+sub adder {
+ my $e = shift;
+ $a = $a + $e;
+}
+print "not " unless $a eq "(2 3 34)";
+print "ok 40\n";
+
# End Of File.
More information about the Pkg-perl-cvs-commits
mailing list