Hello community,
here is the log from the commit of package perl-Perl6-Junction for
openSUSE:Factory checked in at 2013-06-13 20:06:04
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Perl6-Junction (Old)
and /work/SRC/openSUSE:Factory/.perl-Perl6-Junction.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Perl6-Junction"
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Perl6-Junction/perl-Perl6-Junction.changes
2011-09-23 12:38:34.000000000 +0200
+++
/work/SRC/openSUSE:Factory/.perl-Perl6-Junction.new/perl-Perl6-Junction.changes
2013-06-13 20:06:06.000000000 +0200
@@ -1,0 +2,7 @@
+Sun Jun 9 15:02:04 UTC 2013 - [email protected]
+
+- updated to 1.50000
+ - Add support for smartmatch (~~) for perl 5.10.1 and higher.
+ (Ricardo Signes)
+
+-------------------------------------------------------------------
Old:
----
Perl6-Junction-1.40000.tar.gz
New:
----
Perl6-Junction-1.50000.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Perl6-Junction.spec ++++++
--- /var/tmp/diff_new_pack.3Ahu7L/_old 2013-06-13 20:06:07.000000000 +0200
+++ /var/tmp/diff_new_pack.3Ahu7L/_new 2013-06-13 20:06:07.000000000 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-Perl6-Junction
#
-# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany.
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -16,20 +16,25 @@
#
-
Name: perl-Perl6-Junction
-Version: 1.40000
-Release: 1
-License: GPL-1.0+ or Artistic-1.0
+Version: 1.50000
+Release: 0
%define cpan_name Perl6-Junction
Summary: Perl6 style Junction operators in Perl5.
-Url: http://search.cpan.org/dist/Perl6-Junction/
+License: Artistic-1.0 or GPL-1.0+
Group: Development/Libraries/Perl
+Url: http://search.cpan.org/dist/Perl6-Junction/
Source:
http://www.cpan.org/authors/id/C/CF/CFRANKS/%{cpan_name}-%{version}.tar.gz
BuildArch: noarch
BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
BuildRequires: perl-macros
+#BuildRequires: perl(Perl6::Junction)
+#BuildRequires: perl(Perl6::Junction::All)
+#BuildRequires: perl(Perl6::Junction::Any)
+#BuildRequires: perl(Perl6::Junction::Base)
+#BuildRequires: perl(Perl6::Junction::None)
+#BuildRequires: perl(Perl6::Junction::One)
%{perl_requires}
%description
@@ -62,11 +67,8 @@
%perl_process_packlist
%perl_gen_filelist
-%clean
-%{__rm} -rf %{buildroot}
-
%files -f %{name}.files
%defattr(-,root,root,755)
-%doc Changes README
+%doc Changes MYMETA.json MYMETA.yml README
%changelog
++++++ Perl6-Junction-1.40000.tar.gz -> Perl6-Junction-1.50000.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Perl6-Junction-1.40000/Changes
new/Perl6-Junction-1.50000/Changes
--- old/Perl6-Junction-1.40000/Changes 2008-06-20 10:42:13.000000000 +0200
+++ new/Perl6-Junction-1.50000/Changes 2012-09-11 21:13:18.000000000 +0200
@@ -1,3 +1,8 @@
+1.50000 2012-09-11
+
+ - Add support for smartmatch (~~) for perl 5.10.1 and higher.
+ (Ricardo Signes)
+
1.40000 2008-06-20
- Added 'values' method to ensure that we can fetch data from junctions
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Perl6-Junction-1.40000/MANIFEST
new/Perl6-Junction-1.50000/MANIFEST
--- old/Perl6-Junction-1.40000/MANIFEST 2008-06-20 10:52:18.000000000 +0200
+++ new/Perl6-Junction-1.50000/MANIFEST 2012-09-11 21:42:27.000000000 +0200
@@ -17,3 +17,6 @@
t/none.t
t/one.t
META.yml Module meta-data (added by MakeMaker)
+META.json
+MYMETA.yml
+MYMETA.json
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Perl6-Junction-1.40000/META.json
new/Perl6-Junction-1.50000/META.json
--- old/Perl6-Junction-1.40000/META.json 1970-01-01 01:00:00.000000000
+0100
+++ new/Perl6-Junction-1.50000/META.json 2012-09-11 21:50:02.000000000
+0200
@@ -0,0 +1,42 @@
+{
+ "abstract" : "Perl6 style Junction operators in Perl5.",
+ "author" : [
+ "Carl Franks"
+ ],
+ "dynamic_config" : 1,
+ "generated_by" : "ExtUtils::MakeMaker version 6.62, CPAN::Meta::Converter
version 2.120921",
+ "license" : [
+ "perl_5"
+ ],
+ "meta-spec" : {
+ "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";,
+ "version" : "2"
+ },
+ "name" : "Perl6-Junction",
+ "no_index" : {
+ "directory" : [
+ "t",
+ "inc"
+ ]
+ },
+ "prereqs" : {
+ "build" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : "0"
+ }
+ },
+ "configure" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : "0"
+ }
+ },
+ "runtime" : {
+ "requires" : {
+ "Carp" : "0",
+ "Test::More" : "0"
+ }
+ }
+ },
+ "release_status" : "stable",
+ "version" : "1.50000"
+}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Perl6-Junction-1.40000/META.yml
new/Perl6-Junction-1.50000/META.yml
--- old/Perl6-Junction-1.40000/META.yml 2008-06-20 10:52:18.000000000 +0200
+++ new/Perl6-Junction-1.50000/META.yml 2012-09-11 21:50:02.000000000 +0200
@@ -1,14 +1,23 @@
---- #YAML:1.0
-name: Perl6-Junction
-version: 1.40000
-abstract: ~
-license: ~
-author: ~
-generated_by: ExtUtils::MakeMaker version 6.44
-distribution_type: module
-requires:
- Carp: 0
- Test::More: 0
+---
+abstract: 'Perl6 style Junction operators in Perl5.'
+author:
+ - 'Carl Franks'
+build_requires:
+ ExtUtils::MakeMaker: 0
+configure_requires:
+ ExtUtils::MakeMaker: 0
+dynamic_config: 1
+generated_by: 'ExtUtils::MakeMaker version 6.62, CPAN::Meta::Converter version
2.120921'
+license: perl
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.3.html
- version: 1.3
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
+name: Perl6-Junction
+no_index:
+ directory:
+ - t
+ - inc
+requires:
+ Carp: 0
+ Test::More: 0
+version: 1.50000
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Perl6-Junction-1.40000/MYMETA.json
new/Perl6-Junction-1.50000/MYMETA.json
--- old/Perl6-Junction-1.40000/MYMETA.json 1970-01-01 01:00:00.000000000
+0100
+++ new/Perl6-Junction-1.50000/MYMETA.json 2012-09-11 21:49:55.000000000
+0200
@@ -0,0 +1,42 @@
+{
+ "abstract" : "Perl6 style Junction operators in Perl5.",
+ "author" : [
+ "Carl Franks"
+ ],
+ "dynamic_config" : 0,
+ "generated_by" : "ExtUtils::MakeMaker version 6.62, CPAN::Meta::Converter
version 2.120921",
+ "license" : [
+ "perl_5"
+ ],
+ "meta-spec" : {
+ "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";,
+ "version" : "2"
+ },
+ "name" : "Perl6-Junction",
+ "no_index" : {
+ "directory" : [
+ "t",
+ "inc"
+ ]
+ },
+ "prereqs" : {
+ "build" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : "0"
+ }
+ },
+ "configure" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : "0"
+ }
+ },
+ "runtime" : {
+ "requires" : {
+ "Carp" : "0",
+ "Test::More" : "0"
+ }
+ }
+ },
+ "release_status" : "stable",
+ "version" : "1.50000"
+}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Perl6-Junction-1.40000/MYMETA.yml
new/Perl6-Junction-1.50000/MYMETA.yml
--- old/Perl6-Junction-1.40000/MYMETA.yml 1970-01-01 01:00:00.000000000
+0100
+++ new/Perl6-Junction-1.50000/MYMETA.yml 2012-09-11 21:49:55.000000000
+0200
@@ -0,0 +1,23 @@
+---
+abstract: 'Perl6 style Junction operators in Perl5.'
+author:
+ - 'Carl Franks'
+build_requires:
+ ExtUtils::MakeMaker: 0
+configure_requires:
+ ExtUtils::MakeMaker: 0
+dynamic_config: 0
+generated_by: 'ExtUtils::MakeMaker version 6.62, CPAN::Meta::Converter version
2.120921'
+license: perl
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
+name: Perl6-Junction
+no_index:
+ directory:
+ - t
+ - inc
+requires:
+ Carp: 0
+ Test::More: 0
+version: 1.50000
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Perl6-Junction-1.40000/Makefile.PL
new/Perl6-Junction-1.50000/Makefile.PL
--- old/Perl6-Junction-1.40000/Makefile.PL 2008-06-20 10:11:57.000000000
+0200
+++ new/Perl6-Junction-1.50000/Makefile.PL 2012-09-11 21:49:16.000000000
+0200
@@ -2,9 +2,12 @@
use ExtUtils::MakeMaker;
WriteMakefile(
- NAME => 'Perl6::Junction',
- VERSION_FROM => 'lib/Perl6/Junction.pm',
- PREREQ_PM => {
+ NAME => 'Perl6::Junction',
+ AUTHOR => 'Carl Franks',
+ ABSTRACT_FROM => 'lib/Perl6/Junction.pm',
+ VERSION_FROM => 'lib/Perl6/Junction.pm',
+ LICENSE => 'perl',
+ PREREQ_PM => {
Carp => 0,
Test::More => 0,
},
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Perl6-Junction-1.40000/lib/Perl6/Junction/All.pm
new/Perl6-Junction-1.50000/lib/Perl6/Junction/All.pm
--- old/Perl6-Junction-1.40000/lib/Perl6/Junction/All.pm 2008-06-20
10:44:34.000000000 +0200
+++ new/Perl6-Junction-1.50000/lib/Perl6/Junction/All.pm 2012-09-11
21:13:18.000000000 +0200
@@ -1,9 +1,33 @@
package Perl6::Junction::All;
use strict;
-our $VERSION = '1.40000';
+our $VERSION = '1.50000';
use base 'Perl6::Junction::Base';
+BEGIN {
+ if ($] >= 5.010001) {
+ eval q<
+sub match {
+ my ( $self, $other, $is_rhs ) = @_;
+
+ if ($is_rhs) {
+ for (@$self) {
+ return unless $other ~~ $_;
+ }
+
+ return 1;
+ }
+
+ for (@$self) {
+ return unless $_ ~~ $other;
+ }
+
+ return 1;
+}
+>
+ }
+}
+
sub num_eq {
return regex_eq(@_) if ref( $_[1] ) eq 'Regexp';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Perl6-Junction-1.40000/lib/Perl6/Junction/Any.pm
new/Perl6-Junction-1.50000/lib/Perl6/Junction/Any.pm
--- old/Perl6-Junction-1.40000/lib/Perl6/Junction/Any.pm 2008-06-20
10:44:34.000000000 +0200
+++ new/Perl6-Junction-1.50000/lib/Perl6/Junction/Any.pm 2012-09-11
21:13:18.000000000 +0200
@@ -1,9 +1,33 @@
package Perl6::Junction::Any;
use strict;
-our $VERSION = '1.40000';
+our $VERSION = '1.50000';
use base 'Perl6::Junction::Base';
+BEGIN {
+ if ($] >= 5.010001) {
+ eval q<
+sub match {
+ my ( $self, $other, $is_rhs ) = @_;
+
+ if ($is_rhs) {
+ for (@$self) {
+ return 1 if $other ~~ $_;
+ }
+
+ return;
+ }
+
+ for (@$self) {
+ return 1 if $_ ~~ $other;
+ }
+
+ return;
+}
+>
+ }
+}
+
sub num_eq {
return regex_eq(@_) if ref( $_[1] ) eq 'Regexp';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Perl6-Junction-1.40000/lib/Perl6/Junction/Base.pm
new/Perl6-Junction-1.50000/lib/Perl6/Junction/Base.pm
--- old/Perl6-Junction-1.40000/lib/Perl6/Junction/Base.pm 2008-06-20
10:44:34.000000000 +0200
+++ new/Perl6-Junction-1.50000/lib/Perl6/Junction/Base.pm 2012-09-11
21:13:18.000000000 +0200
@@ -1,6 +1,6 @@
package Perl6::Junction::Base;
use strict;
-our $VERSION = '1.40000';
+our $VERSION = '1.50000';
use overload(
'==' => "num_eq",
@@ -19,6 +19,8 @@
'""' => sub {shift},
);
+use if ($] >= 5.010001), overload => '~~' => 'match';
+
sub new {
my ( $class, @param ) = @_;
return bless \@param, $class;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Perl6-Junction-1.40000/lib/Perl6/Junction/None.pm
new/Perl6-Junction-1.50000/lib/Perl6/Junction/None.pm
--- old/Perl6-Junction-1.40000/lib/Perl6/Junction/None.pm 2008-06-20
10:44:34.000000000 +0200
+++ new/Perl6-Junction-1.50000/lib/Perl6/Junction/None.pm 2012-09-11
21:13:18.000000000 +0200
@@ -1,9 +1,33 @@
package Perl6::Junction::None;
use strict;
-our $VERSION = '1.40000';
+our $VERSION = '1.50000';
use base 'Perl6::Junction::Base';
+BEGIN {
+ if ($] >= 5.010001) {
+ eval q<
+sub match {
+ my ( $self, $other, $is_rhs ) = @_;
+
+ if ($is_rhs) {
+ for (@$self) {
+ return if $other ~~ $_;
+ }
+
+ return 1;
+ }
+
+ for (@$self) {
+ return if $_ ~~ $other;
+ }
+
+ return 1;
+}
+>
+ }
+}
+
sub num_eq {
return regex_eq(@_) if ref( $_[1] ) eq 'Regexp';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Perl6-Junction-1.40000/lib/Perl6/Junction/One.pm
new/Perl6-Junction-1.50000/lib/Perl6/Junction/One.pm
--- old/Perl6-Junction-1.40000/lib/Perl6/Junction/One.pm 2008-06-20
10:44:34.000000000 +0200
+++ new/Perl6-Junction-1.50000/lib/Perl6/Junction/One.pm 2012-09-11
21:13:18.000000000 +0200
@@ -1,9 +1,42 @@
package Perl6::Junction::One;
use strict;
-our $VERSION = '1.40000';
+our $VERSION = '1.50000';
use base 'Perl6::Junction::Base';
+BEGIN {
+ if ($] >= 5.010001) {
+ eval q<
+sub match {
+ my ( $self, $other, $is_rhs ) = @_;
+
+ my $count = 0;
+
+ if ($is_rhs) {
+
+ for (@$self) {
+ if ($other ~~ $_) {
+ return if $count;
+ $count = 1;
+ }
+ }
+
+ return($count == 1);
+ }
+
+ for (@$self) {
+ if ($_ ~~ $other) {
+ return if $count;
+ $count = 1;
+ }
+ }
+
+ return($count == 1);
+}
+>
+ }
+}
+
sub num_eq {
return regex_eq(@_) if ref( $_[1] ) eq 'Regexp';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Perl6-Junction-1.40000/lib/Perl6/Junction.pm
new/Perl6-Junction-1.50000/lib/Perl6/Junction.pm
--- old/Perl6-Junction-1.40000/lib/Perl6/Junction.pm 2008-06-20
10:49:35.000000000 +0200
+++ new/Perl6-Junction-1.50000/lib/Perl6/Junction.pm 2012-09-11
21:13:18.000000000 +0200
@@ -7,7 +7,7 @@
use Perl6::Junction::One;
require Exporter;
-our $VERSION = '1.40000';
+our $VERSION = '1.50000';
our @ISA = qw/ Exporter /;
my @routines = qw/ all any none one /;
@@ -91,6 +91,7 @@
'<', '<=', '>', '>=', '==', '!=',
'lt', 'le', 'gt', 'ge', 'eq', 'ne',
+ '~~'
Returns true only if B<all> arguments test true according to the operator
used.
@@ -101,6 +102,7 @@
'<', '<=', '>', '>=', '==', '!=',
'lt', 'le', 'gt', 'ge', 'eq', 'ne',
+ '~~'
Returns true if B<any> argument tests true according to the operator used.
@@ -110,6 +112,7 @@
'<', '<=', '>', '>=', '==', '!=',
'lt', 'le', 'gt', 'ge', 'eq', 'ne',
+ '~~'
Returns true only if B<no> argument tests true according to the operator
used.
@@ -120,6 +123,7 @@
'<', '<=', '>', '>=', '==', '!=',
'lt', 'le', 'gt', 'ge', 'eq', 'ne',
+ '~~'
Returns true only if B<one and only one> argument tests true according to
the operator used.
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
