Hello community, here is the log from the commit of package perl-Set-Scalar for openSUSE:Factory checked in at 2013-07-29 17:50:42 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Set-Scalar (Old) and /work/SRC/openSUSE:Factory/.perl-Set-Scalar.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Set-Scalar" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Set-Scalar/perl-Set-Scalar.changes 2013-03-01 08:03:57.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Set-Scalar.new/perl-Set-Scalar.changes 2013-07-29 17:50:44.000000000 +0200 @@ -1,0 +2,13 @@ +Fri Jul 26 18:31:45 UTC 2013 - [email protected] + +- updated to 1.26 + * Fixed "Set::Scalar::Valued" [rt.cpan.org #69037], bug reported + and fix supplied by Kiran Mukhyala, the problem was in null() + not being defined for valued set universes. + + * Fixed qq[More whitespace in examples could show "picture" of + operations] [rt.cpan.org #54172 and #54173], bug reported + and fix supplied by MichaelRWolf. (ASCII art, so relies + on fixed-width font.) + +------------------------------------------------------------------- Old: ---- Set-Scalar-1.25.tar.gz New: ---- Set-Scalar-1.26.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Set-Scalar.spec ++++++ --- /var/tmp/diff_new_pack.1nhsCd/_old 2013-07-29 17:50:45.000000000 +0200 +++ /var/tmp/diff_new_pack.1nhsCd/_new 2013-07-29 17:50:45.000000000 +0200 @@ -17,55 +17,48 @@ Name: perl-Set-Scalar -Version: 1.25 +Version: 1.26 Release: 0 -Url: http://cpan.org/modules/by-module/Set/ -Summary: Set of scalars -License: Artistic-1.0 or GPL-2.0+ +%define cpan_name Set-Scalar +Summary: This module implements a Set of scalars +License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl -Source0: http://cpan.org/modules/by-module/Set/Set-Scalar-%{version}.tar.gz +Url: http://search.cpan.org/dist/Set-Scalar/ +Source: http://www.cpan.org/authors/id/D/DA/DAVIDO/%{cpan_name}-%{version}.tar.gz +BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build -%{perl_requires} BuildRequires: perl BuildRequires: perl-macros +#BuildRequires: perl(Set::Scalar) +#BuildRequires: perl(Set::Scalar::Base) +#BuildRequires: perl(Set::Scalar::Null) +#BuildRequires: perl(Set::Scalar::Real) +#BuildRequires: perl(Set::Scalar::Universe) +#BuildRequires: perl(Set::Scalar::Valued) +#BuildRequires: perl(Set::Scalar::ValuedUniverse) +#BuildRequires: perl(Set::Scalar::Virtual) +%{perl_requires} %description This module implements a Set of scalars. - - -Authors: --------- - Jarkko Hietaniemi <[email protected]> - %prep -%setup -n Set-Scalar-%{version} -q +%setup -q -n %{cpan_name}-%{version} %build -# replace rest of /usr/local/bin/perl with /usr/bin/perl -for f in `find . -type f -exec grep -l /usr/local/bin/perl \{\} \;` ; do - rm -f tmp - sed -e "s:/usr/local/bin/perl:/usr/bin/perl:g" $f > tmp - mv -f tmp $f -done -perl Makefile.PL -make %{?_smp_mflags} +%{__perl} Makefile.PL INSTALLDIRS=vendor +%{__make} %{?_smp_mflags} %check -make test +%{__make} test %install -make DESTDIR=$RPM_BUILD_ROOT install_vendor +%perl_make_install %perl_process_packlist +%perl_gen_filelist -%clean -rm -rf $RPM_BUILD_ROOT - -%files -%defattr(-, root, root) -%doc README ChangeLog -%doc %{_mandir}/man?/* -%{perl_vendorlib}/Set -%{perl_vendorarch}/auto/Set +%files -f %{name}.files +%defattr(-,root,root,755) +%doc ChangeLog README README.old %changelog ++++++ Set-Scalar-1.25.tar.gz -> Set-Scalar-1.26.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Set-Scalar-1.25/ChangeLog new/Set-Scalar-1.26/ChangeLog --- old/Set-Scalar-1.25/ChangeLog 2009-12-27 15:55:42.000000000 +0100 +++ new/Set-Scalar-1.26/ChangeLog 2013-06-15 15:18:50.000000000 +0200 @@ -1,3 +1,16 @@ +2013-06-15 Jarkko Hietaniemi <[email protected]> + + * Fixed "Set::Scalar::Valued" [rt.cpan.org #69037], bug reported + and fix supplied by Kiran Mukhyala, the problem was in null() + not being defined for valued set universes. + + * Fixed qq[More whitespace in examples could show "picture" of + operations] [rt.cpan.org #54172 and #54173], bug reported + and fix supplied by MichaelRWolf. (ASCII art, so relies + on fixed-width font.) + + * Released as 1.26. + 2009-12-27 Jarkko Hietaniemi <[email protected]> * Fixed "trying to add an element twice prevents further diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Set-Scalar-1.25/MANIFEST new/Set-Scalar-1.26/MANIFEST --- old/Set-Scalar-1.25/MANIFEST 2009-06-03 02:17:01.000000000 +0200 +++ new/Set-Scalar-1.26/MANIFEST 2013-06-15 15:22:53.000000000 +0200 @@ -32,5 +32,7 @@ t/union.t t/unique.t t/universe.t +t/valued.t META.yml Module meta-data (added by MakeMaker) +META.json Module JSON meta-data (added by MakeMaker) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Set-Scalar-1.25/META.json new/Set-Scalar-1.26/META.json --- old/Set-Scalar-1.25/META.json 1970-01-01 01:00:00.000000000 +0100 +++ new/Set-Scalar-1.26/META.json 2013-06-15 15:22:53.000000000 +0200 @@ -0,0 +1,39 @@ +{ + "abstract" : "unknown", + "author" : [ + "Jarkko Hietaniemi <[email protected]>" + ], + "dynamic_config" : 1, + "generated_by" : "ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter version 2.120630", + "license" : [ + "perl_5" + ], + "meta-spec" : { + "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";, + "version" : "2" + }, + "name" : "Set-Scalar", + "no_index" : { + "directory" : [ + "t", + "inc" + ] + }, + "prereqs" : { + "build" : { + "requires" : { + "ExtUtils::MakeMaker" : "0" + } + }, + "configure" : { + "requires" : { + "ExtUtils::MakeMaker" : "0" + } + }, + "runtime" : { + "requires" : {} + } + }, + "release_status" : "stable", + "version" : "1.26" +} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Set-Scalar-1.25/META.yml new/Set-Scalar-1.26/META.yml --- old/Set-Scalar-1.25/META.yml 2009-12-27 15:55:52.000000000 +0100 +++ new/Set-Scalar-1.26/META.yml 2013-06-15 15:22:53.000000000 +0200 @@ -1,21 +1,21 @@ ---- #YAML:1.0 -name: Set-Scalar -version: 1.25 -abstract: ~ +--- +abstract: unknown author: - - Jarkko Hietaniemi <[email protected]> -license: perl -distribution_type: module -configure_requires: - ExtUtils::MakeMaker: 0 + - 'Jarkko Hietaniemi <[email protected]>' build_requires: - ExtUtils::MakeMaker: 0 -requires: {} -no_index: - directory: - - t - - inc -generated_by: ExtUtils::MakeMaker version 6.55_02 + ExtUtils::MakeMaker: 0 +configure_requires: + ExtUtils::MakeMaker: 0 +dynamic_config: 1 +generated_by: 'ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter version 2.120630' +license: perl meta-spec: - url: http://module-build.sourceforge.net/META-spec-v1.4.html - version: 1.4 + url: http://module-build.sourceforge.net/META-spec-v1.4.html + version: 1.4 +name: Set-Scalar +no_index: + directory: + - t + - inc +requires: {} +version: 1.26 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Set-Scalar-1.25/lib/Set/Scalar/ValuedUniverse.pm new/Set-Scalar-1.26/lib/Set/Scalar/ValuedUniverse.pm --- old/Set-Scalar-1.25/lib/Set/Scalar/ValuedUniverse.pm 2001-05-03 02:48:04.000000000 +0200 +++ new/Set-Scalar-1.26/lib/Set/Scalar/ValuedUniverse.pm 2013-06-15 15:04:34.000000000 +0200 @@ -8,6 +8,7 @@ @ISA = qw(Set::Scalar::Virtual Set::Scalar::Base); use Set::Scalar::Virtual; +use Set::Scalar::Null; my $UNIVERSE = __PACKAGE__->new; @@ -19,6 +20,11 @@ return $UNIVERSE; } +sub null { + my $self = shift; + return Set::Scalar::Null->new( $self ); +} + =pod =head1 NAME diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Set-Scalar-1.25/lib/Set/Scalar.pm new/Set-Scalar-1.26/lib/Set/Scalar.pm --- old/Set-Scalar-1.25/lib/Set/Scalar.pm 2009-12-27 13:50:01.000000000 +0100 +++ new/Set-Scalar-1.26/lib/Set/Scalar.pm 2013-06-15 15:22:12.000000000 +0200 @@ -5,7 +5,7 @@ use vars qw($VERSION @ISA); -$VERSION = '1.25'; +$VERSION = '1.26'; @ISA = qw(Set::Scalar::Real Set::Scalar::Null Set::Scalar::Base); @@ -79,7 +79,15 @@ print $s, "\n"; The display format of a set is the members of the set separated by -spaces and enclosed in parentheses (). +spaces and enclosed in parentheses (), for example: + + my $s = Set::Scalar->new(); + $s->insert("a".."e"); + print $s, "\n"; + +will output + + a b c d e You can even display recursive sets. @@ -137,25 +145,26 @@ that are in an odd number (1, 3, 5, ...) of sets, C<unique> returns true for elements that are in one set. -Some examples of the various set differences: +Some examples of the various set differences below +(the _ is just used to align the elements): set or difference value - $a (a b c d e) - $b (c d e f g) - $c (e f g h i) - - $a->difference($b) (a b) - $a->symmetric_difference($b) (a b f g) - $a->unique($b) (a b f g) - - $b->difference($a) (f g) - $b->symmetric_difference($a) (a b f g) - $b->unique($a) (a b f g) - - $a->difference($b, $c) (a b) - $a->symmetric_difference($b, $c) (a b e h i) - $a->unique($b, $c) (a b h i) + $a (a b c d e _ _ _ _ _) + $b (_ _ _ c d e f g _ _) + $c (_ _ _ _ _ e f g h i) + + $a->difference($b) (a b _ _ _ _ _ _ _ _) + $a->symmetric_difference($b) (a b _ _ _ _ f g _ _) + $a->unique($b) (a b _ _ _ _ f g _ _) + + $b->difference($a) (_ _ _ _ _ _ f g _ _) + $b->symmetric_difference($a) (a b _ _ _ _ f g _ _) + $b->unique($a) (a b _ _ _ _ f g _ _) + + $a->difference($b, $c) (a b _ _ _ _ _ _ _ _) + $a->symmetric_difference($b, $c) (a b _ _ e _ _ _ h i) + $a->unique($b, $c) (a b _ _ _ _ _ _ h i) =head2 Comparing @@ -234,11 +243,17 @@ There is one iterator per one set which is shared by many element-accessing interfaces-- using the following will reset the -iterator: elements(), insert(), members(), size(), unique(). insert() -causes the iterator of the set being inserted (not the set being the -target of insertion) becoming reset. unique() causes the iterators of -all the participant sets becoming reset. B<The iterator getting reset -most probably causes an endless loop.> So avoid doing that. +iterator: C<elements()>, C<insert()>, C<members()>, C<size()>, +C<unique()>. C<insert()> causes the iterator of the set being +inserted (not the set being the target of insertion) becoming reset. +C<unique()> causes the iterators of all the participant sets becoming +reset. B<The iterator getting reset most probably causes an endless +loop.> So avoid doing that. + +For C<delete()> the story is a little bit more complex: it depends +on what element you are deleting and on the version of Perl. On modern +Perls you can safely delete the element you just deleted. But deleting +random elements can affect the iterator, so beware. =item * @@ -384,7 +399,7 @@ =head1 COPYRIGHT AND LICENSE -Copyright 2001,2002,2003,2004,2005,2007,2009 by Jarkko Hietaniemi +Copyright 2001,2002,2003,2004,2005,2007,2009,2013 by Jarkko Hietaniemi This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Set-Scalar-1.25/t/valued.t new/Set-Scalar-1.26/t/valued.t --- old/Set-Scalar-1.25/t/valued.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Set-Scalar-1.26/t/valued.t 2013-06-15 15:11:38.000000000 +0200 @@ -0,0 +1,30 @@ +use Set::Scalar::Valued; + +use strict; + +print "1..9\n"; + +my $ns = Set::Scalar::Valued->new(); + +print $ns->is_null ? "ok 1\n" : "not ok 1\n"; +print $ns->size == 0 ? "ok 2\n" : "not ok 2\n"; + +print $ns->null->is_null ? "ok 3\n" : "not ok 4\n"; +print $ns->null->size == 0 ? "ok 4\n" : "not ok 4\n"; + +my $vs = Set::Scalar::Valued->new(a=>1); + +print $vs->is_null ? "not ok 5\n" : "ok 5\n"; +print $vs->size == 0 ? "not ok 6\n" : "ok 6\n"; + +print $vs->null->is_null ? "ok 7\n" : "not ok 7\n"; +print $vs->null->size == 0 ? "ok 8\n" : "not ok 8\n"; + +my $a = Set::Scalar::Valued->new(a=>1); +my $b = Set::Scalar::Valued->new(a=>1, b=>2); +my $c = $a-$b; +print "$c" eq "()" ? "ok 9\n" : "not ok 9\n"; + + + + -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
