r49455 - in /trunk/libset-scalar-perl: ChangeLog META.yml debian/changelog debian/control 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:09:39 UTC 2009
Author: carnil-guest
Date: Mon Dec 28 07:09:32 2009
New Revision: 49455
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=49455
Log:
* New upstream release
* Add myself to Uploaders.
Modified:
trunk/libset-scalar-perl/ChangeLog
trunk/libset-scalar-perl/META.yml
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/lib/Set/Scalar/Virtual.pm
trunk/libset-scalar-perl/t/basic_overload.t
Modified: trunk/libset-scalar-perl/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-scalar-perl/ChangeLog?rev=49455&op=diff
==============================================================================
--- trunk/libset-scalar-perl/ChangeLog (original)
+++ trunk/libset-scalar-perl/ChangeLog Mon Dec 28 07:09:32 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: trunk/libset-scalar-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-scalar-perl/META.yml?rev=49455&op=diff
==============================================================================
--- trunk/libset-scalar-perl/META.yml (original)
+++ trunk/libset-scalar-perl/META.yml Mon Dec 28 07:09:32 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: trunk/libset-scalar-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-scalar-perl/debian/changelog?rev=49455&op=diff
==============================================================================
--- trunk/libset-scalar-perl/debian/changelog (original)
+++ trunk/libset-scalar-perl/debian/changelog Mon Dec 28 07:09:32 2009
@@ -1,8 +1,13 @@
-libset-scalar-perl (1.24-2) UNRELEASED; urgency=low
+libset-scalar-perl (1.25-1) UNRELEASED; urgency=low
+ [ Nathan Handler ]
* debian/watch: Update to ignore development releases.
- -- Nathan Handler <nhandler at ubuntu.com> Sat, 06 Jun 2009 01:37:12 +0000
+ [ Salvatore Bonaccorso ]
+ * New upstream release
+ * Add myself to Uploaders.
+
+ -- Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com> Mon, 28 Dec 2009 08:09:00 +0100
libset-scalar-perl (1.24-1) unstable; urgency=low
Modified: trunk/libset-scalar-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-scalar-perl/debian/control?rev=49455&op=diff
==============================================================================
--- trunk/libset-scalar-perl/debian/control (original)
+++ trunk/libset-scalar-perl/debian/control Mon Dec 28 07:09:32 2009
@@ -3,7 +3,8 @@
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>, Nathan Handler <nhandler at ubuntu.com>
+ Brian Cassidy <brian.cassidy at gmail.com>, Nathan Handler <nhandler at ubuntu.com>,
+ Salvatore Bonaccorso <salvatore.bonaccorso at gmail.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=49455&op=diff
==============================================================================
--- trunk/libset-scalar-perl/lib/Set/Scalar.pm (original)
+++ trunk/libset-scalar-perl/lib/Set/Scalar.pm Mon Dec 28 07:09:32 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: 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=49455&op=diff
==============================================================================
--- trunk/libset-scalar-perl/lib/Set/Scalar/Base.pm (original)
+++ trunk/libset-scalar-perl/lib/Set/Scalar/Base.pm Mon Dec 28 07:09:32 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: trunk/libset-scalar-perl/lib/Set/Scalar/Virtual.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-scalar-perl/lib/Set/Scalar/Virtual.pm?rev=49455&op=diff
==============================================================================
--- trunk/libset-scalar-perl/lib/Set/Scalar/Virtual.pm (original)
+++ trunk/libset-scalar-perl/lib/Set/Scalar/Virtual.pm Mon Dec 28 07:09:32 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: trunk/libset-scalar-perl/t/basic_overload.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-scalar-perl/t/basic_overload.t?rev=49455&op=diff
==============================================================================
--- trunk/libset-scalar-perl/t/basic_overload.t (original)
+++ trunk/libset-scalar-perl/t/basic_overload.t Mon Dec 28 07:09:32 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