Hello community,
here is the log from the commit of package perl-Perl6-Junction for
openSUSE:Factory checked in at 2013-10-06 14:55:32
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
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
2013-06-13 20:06:06.000000000 +0200
+++
/work/SRC/openSUSE:Factory/.perl-Perl6-Junction.new/perl-Perl6-Junction.changes
2013-10-06 14:55:33.000000000 +0200
@@ -1,0 +2,7 @@
+Fri Oct 4 09:13:40 UTC 2013 - [email protected]
+
+- updated to 1.60000
+ - Removed support for smartmatch - as of perl 5.18.0 smartmatch is
+ marked as experimental, and subject to change or removal.
+
+-------------------------------------------------------------------
Old:
----
Perl6-Junction-1.50000.tar.gz
New:
----
Perl6-Junction-1.60000.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Perl6-Junction.spec ++++++
--- /var/tmp/diff_new_pack.7q4Tru/_old 2013-10-06 14:55:33.000000000 +0200
+++ /var/tmp/diff_new_pack.7q4Tru/_new 2013-10-06 14:55:33.000000000 +0200
@@ -17,7 +17,7 @@
Name: perl-Perl6-Junction
-Version: 1.50000
+Version: 1.60000
Release: 0
%define cpan_name Perl6-Junction
Summary: Perl6 style Junction operators in Perl5.
++++++ Perl6-Junction-1.50000.tar.gz -> Perl6-Junction-1.60000.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Perl6-Junction-1.50000/Changes
new/Perl6-Junction-1.60000/Changes
--- old/Perl6-Junction-1.50000/Changes 2012-09-11 21:13:18.000000000 +0200
+++ new/Perl6-Junction-1.60000/Changes 2013-08-21 16:19:55.000000000 +0200
@@ -1,3 +1,8 @@
+1.60000 2013-08-21
+
+ - Removed support for smartmatch - as of perl 5.18.0 smartmatch is
+ marked as experimental, and subject to change or removal.
+
1.50000 2012-09-11
- Add support for smartmatch (~~) for perl 5.10.1 and higher.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Perl6-Junction-1.50000/META.json
new/Perl6-Junction-1.60000/META.json
--- old/Perl6-Junction-1.50000/META.json 2012-09-11 21:50:02.000000000
+0200
+++ new/Perl6-Junction-1.60000/META.json 2013-08-21 16:23:12.000000000
+0200
@@ -4,7 +4,7 @@
"Carl Franks"
],
"dynamic_config" : 1,
- "generated_by" : "ExtUtils::MakeMaker version 6.62, CPAN::Meta::Converter
version 2.120921",
+ "generated_by" : "ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter
version 2.120630",
"license" : [
"perl_5"
],
@@ -38,5 +38,5 @@
}
},
"release_status" : "stable",
- "version" : "1.50000"
+ "version" : "1.60000"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Perl6-Junction-1.50000/META.yml
new/Perl6-Junction-1.60000/META.yml
--- old/Perl6-Junction-1.50000/META.yml 2012-09-11 21:50:02.000000000 +0200
+++ new/Perl6-Junction-1.60000/META.yml 2013-08-21 16:23:12.000000000 +0200
@@ -7,7 +7,7 @@
configure_requires:
ExtUtils::MakeMaker: 0
dynamic_config: 1
-generated_by: 'ExtUtils::MakeMaker version 6.62, CPAN::Meta::Converter version
2.120921'
+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
@@ -20,4 +20,4 @@
requires:
Carp: 0
Test::More: 0
-version: 1.50000
+version: 1.60000
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Perl6-Junction-1.50000/MYMETA.json
new/Perl6-Junction-1.60000/MYMETA.json
--- old/Perl6-Junction-1.50000/MYMETA.json 2012-09-11 21:49:55.000000000
+0200
+++ new/Perl6-Junction-1.60000/MYMETA.json 2013-08-21 16:23:05.000000000
+0200
@@ -4,7 +4,7 @@
"Carl Franks"
],
"dynamic_config" : 0,
- "generated_by" : "ExtUtils::MakeMaker version 6.62, CPAN::Meta::Converter
version 2.120921",
+ "generated_by" : "ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter
version 2.120630",
"license" : [
"perl_5"
],
@@ -38,5 +38,5 @@
}
},
"release_status" : "stable",
- "version" : "1.50000"
+ "version" : "1.60000"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Perl6-Junction-1.50000/MYMETA.yml
new/Perl6-Junction-1.60000/MYMETA.yml
--- old/Perl6-Junction-1.50000/MYMETA.yml 2012-09-11 21:49:55.000000000
+0200
+++ new/Perl6-Junction-1.60000/MYMETA.yml 2013-08-21 16:23:05.000000000
+0200
@@ -7,7 +7,7 @@
configure_requires:
ExtUtils::MakeMaker: 0
dynamic_config: 0
-generated_by: 'ExtUtils::MakeMaker version 6.62, CPAN::Meta::Converter version
2.120921'
+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
@@ -20,4 +20,4 @@
requires:
Carp: 0
Test::More: 0
-version: 1.50000
+version: 1.60000
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Perl6-Junction-1.50000/lib/Perl6/Junction/All.pm
new/Perl6-Junction-1.60000/lib/Perl6/Junction/All.pm
--- old/Perl6-Junction-1.50000/lib/Perl6/Junction/All.pm 2012-09-11
21:13:18.000000000 +0200
+++ new/Perl6-Junction-1.60000/lib/Perl6/Junction/All.pm 2013-08-21
16:21:15.000000000 +0200
@@ -1,33 +1,9 @@
package Perl6::Junction::All;
use strict;
-our $VERSION = '1.50000';
+our $VERSION = '1.60000';
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.50000/lib/Perl6/Junction/Any.pm
new/Perl6-Junction-1.60000/lib/Perl6/Junction/Any.pm
--- old/Perl6-Junction-1.50000/lib/Perl6/Junction/Any.pm 2012-09-11
21:13:18.000000000 +0200
+++ new/Perl6-Junction-1.60000/lib/Perl6/Junction/Any.pm 2013-08-21
16:21:15.000000000 +0200
@@ -1,33 +1,9 @@
package Perl6::Junction::Any;
use strict;
-our $VERSION = '1.50000';
+our $VERSION = '1.60000';
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.50000/lib/Perl6/Junction/Base.pm
new/Perl6-Junction-1.60000/lib/Perl6/Junction/Base.pm
--- old/Perl6-Junction-1.50000/lib/Perl6/Junction/Base.pm 2012-09-11
21:13:18.000000000 +0200
+++ new/Perl6-Junction-1.60000/lib/Perl6/Junction/Base.pm 2013-08-21
16:21:15.000000000 +0200
@@ -1,6 +1,6 @@
package Perl6::Junction::Base;
use strict;
-our $VERSION = '1.50000';
+our $VERSION = '1.60000';
use overload(
'==' => "num_eq",
@@ -19,8 +19,6 @@
'""' => 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.50000/lib/Perl6/Junction/None.pm
new/Perl6-Junction-1.60000/lib/Perl6/Junction/None.pm
--- old/Perl6-Junction-1.50000/lib/Perl6/Junction/None.pm 2012-09-11
21:13:18.000000000 +0200
+++ new/Perl6-Junction-1.60000/lib/Perl6/Junction/None.pm 2013-08-21
16:21:15.000000000 +0200
@@ -1,33 +1,9 @@
package Perl6::Junction::None;
use strict;
-our $VERSION = '1.50000';
+our $VERSION = '1.60000';
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.50000/lib/Perl6/Junction/One.pm
new/Perl6-Junction-1.60000/lib/Perl6/Junction/One.pm
--- old/Perl6-Junction-1.50000/lib/Perl6/Junction/One.pm 2012-09-11
21:13:18.000000000 +0200
+++ new/Perl6-Junction-1.60000/lib/Perl6/Junction/One.pm 2013-08-21
16:21:15.000000000 +0200
@@ -1,42 +1,9 @@
package Perl6::Junction::One;
use strict;
-our $VERSION = '1.50000';
+our $VERSION = '1.60000';
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.50000/lib/Perl6/Junction.pm
new/Perl6-Junction-1.60000/lib/Perl6/Junction.pm
--- old/Perl6-Junction-1.50000/lib/Perl6/Junction.pm 2012-09-11
21:13:18.000000000 +0200
+++ new/Perl6-Junction-1.60000/lib/Perl6/Junction.pm 2013-08-21
16:21:15.000000000 +0200
@@ -7,7 +7,7 @@
use Perl6::Junction::One;
require Exporter;
-our $VERSION = '1.50000';
+our $VERSION = '1.60000';
our @ISA = qw/ Exporter /;
my @routines = qw/ all any none one /;
@@ -91,7 +91,6 @@
'<', '<=', '>', '>=', '==', '!=',
'lt', 'le', 'gt', 'ge', 'eq', 'ne',
- '~~'
Returns true only if B<all> arguments test true according to the operator
used.
@@ -102,7 +101,6 @@
'<', '<=', '>', '>=', '==', '!=',
'lt', 'le', 'gt', 'ge', 'eq', 'ne',
- '~~'
Returns true if B<any> argument tests true according to the operator used.
@@ -112,7 +110,6 @@
'<', '<=', '>', '>=', '==', '!=',
'lt', 'le', 'gt', 'ge', 'eq', 'ne',
- '~~'
Returns true only if B<no> argument tests true according to the operator
used.
@@ -123,7 +120,6 @@
'<', '<=', '>', '>=', '==', '!=',
'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]
