April 2018 - openSUSE Commits - openSUSE Mailing Lists

commit terminator for openSUSE:Factory
by root＠hilbert.suse.de 26 Apr '18

26 Apr '18

Hello community, here is the log from the commit of package terminator for openSUSE:Factory checked in at 2018-04-26 13:38:28 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/terminator (Old) and /work/SRC/openSUSE:Factory/.terminator.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "terminator" Thu Apr 26 13:38:28 2018 rev:14 rq:600969 version:1.91 Changes: -------- --- /work/SRC/openSUSE:Factory/terminator/terminator.changes 2018-03-28 10:33:47.831832511 +0200 +++ /work/SRC/openSUSE:Factory/.terminator.new/terminator.changes 2018-04-26 13:38:28.891090231 +0200 @@ -1,0 +2,6 @@ +Wed Apr 18 10:37:52 UTC 2018 - tchvatal(a)suse.com + +- Add direct dependency on python-gobject-Gdk without it the pkg + fails on not finding the screen + +------------------------------------------------------------------- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ terminator.spec ++++++ --- /var/tmp/diff_new_pack.FJkcyT/_old 2018-04-26 13:38:29.463069267 +0200 +++ /var/tmp/diff_new_pack.FJkcyT/_new 2018-04-26 13:38:29.467069120 +0200 @@ -23,7 +23,7 @@ Summary: Store and run multiple GNOME terminals in one window License: GPL-2.0-only Group: System/X11/Terminals -Url: https://gnometerminator.blogspot.cz/p/introduction.html +URL: https://gnometerminator.blogspot.cz/p/introduction.html Source0: https://launchpad.net/%{name}/gtk3/%{version}/+download/%{name}-%{version}.… Patch0: terminator-desktop.patch BuildRequires: desktop-file-utils @@ -35,6 +35,7 @@ BuildRequires: python-devel BuildRequires: update-desktop-files Requires: python-gobject +Requires: python-gobject-Gdk Requires: python-psutil Requires(post): hicolor-icon-theme Requires(postun): hicolor-icon-theme

1 0

commit perl-Mojolicious for openSUSE:Factory
by root＠hilbert.suse.de 26 Apr '18

26 Apr '18

Hello community, here is the log from the commit of package perl-Mojolicious for openSUSE:Factory checked in at 2018-04-26 13:38:26 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Mojolicious (Old) and /work/SRC/openSUSE:Factory/.perl-Mojolicious.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "perl-Mojolicious" Thu Apr 26 13:38:26 2018 rev:95 rq:600834 version:7.76 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Mojolicious/perl-Mojolicious.changes 2018-04-19 15:28:49.072701989 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Mojolicious.new/perl-Mojolicious.changes 2018-04-26 13:38:27.971123951 +0200 @@ -1,0 +2,13 @@ +Wed Apr 25 05:33:36 UTC 2018 - coolo(a)suse.com + +- updated to 7.76 + see /usr/share/doc/packages/perl-Mojolicious/Changes + + 7.76 2018-04-23 + - Due to lack of domain experts on the team, Windows is no longer officially + supported. Moving foward, we will try to keep Mojolicious installable on + Windows, but cannot make any promises regarding security and/or reliability. + - Fixed a bug in Mojolicious::Plugin::Config where the config stash value was + not available when the config_override feature was used. (tim) + +------------------------------------------------------------------- Old: ---- Mojolicious-7.75.tar.gz New: ---- Mojolicious-7.76.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Mojolicious.spec ++++++ --- /var/tmp/diff_new_pack.CT47wz/_old 2018-04-26 13:38:28.559102400 +0200 +++ /var/tmp/diff_new_pack.CT47wz/_new 2018-04-26 13:38:28.563102253 +0200 @@ -17,7 +17,7 @@ Name: perl-Mojolicious -Version: 7.75 +Version: 7.76 Release: 0 %define cpan_name Mojolicious Summary: Real-time web framework ++++++ Mojolicious-7.75.tar.gz -> Mojolicious-7.76.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mojolicious-7.75/Changes new/Mojolicious-7.76/Changes --- old/Mojolicious-7.75/Changes 2018-04-09 17:27:43.000000000 +0200 +++ new/Mojolicious-7.76/Changes 2018-04-23 22:35:18.000000000 +0200 @@ -1,4 +1,11 @@ +7.76 2018-04-23 + - Due to lack of domain experts on the team, Windows is no longer officially + supported. Moving foward, we will try to keep Mojolicious installable on + Windows, but cannot make any promises regarding security and/or reliability. + - Fixed a bug in Mojolicious::Plugin::Config where the config stash value was + not available when the config_override feature was used. (tim) + 7.75 2018-04-09 - Deprecated placeholder quoting with "(placeholder)" in favor of "<placeholder>". diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mojolicious-7.75/META.json new/Mojolicious-7.76/META.json --- old/Mojolicious-7.75/META.json 2018-04-10 18:03:30.000000000 +0200 +++ new/Mojolicious-7.76/META.json 2018-04-24 18:54:58.000000000 +0200 @@ -58,6 +58,6 @@ }, "x_IRC" : "irc://irc.perl.org/#mojo" }, - "version" : "7.75", + "version" : "7.76", "x_serialization_backend" : "JSON::PP version 2.97001" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mojolicious-7.75/META.yml new/Mojolicious-7.76/META.yml --- old/Mojolicious-7.75/META.yml 2018-04-10 18:03:30.000000000 +0200 +++ new/Mojolicious-7.76/META.yml 2018-04-24 18:54:58.000000000 +0200 @@ -31,5 +31,5 @@ homepage: http://mojolicious.org license: http://www.opensource.org/licenses/artistic-license-2.0 repository: https://github.com/kraih/mojo.git -version: '7.75' +version: '7.76' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mojolicious-7.75/lib/Mojolicious/Guides/Cookbook.pod new/Mojolicious-7.76/lib/Mojolicious/Guides/Cookbook.pod --- old/Mojolicious-7.75/lib/Mojolicious/Guides/Cookbook.pod 2018-03-15 20:11:17.000000000 +0100 +++ new/Mojolicious-7.76/lib/Mojolicious/Guides/Cookbook.pod 2018-04-18 17:37:23.000000000 +0200 @@ -619,8 +619,8 @@ app->start; -To create promises maually you just wrap your continuation-passing style APIs in -functions that return promises. Here's an example for how +To create promises manually you just wrap your continuation-passing style APIs +in functions that return promises. Here's an example for how L<Mojo::UserAgent/"get_p"> works internally. use Mojo::UserAgent; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mojolicious-7.75/lib/Mojolicious/Guides/FAQ.pod new/Mojolicious-7.76/lib/Mojolicious/Guides/FAQ.pod --- old/Mojolicious-7.75/lib/Mojolicious/Guides/FAQ.pod 2017-11-06 18:19:39.000000000 +0100 +++ new/Mojolicious-7.76/lib/Mojolicious/Guides/FAQ.pod 2018-04-23 22:32:56.000000000 +0200 @@ -81,9 +81,11 @@ =head2 How well is Windows supported by Mojolicious? -Windows is fully supported by L<Mojolicious>, some of the more advanced -features, such as L<subprocesses|Mojo::IOLoop/"subprocess"> and the -L<Hypnotoad|Mojo::Server::Hypnotoad> web server, will however require the use of +Windows is not officially supported by L<Mojolicious>, even though we try to +keep the distribution installable. There may be serious security and/or +reliability issues. Some of the more advanced features, such as +L<subprocesses|Mojo::IOLoop/"subprocess"> and the +L<Hypnotoad|Mojo::Server::Hypnotoad> web server, will also require the use of the L<Windows Subsystem for Linux|https://msdn.microsoft.com/commandline/wsl/>. =head2 Do I need to clean my environment before testing Mojolicious? diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mojolicious-7.75/lib/Mojolicious/Plugin/Config.pm new/Mojolicious-7.76/lib/Mojolicious/Plugin/Config.pm --- old/Mojolicious-7.75/lib/Mojolicious/Plugin/Config.pm 2018-03-15 20:12:18.000000000 +0100 +++ new/Mojolicious-7.76/lib/Mojolicious/Plugin/Config.pm 2018-04-20 13:19:35.000000000 +0200 @@ -23,6 +23,7 @@ my ($self, $app, $conf) = @_; # Override + $app->defaults(config => $app->config); return $app->config if $app->config->{config_override}; # Config file @@ -49,7 +50,7 @@ # Merge everything $config = {%$config, %{$self->load($mode, $conf, $app)}} if $mode; $config = {%{$conf->{default}}, %$config} if $conf->{default}; - return $app->defaults(config => $app->config)->config($config)->config; + return $app->config($config)->config; } 1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mojolicious-7.75/lib/Mojolicious/Validator.pm new/Mojolicious-7.76/lib/Mojolicious/Validator.pm --- old/Mojolicious-7.75/lib/Mojolicious/Validator.pm 2018-04-04 23:35:30.000000000 +0200 +++ new/Mojolicious-7.76/lib/Mojolicious/Validator.pm 2018-04-18 17:38:17.000000000 +0200 @@ -38,7 +38,7 @@ sub _num { my ($v, $name, $value, $min, $max) = @_; return 1 if $value !~ /^[0-9]+$/; - return defined $min && $max ? $min > $value || $max < $value : undef; + return defined $min && $min > $value || defined $max && $max < $value; } sub _size { @@ -97,6 +97,8 @@ $v = $v->num; $v = $v->num(2, 5); + $v = $v->num(2, undef); + $v = $v->num(undef, 5); String value needs to be a non-fractional number and if provided in the given range. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mojolicious-7.75/lib/Mojolicious.pm new/Mojolicious-7.76/lib/Mojolicious.pm --- old/Mojolicious-7.75/lib/Mojolicious.pm 2018-04-08 00:15:39.000000000 +0200 +++ new/Mojolicious-7.76/lib/Mojolicious.pm 2018-04-21 18:25:19.000000000 +0200 @@ -65,7 +65,7 @@ has validator => sub { Mojolicious::Validator->new }; our $CODENAME = 'Doughnut'; -our $VERSION = '7.75'; +our $VERSION = '7.76'; sub AUTOLOAD { my $self = shift; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mojolicious-7.75/t/mojo/user_agent_online.t new/Mojolicious-7.76/t/mojo/user_agent_online.t --- old/Mojolicious-7.75/t/mojo/user_agent_online.t 2018-02-19 00:43:02.000000000 +0100 +++ new/Mojolicious-7.76/t/mojo/user_agent_online.t 2018-04-18 17:40:18.000000000 +0200 @@ -152,15 +152,11 @@ like $res->body, qr/Mojolicious/, 'right content'; is $res->code, 200, 'right status'; -# Simple requests +# Simple request $tx = $ua->get('metacpan.org'); is $tx->req->method, 'GET', 'right method'; is $tx->req->url, 'http://metacpan.org', 'right url'; is $tx->res->code, 301, 'right status'; -$tx = $ua->get('http://google.com'); -is $tx->req->method, 'GET', 'right method'; -is $tx->req->url, 'http://google.com', 'right url'; -is $tx->res->code, 302, 'right status'; # Simple keep-alive requests $tx = $ua->get('https://www.wikipedia.org'); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mojolicious-7.75/t/mojolicious/external/lib/MyApp.pm new/Mojolicious-7.76/t/mojolicious/external/lib/MyApp.pm --- old/Mojolicious-7.75/t/mojolicious/external/lib/MyApp.pm 2018-02-19 00:44:23.000000000 +0100 +++ new/Mojolicious-7.76/t/mojolicious/external/lib/MyApp.pm 2018-04-20 13:16:13.000000000 +0200 @@ -27,6 +27,13 @@ $self->render(text => ++$self->session->{secondary}); } ); + + $r->get( + '/inline' => sub { + my $self = shift; + $self->render(inline => '<%= $config->{whatever} =%>'); + } + ); } 1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mojolicious-7.75/t/mojolicious/external_app.t new/Mojolicious-7.76/t/mojolicious/external_app.t --- old/Mojolicious-7.75/t/mojolicious/external_app.t 2018-02-19 00:43:11.000000000 +0100 +++ new/Mojolicious-7.76/t/mojolicious/external_app.t 2018-04-20 13:15:57.000000000 +0200 @@ -38,4 +38,7 @@ # More text from config override $t->get_ok('/test')->status_is(200)->content_is('override!'); +# Config stash value from template +$t->get_ok('/inline')->status_is(200)->content_is('override!'); + done_testing(); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mojolicious-7.75/t/mojolicious/validation_lite_app.t new/Mojolicious-7.76/t/mojolicious/validation_lite_app.t --- old/Mojolicious-7.75/t/mojolicious/validation_lite_app.t 2018-04-04 02:21:06.000000000 +0200 +++ new/Mojolicious-7.76/t/mojolicious/validation_lite_app.t 2018-04-18 17:38:30.000000000 +0200 @@ -142,6 +142,22 @@ ok !$v->required('foo')->num(24, 25)->is_valid, 'not valid'; ok $v->has_error, 'has error'; is_deeply $v->error('foo'), [qw(num 1 24 25)], 'right error'; +$v = $t->app->validation->input({foo => 23}); +ok $v->required('foo')->num(22, undef)->is_valid, 'valid'; +$v = $t->app->validation->input({foo => 23}); +ok $v->required('foo')->num(23, undef)->is_valid, 'valid'; +$v = $t->app->validation->input({foo => 23}); +ok !$v->required('foo')->num(24, undef)->is_valid, 'not valid'; +ok $v->has_error, 'has error'; +is_deeply $v->error('foo'), ['num', 1, 24, undef], 'right error'; +$v = $t->app->validation->input({foo => 23}); +ok $v->required('foo')->num(undef, 24)->is_valid, 'valid'; +$v = $t->app->validation->input({foo => 23}); +ok $v->required('foo')->num(undef, 23)->is_valid, 'valid'; +$v = $t->app->validation->input({foo => 23}); +ok !$v->required('foo')->num(undef, 22)->is_valid, 'not valid'; +ok $v->has_error, 'has error'; +is_deeply $v->error('foo'), ['num', 1, undef, 22], 'right error'; # Size $v = $t->app->validation->input({foo => 'bar', baz => 'yada', yada => 'yada'});

1 0

commit shim-leap for openSUSE:Factory
by root＠hilbert.suse.de 26 Apr '18

26 Apr '18

Hello community, here is the log from the commit of package shim-leap for openSUSE:Factory checked in at 2018-04-26 13:38:23 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/shim-leap (Old) and /work/SRC/openSUSE:Factory/.shim-leap.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "shim-leap" Thu Apr 26 13:38:23 2018 rev:6 rq:600832 version:14 Changes: -------- --- /work/SRC/openSUSE:Factory/shim-leap/shim-leap.changes 2017-04-28 09:13:36.123554900 +0200 +++ /work/SRC/openSUSE:Factory/.shim-leap.new/shim-leap.changes 2018-04-26 13:38:25.847201799 +0200 @@ -1,0 +2,6 @@ +Wed Apr 25 08:17:45 UTC 2018 - mlin(a)suse.com + +- Update shim to 14-lp150.4.1 +- New signature from Microsoft + +------------------------------------------------------------------- Old: ---- shim-0.9-15.3.1.x86_64.rpm New: ---- shim-14-lp150.4.1.x86_64.rpm ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ shim-leap.spec ++++++ --- /var/tmp/diff_new_pack.5eaHK1/_old 2018-04-26 13:38:26.483178488 +0200 +++ /var/tmp/diff_new_pack.5eaHK1/_new 2018-04-26 13:38:26.483178488 +0200 @@ -1,7 +1,7 @@ # # spec file for package shim-leap # -# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2018 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,12 +17,12 @@ Name: shim-leap -Version: 0.9 +Version: 14 Release: 0 Summary: UEFI shim loader License: BSD-2-Clause Group: System/Boot -Source: shim-0.9-15.3.1.x86_64.rpm +Source: shim-14-lp150.4.1.x86_64.rpm BuildRoot: %{_tmppath}/%{name}-%{version}-build ExclusiveArch: x86_64

1 0

commit mozilla-jss for openSUSE:Factory
by root＠hilbert.suse.de 26 Apr '18

26 Apr '18

Hello community, here is the log from the commit of package mozilla-jss for openSUSE:Factory checked in at 2018-04-26 13:38:18 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/mozilla-jss (Old) and /work/SRC/openSUSE:Factory/.mozilla-jss.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "mozilla-jss" Thu Apr 26 13:38:18 2018 rev:7 rq:600624 version:4.4.3 Changes: -------- --- /work/SRC/openSUSE:Factory/mozilla-jss/mozilla-jss.changes 2015-04-15 16:24:05.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.mozilla-jss.new/mozilla-jss.changes 2018-04-26 13:38:23.603284044 +0200 @@ -1,0 +2,8 @@ +Thu Apr 19 11:30:12 UTC 2018 - guillaume.gardet(a)opensuse.org + +- Update to jss 4.4.3 +- Remove upstreamed patches: + * jss-4.3.2-support-TLS1_1-TLS1_2.patch + * jss-ipv6.patch + +------------------------------------------------------------------- Old: ---- jss-4.3.2-support-TLS1_1-TLS1_2.patch jss-4.3.2.tar.gz jss-ipv6.patch New: ---- jss-4.4.3.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ mozilla-jss.spec ++++++ --- /var/tmp/diff_new_pack.jbFavn/_old 2018-04-26 13:38:25.211225109 +0200 +++ /var/tmp/diff_new_pack.jbFavn/_new 2018-04-26 13:38:25.211225109 +0200 @@ -1,7 +1,7 @@ # # spec file for package mozilla-jss # -# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2018 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,37 +17,26 @@ Name: mozilla-jss -Version: 4.3.2 +Version: 4.4.3 Release: 0 Summary: Network Security Services for Java (JSS) -License: MPL-1.1 or GPL-2.0 or LGPL-2.1 +License: MPL-1.1 OR GPL-2.0-only OR LGPL-2.1-only Group: Development/Libraries/Java Url: https://developer.mozilla.org/en-US/docs/Mozilla/Projects/NSS/JSS - -# The source for this package was pulled from upstream's SCM. Use the -# following commands to generate the tarball: -# hg clone --rev JSS_4_3_2_RTM https://hg.mozilla.org/projects/jss jss-4.3.2 -# rm -r jss-4.3.2/.hg -# tar cjvf jss-4.3.2.tar.gz jss-4.3.2 -# Source0: jss-%{version}.tar.gz Source1: MPL-1.1.txt Source2: GPL-2.0.txt Source3: LGPL-2.1.txt Source100: mozilla-jss-rpmlintrc -# PATCH-FIX-UPSTREAM jss-ipv6.patch -- Add IPv6 support, see https://bugzilla.mozilla.org/show_bug.cgi?id=507536 -Patch0003: jss-ipv6.patch -# PATCH-FIX-UPSTREAM jss-4.3.2-support-TLS1_1-TLS1_2.patch -- Add support for TLS 1.1 and 1.2, add version ranges -Patch0026: jss-4.3.2-support-TLS1_1-TLS1_2.patch - -BuildRequires: java-devel -BuildRequires: mozilla-nspr-devel >= 4.6.99 -BuildRequires: mozilla-nss-devel >= 3.15.1 +BuildRequires: java-1_8_0-openjdk-devel +BuildRequires: libopenssl-1_1-devel +BuildRequires: mozilla-nspr-devel >= 4.13.1 +BuildRequires: mozilla-nss-devel >= 3.28 BuildRequires: pkg-config BuildRoot: %{_tmppath}/%{name}-%{version}-build Requires: java -Requires: mozilla-nss >= 3.15.1 +Requires: mozilla-nss >= 3.28 %description Java Security Services (JSS) is a java native interface which provides a bridge @@ -64,8 +53,9 @@ %prep %setup -q -n jss-%{version} -%patch0003 -p1 -%patch0026 -p1 +mkdir jss +mv build_java.pl config coreconf jss.html lib Makefile manifest.mn org pkg README rules.mk samples \ + jss %build [ -z "$JAVA_HOME" ] && export JAVA_HOME=%{_jvmdir}/java @@ -76,13 +66,14 @@ export PKG_CONFIG_ALLOW_SYSTEM_LIBS=1 export PKG_CONFIG_ALLOW_SYSTEM_CFLAGS=1 - +export USE_INSTALLED_NSPR=1 +export USE_INSTALLED_NSS=1 export NSPR_INCLUDE_DIR=`%{_bindir}/pkg-config --cflags-only-I nspr | sed 's/-I//'` export NSPR_LIB_DIR=`%{_bindir}/pkg-config --libs-only-L nspr | sed 's/-L//'` export NSS_INCLUDE_DIR=`%{_bindir}/pkg-config --cflags-only-I nss | sed 's/-I//'` export NSS_LIB_DIR=`%{_bindir}/pkg-config --libs-only-L nss | sed 's/-L//'` -%ifarch x86_64 ppc64 ia64 s390x sparc64 +%ifarch x86_64 ppc64 ppc64le ia64 s390x sparc64 aarch64 export USE_64=1 %endif @@ -90,16 +81,16 @@ if [[ `uname -r | cut -f1 -d.` > 2 ]]; then %global majorrel `uname -r | cut -f1 -d.` %global minorrel `uname -r | cut -f2 -d.` -cp -p security/coreconf/Linux2.6.mk security/coreconf/Linux%{majorrel}.%{minorrel}.mk -sed -i -e 's;LINUX2_1;LINUX%{majorrel}_%{minorrel};' security/coreconf/Linux%{majorrel}.%{minorrel}.mk +cp -p jss/coreconf/Linux.mk jss/coreconf/Linux%{majorrel}.%{minorrel}.mk +sed -i -e 's;LINUX2_1;LINUX%{majorrel}_%{minorrel};' jss/coreconf/Linux%{majorrel}.%{minorrel}.mk fi # For some reason jss can't find nss on SUSE unless we do the following export C_INCLUDE_PATH="%{_includedir}/nss3" # The Makefile is not thread-safe -make -C security/coreconf -make -C security/jss -make -C security/jss javadoc +make -C jss/coreconf +make -C jss +make -C jss javadoc %install # Supress SUSE bytecode version error check @@ -142,7 +133,7 @@ # No ldconfig is required since this library is loaded by Java itself. %files %defattr(-,root,root,-) -%doc security/jss/jss.html MPL-1.1.txt GPL-2.0.txt LGPL-2.1.txt +%doc jss/jss.html MPL-1.1.txt GPL-2.0.txt LGPL-2.1.txt %dir %{_jnidir} %{_jnidir}/* %{_libdir}/lib*.so ++++++ jss-4.3.2.tar.gz -> jss-4.4.3.tar.gz ++++++ ++++ 96169 lines of diff (skipped)

1 0

commit perl-Minion for openSUSE:Factory
by root＠hilbert.suse.de 26 Apr '18

26 Apr '18

Hello community, here is the log from the commit of package perl-Minion for openSUSE:Factory checked in at 2018-04-26 13:38:09 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Minion (Old) and /work/SRC/openSUSE:Factory/.perl-Minion.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "perl-Minion" Thu Apr 26 13:38:09 2018 rev:43 rq:599900 version:9.03 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Minion/perl-Minion.changes 2018-04-19 15:33:09.402011098 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Minion.new/perl-Minion.changes 2018-04-26 13:38:14.155630323 +0200 @@ -1,0 +2,6 @@ +Sat Apr 21 05:34:30 UTC 2018 - coolo(a)suse.com + +- updated to 9.03 + see /usr/share/doc/packages/perl-Minion/Changes + +------------------------------------------------------------------- Old: ---- Minion-9.02.tar.gz New: ---- Minion-9.03.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Minion.spec ++++++ --- /var/tmp/diff_new_pack.1BXJ4o/_old 2018-04-26 13:38:14.827605693 +0200 +++ /var/tmp/diff_new_pack.1BXJ4o/_new 2018-04-26 13:38:14.827605693 +0200 @@ -17,7 +17,7 @@ Name: perl-Minion -Version: 9.02 +Version: 9.03 Release: 0 %define cpan_name Minion Summary: Job queue ++++++ Minion-9.02.tar.gz -> Minion-9.03.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Minion-9.02/Changes new/Minion-9.03/Changes --- old/Minion-9.02/Changes 2018-04-18 10:45:59.000000000 +0200 +++ new/Minion-9.03/Changes 2018-04-19 21:13:54.000000000 +0200 @@ -1,4 +1,9 @@ +9.03 2018-04-19 + - Removed hour value from daily history data. + - Improved 24 hour history graph on Mojolicious::Plugin::Minion::Admin + dashboard to use the local time, consistent with the real-time graph. + 9.02 2018-04-18 - Changed 24 hour history graph on Mojolicious::Plugin::Minion::Admin dashboard to refresh in 10 minute intervals. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Minion-9.02/META.json new/Minion-9.03/META.json --- old/Minion-9.02/META.json 2018-04-18 10:52:27.000000000 +0200 +++ new/Minion-9.03/META.json 2018-04-20 00:09:34.000000000 +0200 @@ -54,6 +54,6 @@ }, "x_IRC" : "irc://irc.perl.org/#mojo" }, - "version" : "9.02", + "version" : "9.03", "x_serialization_backend" : "JSON::PP version 2.97001" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Minion-9.02/META.yml new/Minion-9.03/META.yml --- old/Minion-9.02/META.yml 2018-04-18 10:52:27.000000000 +0200 +++ new/Minion-9.03/META.yml 2018-04-20 00:09:34.000000000 +0200 @@ -27,5 +27,5 @@ homepage: http://mojolicious.org license: http://www.opensource.org/licenses/artistic-license-2.0 repository: https://github.com/kraih/minion.git -version: '9.02' +version: '9.03' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Minion-9.02/lib/Minion/Backend/Pg.pm new/Minion-9.03/lib/Minion/Backend/Pg.pm --- old/Minion-9.02/lib/Minion/Backend/Pg.pm 2018-04-18 10:39:39.000000000 +0200 +++ new/Minion-9.03/lib/Minion/Backend/Pg.pm 2018-04-19 21:11:43.000000000 +0200 @@ -54,7 +54,7 @@ my $self = shift; my $daily = $self->pg->db->query( - "select extract(epoch from ts) as epoch, extract(hour from ts) as hour, + "select extract(epoch from ts) as epoch, coalesce(failed_jobs, 0) as failed_jobs, coalesce(finished_jobs, 0) as finished_jobs from ( @@ -502,8 +502,7 @@ =item daily - daily => - [{epoch => 12345, hour => 20, finished_jobs => 95, failed_jobs => 2}, ...] + daily => [{epoch => 12345, finished_jobs => 95, failed_jobs => 2}, ...] Hourly counts for processed jobs from the past day. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Minion-9.02/lib/Minion/Backend.pm new/Minion-9.03/lib/Minion/Backend.pm --- old/Minion-9.02/lib/Minion/Backend.pm 2018-04-18 10:40:06.000000000 +0200 +++ new/Minion-9.03/lib/Minion/Backend.pm 2018-04-19 21:11:59.000000000 +0200 @@ -243,8 +243,7 @@ =item daily - daily => - [{epoch => 12345, hour => 20, finished_jobs => 95, failed_jobs => 2}, ...] + daily => [{epoch => 12345, finished_jobs => 95, failed_jobs => 2}, ...] Hourly counts for processed jobs from the past day. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Minion-9.02/lib/Minion.pm new/Minion-9.03/lib/Minion.pm --- old/Minion-9.02/lib/Minion.pm 2018-04-18 10:40:27.000000000 +0200 +++ new/Minion-9.03/lib/Minion.pm 2018-04-19 21:23:41.000000000 +0200 @@ -18,7 +18,7 @@ has remove_after => 172800; has tasks => sub { {} }; -our $VERSION = '9.02'; +our $VERSION = '9.03'; sub add_task { ($_[0]->tasks->{$_[1]} = $_[2]) and return $_[0] } @@ -524,8 +524,7 @@ =item daily - daily => - [{epoch => 12345, hour => 20, finished_jobs => 95, failed_jobs => 2}, ...] + daily => [{epoch => 12345, finished_jobs => 95, failed_jobs => 2}, ...] Hourly counts for processed jobs from the past day. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Minion-9.02/lib/Mojolicious/Plugin/Minion/resources/templates/minion/dashboard.html.ep new/Minion-9.03/lib/Mojolicious/Plugin/Minion/resources/templates/minion/dashboard.html.ep --- old/Minion-9.02/lib/Mojolicious/Plugin/Minion/resources/templates/minion/dashboard.html.ep 2018-04-18 10:45:00.000000000 +0200 +++ new/Minion-9.03/lib/Mojolicious/Plugin/Minion/resources/templates/minion/dashboard.html.ep 2018-04-19 21:15:58.000000000 +0200 @@ -39,7 +39,7 @@ var historylog = []; for (hour = 0; hour < data.daily.length; hour++) { historylog.push({ - x: data.daily[hour].hour, + x: new Date(data.daily[hour].epoch * 1000).getTime(), y: data.daily[hour].finished_jobs + data.daily[hour].failed_jobs }); } @@ -47,7 +47,7 @@ historychart = $('#history-chart').epoch({ type: 'bar', tickFormats: { - bottom: function (d) { return ('0' + d).slice(-2) + ':00' } + bottom: function (d) { return moment(d).format('HH:00') } }, data: [{ label: 'processed', diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Minion-9.02/t/pg.t new/Minion-9.03/t/pg.t --- old/Minion-9.02/t/pg.t 2018-04-18 10:44:42.000000000 +0200 +++ new/Minion-9.03/t/pg.t 2018-04-19 21:10:46.000000000 +0200 @@ -297,13 +297,9 @@ is $history->{daily}[0]{finished_jobs}, 0, 'no finished jobs 24 hours ago'; is $history->{daily}[0]{failed_jobs}, 0, 'no failed jobs 24 hours ago'; ok defined $history->{daily}[0]{epoch}, 'has epoch value'; -ok defined $history->{daily}[0]{hour}, 'has hour value'; ok defined $history->{daily}[1]{epoch}, 'has epoch value'; -ok defined $history->{daily}[1]{hour}, 'has hour value'; ok defined $history->{daily}[12]{epoch}, 'has epoch value'; -ok defined $history->{daily}[12]{hour}, 'has hour value'; ok defined $history->{daily}[-1]{epoch}, 'has epoch value'; -ok defined $history->{daily}[-1]{hour}, 'has hour value'; $job->remove; # List jobs

1 0

commit perl-autobox for openSUSE:Factory
by root＠hilbert.suse.de 26 Apr '18

26 Apr '18

Hello community, here is the log from the commit of package perl-autobox for openSUSE:Factory checked in at 2018-04-26 13:38:07 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-autobox (Old) and /work/SRC/openSUSE:Factory/.perl-autobox.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "perl-autobox" Thu Apr 26 13:38:07 2018 rev:15 rq:599898 version:2.86 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-autobox/perl-autobox.changes 2017-03-28 15:20:58.364183623 +0200 +++ /work/SRC/openSUSE:Factory/.perl-autobox.new/perl-autobox.changes 2018-04-26 13:38:08.891823252 +0200 @@ -1,0 +2,15 @@ +Sat Apr 21 06:07:47 UTC 2018 - coolo(a)suse.com + +- updated to 2.86 + see /usr/share/doc/packages/perl-autobox/Changes + + 2.86 Fri 20 Apr 20:07:29 2018 + + - GH #9: fix bug which prevented autoboxing working + under the debugger on perl 5.22+ (thanks, skington) + - added t/debugger.t + - GH #8: fix bug which prevented bareword method-calls being + exempted when the method is a variable e.g. Foo->$bar + - add operator-overloading note to the gotchas section (GH #7) + +------------------------------------------------------------------- Old: ---- autobox-2.85.tar.gz New: ---- autobox-2.86.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-autobox.spec ++++++ --- /var/tmp/diff_new_pack.kezOsq/_old 2018-04-26 13:38:09.999782643 +0200 +++ /var/tmp/diff_new_pack.kezOsq/_new 2018-04-26 13:38:09.999782643 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-autobox # -# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2018 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,11 +17,11 @@ Name: perl-autobox -Version: 2.85 +Version: 2.86 Release: 0 %define cpan_name autobox Summary: Call Methods On Native Types -License: Artistic-1.0 or GPL-1.0+ +License: Artistic-2.0 Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/autobox/ Source0: https://cpan.metacpan.org/authors/id/C/CH/CHOCOLATE/%{cpan_name}-%{version}… @@ -29,6 +29,7 @@ BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros +BuildRequires: perl(IPC::System::Simple) >= 1.25 BuildRequires: perl(Scope::Guard) >= 0.21 Requires: perl(Scope::Guard) >= 0.21 %{perl_requires} @@ -65,5 +66,6 @@ %files -f %{name}.files %defattr(-,root,root,755) %doc Changes README +%license LICENSE.md %changelog ++++++ autobox-2.85.tar.gz -> autobox-2.86.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/autobox-2.85/Changes new/autobox-2.86/Changes --- old/autobox-2.85/Changes 2017-02-27 19:18:45.000000000 +0100 +++ new/autobox-2.86/Changes 2018-04-20 22:15:44.000000000 +0200 @@ -1,5 +1,14 @@ Revision history for Perl extension autobox +2.86 Fri 20 Apr 20:07:29 2018 + + - GH #9: fix bug which prevented autoboxing working + under the debugger on perl 5.22+ (thanks, skington) + - added t/debugger.t + - GH #8: fix bug which prevented bareword method-calls being + exempted when the method is a variable e.g. Foo->$bar + - add operator-overloading note to the gotchas section (GH #7) + 2.85 Mon 27 Feb 18:18:19 2017 - fix failing test under 5.25.10 with -Ddefault_inc_excludes_dot @@ -7,15 +16,16 @@ 2.84 Fri 26 Aug 20:35:48 2016 - - compatibility fix for perl >= 5.25 (thanks, mat813, karenetheridge and eserte) + - compatibility fix for perl >= 5.25 + (thanks, mat813, karenetheridge and eserte) - update ppport.h from 3.20 to 3.35 - - add .travis.yml 2.83 Sun Feb 1 21:34:01 2015 - - RT #100247: fix assertion failures on 5.21.x perls with -DDEBUGGING - (thanks, ilmari and Father Chrysostomos) - - RT #100717: don't hide autobox::universal from PAUSE (thanks, ppisar) + - RT #100247: fix assertion failures on 5.21.x perls + with -DDEBUGGING (thanks, ilmari and Father Chrysostomos) + - RT #100717: don't hide autobox::universal from PAUSE + (thanks, ppisar) - RT #89754: INSTALLDIRS fix (thanks, Kent Fredric) 2.82 Sat Oct 26 12:44:52 2013 @@ -28,7 +38,8 @@ 2.80 Fri Oct 25 19:32:12 2013 - - RT #71777: fix segfault in destructor called during global destruction (thanks, Tomas Doran) + - RT #71777: fix segfault in destructor called during + global destruction (thanks, Tomas Doran) - added t/rt_71777.t - fix doc typo (thanks, David Steinbrunner) @@ -40,17 +51,19 @@ 2.78 Tue Apr 30 18:53:54 2013 - - RT #80400: fix segfault in destructor called in END block (thanks, Tokuhiro Matsuno) + - RT #80400: fix segfault in destructor called in END block + (thanks, Tokuhiro Matsuno) - added t/rt_80400.t 2.77 Thu Dec 13 19:59:48 2012 - doc tweaks - - add multiple-arg autoref tests + - add multiple-arg auto-ref tests 2.76 Wed Nov 21 14:35:33 2012 - - fix breaking tests in perl >= 5.17.5: update error message pattern (thanks, rjbs) + - fix breaking tests in perl >= 5.17.5: update error + message pattern (thanks, rjbs) - update ppport.h from 3.19 to 3.20 2.75 Thu Jul 21 22:07:26 2011 @@ -67,7 +80,7 @@ 2.72 Fri Jan 28 12:16:34 2011 - - fix conflict with use re 'taint' (thanks, Peter Rabbitson) + - fix conflict with `use re "taint"` (thanks, Peter Rabbitson) 2.71 Thu Sep 23 02:28:10 2010 @@ -75,19 +88,20 @@ 2.70 Wed Mar 17 19:27:44 2010 - - replace autobox_can and autobox_isa with autobox_class + - replace autobox_can and autobox_isa with autobox_class. this also fixes import, unimport and VERSION - added t/version.t - - renamed t/universal.t => t/autobox_class.t + - renamed t/universal.t -> t/autobox_class.t 2.60 Wed Mar 17 16:34:56 2010 - - fix RT #46814 (thanks Tye McQueen) + - fix RT #46814 (thanks, Tye McQueen) - added t/rt_46814.t - - fix RT #49273 (thanks Daniel Austin) - - fix RT #55565 (thanks Schwern) - - fix RT #55652 (thanks Schwern) - - $native->isa and $native->can must now be called as $native->autobox_isa and $native->autobox_can + - fix RT #49273 (thanks, Daniel Austin) + - fix RT #55565 (thanks, Schwern) + - fix RT #55652 (thanks, Schwern) + - $native->isa and $native->can must now be called as + $native->autobox_isa and $native->autobox_can - added t/rt_55652.t 2.55 Sun May 25 03:20:54 2008 @@ -105,7 +119,7 @@ - moved autobox::type method to autobox::universal::type subroutine - added export.t - added t/default.t - - portability fix for non-gcc compilers (thanks chris) + - portability fix for non-gcc compilers (thanks, chris) - misc code/documentation fixes/cleanups 2.52 Tue May 20 12:24:01 2008 @@ -114,10 +128,11 @@ 2.51 Tue May 20 10:40:32 2008 - - fix type identification for former INTEGERs and FLOATs (thanks Mitchell N Charity) + - fix type identification for former INTEGERs and FLOATs + (thanks, Mitchell N Charity) - added type.t - - fix for perl 5.11 (thanks Andreas Koenig) - - document eval EXPR gotcha + - fix for perl 5.11 (thanks, Andreas Koenig) + - document `eval EXPR` gotcha 2.50 Mon May 19 17:39:22 2008 @@ -138,19 +153,22 @@ 2.41 Tue May 13 20:02:37 2008 - - work around $value->$method segfault with non-string method names under perls <= 5.8.8 + - work around $value->$method segfault with non-string method + names under perls <= 5.8.8 - added license info 2.40 Mon May 12 23:51:26 2008 - - support @array and %hash (thanks Yuval Kogman (nothingmuch) and Matthijs van Duin (xmath)) + - support @array and %hash (thanks, Yuval Kogman (nothingmuch) + and Matthijs van Duin (xmath)) - added t/autoref.t - - fix $value->$method segfault with undef, integer, float &c. (i.e. non-string) - method names (thanks John Goulah) + - fix $value->$method segfault with undef, integer, float &c. + (i.e. non-string) method names (thanks, John Goulah) 2.30 Fri May 9 01:52:19 2008 - - support $value->$method, where $method is a method name or subroutine reference: + - support $value->$method, where $method is a method name or + subroutine reference: - added t/name.t - added t/coderef.t @@ -175,14 +193,14 @@ 2.11 Wed Feb 20 21:06:25 2008 - - Windows portability fix: ANSIfy C99-ism (thanks Taro Nishino) + - Windows portability fix: ANSIfy C99-ism (thanks, Taro Nishino) - revert broken micro-optimization 2.10 Wed Feb 20 02:16:42 2008 - - fix + tests: - unimport - default namespace(s) in an array ref + - fix + add tests for: + - unimport + - default namespace(s) in an array ref 2.02 Sun Feb 17 16:59:28 2008 @@ -192,26 +210,28 @@ 2.01 Sun Feb 17 03:56:22 2008 - documentation fix: - rm reference to $class->SUPER::import(TYPE => __PACKAGE__) - and explain why an auxiliary class should be used + - rm reference to $class->SUPER::import(TYPE => __PACKAGE__) + and explain why an auxiliary class should be used 2.00 Sun Feb 17 02:29:11 2008 - API changes: - autobox with one or more args leaves the unspecified types unboxed - multiple autobox (or autobox subclass) invocations in the same lexical scope - are merged (thanks Matsuno Tokuhiro) - multiple bindings for each type can be supplied as an ARRAY ref of classes - or namespaces - "no autobox qw(...)" disables/resets bindings for the specified type(s) + - autobox with one or more args leaves the unspecified + types unboxed + - multiple autobox (or autobox subclass) invocations + in the same lexical scope are merged (thanks, Matsuno Tokuhiro) + - multiple bindings for each type can be supplied as an + ARRAY ref of classes or namespaces + - `no autobox qw(...)` disables/resets bindings for the + specified type(s) - fixed incorrect bareword handling - - perl 5.10 compatibility fixes (thanks Andreas Koenig) - - document previously undocumented features + - perl 5.10 compatibility fixes (thanks, Andreas Koenig) + - document previously-undocumented features - document subclassing - merge.t: test merging - beef up the default DEBUG handler so that it shows the superclasses of the synthetic classes - - Windows compatibilty fix (thanks Alexandr Ciornii) + - Windows compatibilty fix (thanks, Alexandr Ciornii) - misc optimizations, cleanups 1.22 Sun Sep 23 22:27:44 2007 @@ -220,12 +240,14 @@ 1.21 Sun Sep 23 20:35:37 2007 - - (Makefile): fix build failure on Windows (thanks Alexandr Ciornii) + - (Makefile): fix build failure on Windows (thanks, Alexandr Ciornii) 1.20 Sun Sep 23 14:05:39 2007 - - (ptable.h): fix build failures on perl >= 5.9.3 (thanks Andreas Koenig) - - (Perl_pp_method_named): fix build failure on Windows (thanks randyk and Alexandr Ciornii) + - (ptable.h): fix build failures on perl >= 5.9.3 + (thanks, Andreas Koenig) + - (Perl_pp_method_named): fix build failure on Windows + (thanks, randyk and Alexandr Ciornii) 1.10 Thu Nov 23 20:32:53 2006 @@ -238,7 +260,8 @@ 1.04 Mon Nov 20 00:25:50 2006 - fix threaded perl pessimization - - applied patch: http://rt.cpan.org/Public/Bug/Display.html?id=22868 (thanks Steve Peters) + - applied patch: http://rt.cpan.org/Public/Bug/Display.html?id=22868 + (thanks, Steve Peters) - documentation fixlet - portability fixlet @@ -253,7 +276,8 @@ 1.01 Tue Apr 12 19:58:49 2005 - - compatibility/portability fixes + isolate ptr table from perl's implementation + - compatibility/portability fixes + isolate ptr table + from perl's implementation 1.00 Tue Apr 12 01:16:52 2005 @@ -273,46 +297,50 @@ 0.08 Fri Oct 17 11:50:34 2003 - - removed obsolete references to perl-5.8.1-RC4 from README + - removed obsolete references to perl-5.8.1-RC4 + from README 0.07 Tue Oct 14 13:34:16 2003 - - updated patch to work against perl-5.8.1. This patch should be - applied to a clean perl-5.8.1 tree. Previous versions of perl are - no longer supported + - updated patch to work against perl-5.8.1. This + patch should be applied to a clean perl-5.8.1 tree. + previous versions of perl are no longer supported - minor documentation tweaklets - - added typemap() static method to autobox.pm to facilitate subclassing + - added typemap() static method to autobox.pm to + facilitate subclassing 0.06 Mon Aug 18 17:40:53 2003 - - This version provides an updated patch. It should be applied to a - clean perl-5.8.1-RC4 tree - - Thanks to Tassilo von Parseval for hunting down and fixing a - memory leak - - Added support for builtin pseudotype, UNDEF - - Added tests and documentation for old VERSION() and new UNDEF - features + - this version provides an updated patch. it should be + applied to a clean perl-5.8.1-RC4 tree + - thanks to Tassilo von Parseval for hunting down + and fixing a memory leak + - added support for builtin pseudotype, UNDEF + - added tests and documentation for old VERSION() and + new UNDEF features 0.05 Mon Aug 11 03:13:04 2003 - autobox.pm update: no change to the patch - - Cleaned up implementation of isa() and can() - - Added support for VERSION() (untested) + - cleaned up implementation of isa() and can() + - added support for VERSION() (untested) 0.04 Sun Aug 10 14:57:18 2003 - - This version provides a new patch which ensures - that undef values aren't autoboxed. It should + - this version provides a new patch which ensures + that undef values aren't autoboxed. it should be applied to a clean perl-5.8.1-RC4 tree - - fixed (i.e. prevented) autoboxing of undef in isa() and can() + - fixed (i.e. prevented) autoboxing of undef in + isa() and can() - fixed Makefile.PL and META.yml to ensure that new installs of autobox.pm aren't shadowed by old - versions (thanks Michael G Schwern) + versions (thanks, Michael G Schwern) 0.03 Sun Aug 10 03:17:16 2003 - added support for can() and isa() - - documented print { hashref_expression() } issues/workarounds + - documented `print { hashref_expression() }` + issues/workarounds 0.02 Wed Aug 6 16:49:45 2003 @@ -322,4 +350,5 @@ 0.01 Mon Aug 4 01:00:18 2003 - - original version; created by h2xs 1.21 with options -n autobox-0.01 + - original version; created by h2xs 1.21 with + options -n autobox-0.01 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/autobox-2.85/LICENSE.md new/autobox-2.86/LICENSE.md --- old/autobox-2.85/LICENSE.md 1970-01-01 01:00:00.000000000 +0100 +++ new/autobox-2.86/LICENSE.md 2018-03-29 22:42:20.000000000 +0200 @@ -0,0 +1,192 @@ +The Artistic License 2.0 +======================== + +_Copyright © 2000-2006, The Perl Foundation._ + +Everyone is permitted to copy and distribute verbatim copies +of this license document, but changing it is not allowed. + +### Preamble + +This license establishes the terms under which a given free software +Package may be copied, modified, distributed, and/or redistributed. +The intent is that the Copyright Holder maintains some artistic +control over the development of that Package while still keeping the +Package available as open source and free software. + +You are always permitted to make arrangements wholly outside of this +license directly with the Copyright Holder of a given Package. If the +terms of this license do not permit the full use that you propose to +make of the Package, you should contact the Copyright Holder and seek +a different licensing arrangement. + +### Definitions + +“Copyright Holder” means the individual(s) or organization(s) +named in the copyright notice for the entire Package. + +“Contributor” means any party that has contributed code or other +material to the Package, in accordance with the Copyright Holder's +procedures. + +“You” and “your” means any person who would like to copy, +distribute, or modify the Package. + +“Package” means the collection of files distributed by the +Copyright Holder, and derivatives of that collection and/or of +those files. A given Package may consist of either the Standard +Version, or a Modified Version. + +“Distribute” means providing a copy of the Package or making it +accessible to anyone else, or in the case of a company or +organization, to others outside of your company or organization. + +“Distributor Fee” means any fee that you charge for Distributing +this Package or providing support for this Package to another +party. It does not mean licensing fees. + +“Standard Version” refers to the Package if it has not been +modified, or has been modified only in ways explicitly requested +by the Copyright Holder. + +“Modified Version” means the Package, if it has been changed, and +such changes were not explicitly requested by the Copyright +Holder. + +“Original License” means this Artistic License as Distributed with +the Standard Version of the Package, in its current version or as +it may be modified by The Perl Foundation in the future. + +“Source” form means the source code, documentation source, and +configuration files for the Package. + +“Compiled” form means the compiled bytecode, object code, binary, +or any other form resulting from mechanical transformation or +translation of the Source form. + +### Permission for Use and Modification Without Distribution + +**(1)** You are permitted to use the Standard Version and create and use +Modified Versions for any purpose without restriction, provided that +you do not Distribute the Modified Version. + +### Permissions for Redistribution of the Standard Version + +**(2)** You may Distribute verbatim copies of the Source form of the +Standard Version of this Package in any medium without restriction, +either gratis or for a Distributor Fee, provided that you duplicate +all of the original copyright notices and associated disclaimers. At +your discretion, such verbatim copies may or may not include a +Compiled form of the Package. + +**(3)** You may apply any bug fixes, portability changes, and other +modifications made available from the Copyright Holder. The resulting +Package will still be considered the Standard Version, and as such +will be subject to the Original License. + +### Distribution of Modified Versions of the Package as Source + +**(4)** You may Distribute your Modified Version as Source (either gratis +or for a Distributor Fee, and with or without a Compiled form of the +Modified Version) provided that you clearly document how it differs +from the Standard Version, including, but not limited to, documenting +any non-standard features, executables, or modules, and provided that +you do at least ONE of the following: + +* **(a)** make the Modified Version available to the Copyright Holder +of the Standard Version, under the Original License, so that the +Copyright Holder may include your modifications in the Standard +Version. +* **(b)** ensure that installation of your Modified Version does not +prevent the user installing or running the Standard Version. In +addition, the Modified Version must bear a name that is different +from the name of the Standard Version. +* **(c)** allow anyone who receives a copy of the Modified Version to +make the Source form of the Modified Version available to others +under + * **(i)** the Original License or + * **(ii)** a license that permits the licensee to freely copy, + modify and redistribute the Modified Version using the same + licensing terms that apply to the copy that the licensee + received, and requires that the Source form of the Modified + Version, and of any works derived from it, be made freely + available in that license fees are prohibited but Distributor + Fees are allowed. + +### Distribution of Compiled Forms of the Standard Version +### or Modified Versions without the Source + +**(5)** You may Distribute Compiled forms of the Standard Version without +the Source, provided that you include complete instructions on how to +get the Source of the Standard Version. Such instructions must be +valid at the time of your distribution. If these instructions, at any +time while you are carrying out such distribution, become invalid, you +must provide new instructions on demand or cease further distribution. +If you provide valid instructions or cease distribution within thirty +days after you become aware that the instructions are invalid, then +you do not forfeit any of your rights under this license. + +**(6)** You may Distribute a Modified Version in Compiled form without +the Source, provided that you comply with Section 4 with respect to +the Source of the Modified Version. + +### Aggregating or Linking the Package + +**(7)** You may aggregate the Package (either the Standard Version or +Modified Version) with other packages and Distribute the resulting +aggregation provided that you do not charge a licensing fee for the +Package. Distributor Fees are permitted, and licensing fees for other +components in the aggregation are permitted. The terms of this license +apply to the use and Distribution of the Standard or Modified Versions +as included in the aggregation. + +**(8)** You are permitted to link Modified and Standard Versions with +other works, to embed the Package in a larger work of your own, or to +build stand-alone binary or bytecode versions of applications that +include the Package, and Distribute the result without restriction, +provided the result does not expose a direct interface to the Package. + +### Items That are Not Considered Part of a Modified Version + +**(9)** Works (including, but not limited to, modules and scripts) that +merely extend or make use of the Package, do not, by themselves, cause +the Package to be a Modified Version. In addition, such works are not +considered parts of the Package itself, and are not subject to the +terms of this license. + +### General Provisions + +**(10)** Any use, modification, and distribution of the Standard or +Modified Versions is governed by this Artistic License. By using, +modifying or distributing the Package, you accept this license. Do not +use, modify, or distribute the Package, if you do not accept this +license. + +**(11)** If your Modified Version has been derived from a Modified +Version made by someone other than you, you are nevertheless required +to ensure that your Modified Version complies with the requirements of +this license. + +**(12)** This license does not grant you the right to use any trademark, +service mark, tradename, or logo of the Copyright Holder. + +**(13)** This license includes the non-exclusive, worldwide, +free-of-charge patent license to make, have made, use, offer to sell, +sell, import and otherwise transfer the Package with respect to any +patent claims licensable by the Copyright Holder that are necessarily +infringed by the Package. If you institute patent litigation +(including a cross-claim or counterclaim) against any party alleging +that the Package constitutes direct or contributory patent +infringement, then this Artistic License to you shall terminate on the +date that such litigation is filed. + +**(14)** **Disclaimer of Warranty:** + +THE PACKAGE IS PROVIDED BY THE COPYRIGHT HOLDER AND CONTRIBUTORS "AS +IS' AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES. THE IMPLIED +WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, OR +NON-INFRINGEMENT ARE DISCLAIMED TO THE EXTENT PERMITTED BY YOUR LOCAL +LAW. UNLESS REQUIRED BY LAW, NO COPYRIGHT HOLDER OR CONTRIBUTOR WILL +BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, OR CONSEQUENTIAL +DAMAGES ARISING IN ANY WAY OUT OF THE USE OF THE PACKAGE, EVEN IF +ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/autobox-2.85/MANIFEST new/autobox-2.86/MANIFEST --- old/autobox-2.85/MANIFEST 2017-02-27 20:25:38.000000000 +0100 +++ new/autobox-2.86/MANIFEST 2018-04-20 21:44:04.000000000 +0200 @@ -3,8 +3,10 @@ lib/autobox.pm lib/autobox.pod lib/autobox/universal.pm +LICENSE.md Makefile.PL MANIFEST This list of files +META.json META.yml ppport.h ptable.h @@ -12,6 +14,8 @@ t/all.t t/autoref.t t/coderef.t +t/debugger.pl +t/debugger.t t/default.t t/export.t t/hints.t @@ -22,6 +26,7 @@ t/lib/Versioned.pm t/merge.t t/name.t +t/pod.t t/rt_46814.t t/rt_55652.t t/rt_71777.t @@ -31,4 +36,3 @@ t/universal_type.t t/unmerge.t t/version.t -META.json Module JSON meta-data (added by MakeMaker) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/autobox-2.85/META.json new/autobox-2.86/META.json --- old/autobox-2.85/META.json 2017-02-27 20:25:38.000000000 +0100 +++ new/autobox-2.86/META.json 2018-04-20 22:24:25.000000000 +0200 @@ -4,9 +4,9 @@ "chocolateboy <chocolate(a)cpan.org>" ], "dynamic_config" : 1, - "generated_by" : "ExtUtils::MakeMaker version 7.18, CPAN::Meta::Converter version 2.143240", + "generated_by" : "ExtUtils::MakeMaker version 7.24, CPAN::Meta::Converter version 2.150010", "license" : [ - "perl_5" + "artistic_2" ], "meta-spec" : { "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec", @@ -22,7 +22,7 @@ "prereqs" : { "build" : { "requires" : { - "ExtUtils::MakeMaker" : "0" + "IPC::System::Simple" : "1.25" } }, "configure" : { @@ -46,5 +46,6 @@ "url" : "https://github.com/chocolateboy/autobox" } }, - "version" : "2.85" + "version" : "2.86", + "x_serialization_backend" : "JSON::PP version 2.27400_02" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/autobox-2.85/META.yml new/autobox-2.86/META.yml --- old/autobox-2.85/META.yml 2017-02-27 20:25:38.000000000 +0100 +++ new/autobox-2.86/META.yml 2018-04-20 22:24:25.000000000 +0200 @@ -3,12 +3,12 @@ author: - 'chocolateboy <chocolate(a)cpan.org>' build_requires: - ExtUtils::MakeMaker: '0' + IPC::System::Simple: '1.25' configure_requires: ExtUtils::MakeMaker: '0' dynamic_config: 1 -generated_by: 'ExtUtils::MakeMaker version 7.18, CPAN::Meta::Converter version 2.143240' -license: perl +generated_by: 'ExtUtils::MakeMaker version 7.24, CPAN::Meta::Converter version 2.150010' +license: artistic_2 meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html version: '1.4' @@ -23,4 +23,5 @@ resources: bugtracker: https://github.com/chocolateboy/autobox/issues repository: https://github.com/chocolateboy/autobox -version: '2.85' +version: '2.86' +x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/autobox-2.85/Makefile.PL new/autobox-2.86/Makefile.PL --- old/autobox-2.85/Makefile.PL 2016-08-26 21:50:25.000000000 +0200 +++ new/autobox-2.86/Makefile.PL 2018-04-20 16:17:05.000000000 +0200 @@ -18,27 +18,33 @@ $OPTIMIZE = $Config{optimize}; } +my $META_MERGE = { + resources => { + repository => 'https://github.com/chocolateboy/autobox', + bugtracker => 'https://github.com/chocolateboy/autobox/issues', + }, +}; + +my $TEST_REQUIRES = { + 'IPC::System::Simple' => '1.25', +}; + WriteMakefile( - NAME => 'autobox', - VERSION_FROM => 'lib/autobox.pm', + NAME => 'autobox', + VERSION_FROM => 'lib/autobox.pm', + # compatibility in case module was previously installed to lib - INSTALLDIRS => ($] >= 5.011 ? 'site' : 'perl'), - PREREQ_PM => { - 'Scope::Guard' => '0.21', + INSTALLDIRS => ($] >= 5.011 ? 'site' : 'perl'), + + PREREQ_PM => { + 'Scope::Guard' => '0.21', }, - ABSTRACT_FROM => 'lib/autobox.pod', - AUTHOR => 'chocolateboy <chocolate(a)cpan.org>', - INC => '-I.', - OPTIMIZE => $OPTIMIZE, - ($EUMM_VERSION >= 6.48 ? (MIN_PERL_VERSION => '5.8.0') : ()), - ($EUMM_VERSION >= 6.31 ? (LICENSE => 'perl') : ()), - ($EUMM_VERSION >= 6.46 ? - (META_MERGE => { - resources => { - repository => 'https://github.com/chocolateboy/autobox', - bugtracker => 'https://github.com/chocolateboy/autobox/issues', - }, - }) - : () - ), + ABSTRACT_FROM => 'lib/autobox.pod', + AUTHOR => 'chocolateboy <chocolate(a)cpan.org>', + INC => '-I.', + OPTIMIZE => $OPTIMIZE, + ($EUMM_VERSION >= 6.5503 ? (BUILD_REQUIRES => $TEST_REQUIRES) : ()), + ($EUMM_VERSION >= 6.31 ? (LICENSE => 'artistic_2') : ()), + ($EUMM_VERSION >= 6.46 ? (META_MERGE => $META_MERGE) : ()), + ($EUMM_VERSION >= 6.48 ? (MIN_PERL_VERSION => '5.8.0') : ()), ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/autobox-2.85/README new/autobox-2.86/README --- old/autobox-2.85/README 2017-02-27 19:20:31.000000000 +0100 +++ new/autobox-2.86/README 2018-04-20 21:07:11.000000000 +0200 @@ -1,4 +1,4 @@ -autobox version 2.85 +autobox version 2.86 ==================== The autobox pragma allows methods to be called on integers, floats, strings, arrays, hashes, and code references in exactly the same manner as blessed references. @@ -26,6 +26,7 @@ COPYRIGHT AND LICENCE -This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. +Copyright (c) 2003-2018 by chocolateboy. -Copyright (c) 2003-2017 chocolateboy <chocolate(a)cpan.org> +This is free software; you can redistribute it and/or modify it under the +terms of the Artistic License 2.0. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/autobox-2.85/autobox.xs new/autobox-2.86/autobox.xs --- old/autobox-2.85/autobox.xs 2016-08-26 21:35:32.000000000 +0200 +++ new/autobox-2.86/autobox.xs 2018-04-20 17:33:29.000000000 +0200 @@ -10,117 +10,181 @@ static PTABLE_t *AUTOBOX_OP_MAP = NULL; static U32 AUTOBOX_SCOPE_DEPTH = 0; -static OP *(*autobox_old_ck_subr)(pTHX_ OP *op) = NULL; +static OP *(*autobox_old_check_entersub)(pTHX_ OP *op) = NULL; -static SV * autobox_method_common(pTHX_ SV *meth, U32 *hashp); +static SV * autobox_method_common(pTHX_ SV *method, U32 *hashp); static const char * autobox_type(pTHX_ SV * const sv, STRLEN *len); static void autobox_cleanup(pTHX_ void * unused); -OP * autobox_ck_subr(pTHX_ OP *o); +OP * autobox_check_entersub(pTHX_ OP *o); OP * autobox_method_named(pTHX); OP * autobox_method(pTHX); -OP * autobox_ck_subr(pTHX_ OP *o) { +void auto_ref(pTHX_ OP *invocant, UNOP *parent, OP *prev); + +/* handle non-reference invocants e.g. @foo->bar, %foo->bar etc. */ +void auto_ref(pTHX_ OP *invocant, UNOP *parent, OP *prev) { /* - * work around a %^H scoping bug by checking that PL_hints (which is properly scoped) & an unused - * PL_hints bit (0x100000) is true + * perlref: + * + * As a special case, "\(@foo)" returns a list of references to the + * contents of @foo, not a reference to @foo itself. Likewise for %foo, + * except that the key references are to copies (since the keys are just + * strings rather than full-fledged scalars). + * + * we don't want that (it results in the invocant being a reference to the + * last element in the list), so we toggle the parentheses off while creating + * the reference then toggle them back on in case they're needed elsewhere * - * XXX this is fixed in #33311: http://www.nntp.perl.org/group/perl.perl5.porters/2008/02/msg134131.html */ - if ((PL_hints & 0x80020000) == 0x80020000) { - UNOP *parent = (OpHAS_SIBLING(cUNOPo->op_first)) ? cUNOPo : ((UNOP*)cUNOPo->op_first); - OP *prev = parent->op_first; - OP *o2 = OpSIBLING(prev); - OP *cvop; - - for (cvop = o2; OpHAS_SIBLING(cvop); cvop = OpSIBLING(cvop)); - - /* don't autobox if the receiver is a bareword */ - if ((cvop->op_type == OP_METHOD) || ((cvop->op_type == OP_METHOD_NAMED) && !(o2->op_private & OPpCONST_BARE))) { - const char * meth; - /* - * the bareword flag is not set on the receivers of the import, unimport - * and VERSION messages faked up by use() and no(), so exempt them - */ - if ((cvop->op_type == OP_METHOD) || - (((meth = SvPVX_const(((SVOP *)cvop)->op_sv))) && /* SvPVX_const should be sane for method_named */ - strNE(meth, "import") && strNE(meth, "unimport") && strNE(meth, "VERSION"))) { - HV *table = GvHV(PL_hintgv); - SV **svp; - - /* if there are bindings for this scope */ - if (table && (svp = hv_fetch(table, "autobox", 7, FALSE)) && *svp && SvOK(*svp)) { - /* - * if the receiver is an @array, %hash, @{ ... } or %{ ... }, then "autoref" it - * i.e. the op tree equivalent of inserting a backslash before it - */ - -#ifndef op_sibling_splice - OP *refgen; -#endif - U32 toggled = 0; + bool toggled = FALSE; - switch (o2->op_type) { - case OP_PADAV: - case OP_PADHV: - case OP_RV2AV: - case OP_RV2HV: - /* - * perlref: - * - * As a special case, "\(@foo)" returns a list of references to the contents of @foo, - * not a reference to @foo itself. Likewise for %foo, except that the key references - * are to copies (since the keys are just strings rather than full-fledged scalars). - * - * we don't want that (it results in the receiver being a reference to the last element - * in the list), so we toggle the parentheses off while creating the reference - * then toggle them back on in case they're needed elsewhere - * - */ - if (o2->op_flags & OPf_PARENS) { - o2->op_flags &= ~OPf_PARENS; - toggled = 1; - } + if (invocant->op_flags & OPf_PARENS) { + invocant->op_flags &= ~OPf_PARENS; + toggled = TRUE; + } #ifdef op_sibling_splice - op_sibling_splice( - (OP *)parent, - prev, - 0, - newUNOP( - OP_REFGEN, - 0, - op_sibling_splice( - (OP *)parent, - prev, - 1, - NULL - ) - ) - ); + op_sibling_splice( + (OP *)parent, + prev, + 0, + newUNOP( + OP_REFGEN, + 0, + op_sibling_splice( + (OP *)parent, + prev, + 1, + NULL + ) + ) + ); #else - refgen = newUNOP(OP_REFGEN, 0, o2); - prev->op_sibling = refgen; - refgen->op_sibling = o2->op_sibling; - o2->op_sibling = NULL; + /* XXX if this (old?) way works, why do we need both? */ + OP *refgen = newUNOP(OP_REFGEN, 0, invocant); + prev->op_sibling = refgen; + refgen->op_sibling = invocant->op_sibling; + invocant->op_sibling = NULL; #endif - /* Restore the parentheses in case something else expects them */ - if (toggled) { - o2->op_flags |= OPf_PARENS; - } - /* otherwise do nothing */ - } + /* Restore the parentheses in case something else expects them */ + if (toggled) { + invocant->op_flags |= OPf_PARENS; + } +} - cvop->op_flags |= OPf_SPECIAL; - cvop->op_ppaddr = cvop->op_type == OP_METHOD ? autobox_method : autobox_method_named; - PTABLE_store(AUTOBOX_OP_MAP, cvop, SvRV(*svp)); - } - } +OP * autobox_check_entersub(pTHX_ OP *o) { + UNOP *parent; + OP *prev, *invocant, *cvop; + SV **svp; + HV *hh; + bool has_bindings = FALSE; + + /* + * XXX note: perl adopts a convention of calling the OP `o` and has shortcut + * macros based on this convention like cUNOPo, among others. if the name + * changes, the macro will need to change as well e.g. to cUNOPx(op) + */ + + /* + * work around a %^H scoping bug by checking that PL_hints (which is + * properly scoped) & an unused PL_hints bit (0x100000) is true + * + * XXX this is fixed in #33311: + * + * http://www.nntp.perl.org/group/perl.perl5.porters/2008/02/msg134131.html + */ + if ((PL_hints & 0x80020000) != 0x80020000) { + goto done; + } + + /* + * the OP which yields the CV is the last OP in the ENTERSUB OP's list of + * children. navigate to it by following the `op_sibling` pointers from the + * first child in the list (the invocant) + */ + + parent = OpHAS_SIBLING(cUNOPo->op_first) ? cUNOPo : ((UNOP *)cUNOPo->op_first); + prev = parent->op_first; + invocant = OpSIBLING(prev); + + for (cvop = invocant; OpHAS_SIBLING(cvop); cvop = OpSIBLING(cvop)); + + /* + * now we have the CV OP, we can check if it's a method lookup. + * bail out if it's not + */ + if ((cvop->op_type != OP_METHOD) && (cvop->op_type != OP_METHOD_NAMED)) { + goto done; + } + + /* bail out if the invocant is a bareword e.g. Foo->bar */ + if ((invocant->op_type == OP_CONST) && (invocant->op_private & OPpCONST_BARE)) { + goto done; + } + + /* + * the bareword flag is not set on the invocants of the `import`, `unimport` + * and `VERSION` methods faked up by `use` and `no` [1]. we have no other way + * to detect if an OP_CONST invocant is a bareword for these methods, + * so we have no choice but to assume it is and bail out so that we don't + * break `use`, `no` etc. + * + * (this is documented: the solution/workaround is to use + * $value->autobox_class instead.) + * + * [1] XXX this is a bug (in perl) + */ + if (cvop->op_type == OP_METHOD_NAMED) { + /* SvPVX_const should be sane for the method name */ + const char * method_name = SvPVX_const(((SVOP *)cvop)->op_sv); + + if ( + strEQ(method_name, "import") || + strEQ(method_name, "unimport") || + strEQ(method_name, "VERSION") + ) { + goto done; } } - return autobox_old_ck_subr(aTHX_ o); + hh = GvHV(PL_hintgv); /* the hints hash (%^H) */ + + /* is there a bindings hashref for this scope? */ + has_bindings = hh + && (svp = hv_fetch(hh, "autobox", 7, FALSE)) + && *svp + && SvROK(*svp); + + if (!has_bindings) { + goto done; + } + + /* + * if the invocant is an @array, %hash, @{ ... } or %{ ... }, then + * "auto-ref" it i.e. the optree equivalent of inserting a backslash + * before it: + * + * @foo->bar -> (\@foo)->bar + */ + switch (invocant->op_type) { + case OP_PADAV: + case OP_PADHV: + case OP_RV2AV: + case OP_RV2HV: + auto_ref(aTHX_ invocant, parent, prev); + } + + cvop->op_flags |= OPf_SPECIAL; + cvop->op_ppaddr = cvop->op_type == OP_METHOD + ? autobox_method + : autobox_method_named; + + PTABLE_store(AUTOBOX_OP_MAP, cvop, SvRV(*svp)); + + done: + return autobox_old_check_entersub(aTHX_ o); } OP* autobox_method(pTHX) { @@ -130,6 +194,7 @@ if (SvROK(sv)) { cv = SvRV(sv); + if (SvTYPE(cv) == SVt_PVCV) { SETs(cv); RETURN; @@ -162,7 +227,9 @@ } } -#define AUTOBOX_TYPE_RETURN(type) STMT_START { *len = (sizeof(type) - 1); return type; } STMT_END +#define AUTOBOX_TYPE_RETURN(type) STMT_START { \ + *len = (sizeof(type) - 1); return type; \ +} STMT_END static const char *autobox_type(pTHX_ SV * const sv, STRLEN *len) { switch (SvTYPE(sv)) { @@ -183,7 +250,10 @@ AUTOBOX_TYPE_RETURN("FLOAT"); } case SVt_PVNV: - /* integer before float: https://rt.cpan.org/Ticket/Display.html?id=46814 */ + /* + * integer before float: + * https://rt.cpan.org/Ticket/Display.html?id=46814 + */ if (SvIOK(sv)) { AUTOBOX_TYPE_RETURN("INTEGER"); } else if (SvNOK(sv)) { @@ -246,10 +316,14 @@ } /* returns either the method, or NULL, meaning delegate to the original op */ -static SV * autobox_method_common(pTHX_ SV * meth, U32* hashp) { +/* FIXME this has diverged from the implementation in pp_hot.c */ +static SV * autobox_method_common(pTHX_ SV * method, U32* hashp) { SV * const sv = *(PL_stack_base + TOPMARK + 1); - /* if autobox is enabled (in scope) for this op and the receiver isn't an object... */ + /* + * if autobox is enabled (in scope) for this op and the invocant isn't + * an object... + */ /* don't use sv_isobject - we don't want to call SvGETMAGIC twice */ if ((PL_op->op_flags & OPf_SPECIAL) && ((!SvROK(sv)) || !SvOBJECT(SvRV(sv)))) { HV * autobox_bindings; @@ -265,8 +339,8 @@ STRLEN typelen = 0; /* - * the type is either the receiver's reftype(), a subtype of SCALAR if it's - * not a ref, or UNDEF if it's not defined + * the type is either the invocant's reftype(), a subtype of + * SCALAR if it's not a ref, or UNDEF if it's not defined */ if (SvOK(sv)) { @@ -288,21 +362,35 @@ stash = gv_stashpvn(packname, packlen, FALSE); if (hashp) { - const HE* const he = hv_fetch_ent(stash, meth, 0, *hashp); /* shortcut for simple names */ + /* shortcut for simple names */ + const HE* const he = hv_fetch_ent(stash, method, 0, *hashp); if (he) { gv = (GV*)HeVAL(he); - if (isGV(gv) && GvCV(gv) && (!GvCVGEN(gv) || GvCVGEN(gv) == PL_sub_generation)) { + + /* + * FIXME this has diverged from the implementation + * in pp_hot.c + */ + if ( + isGV(gv) + && GvCV(gv) + && (!GvCVGEN(gv) || GvCVGEN(gv) == PL_sub_generation) + ) { return ((SV*)GvCV(gv)); } } } /* - * SvPV_nolen_const returns the method name as a const char *, stringifying names that - * are not strings (e.g. undef, SvIV, SvNV &c.) - see name.t + * SvPV_nolen_const returns the method name as a const char *, + * stringifying names that are not strings (e.g. undef, SvIV, + * SvNV &c.) - see name.t */ - gv = gv_fetchmethod(stash ? stash : (HV*)packsv, SvPV_nolen_const(meth)); + gv = gv_fetchmethod( + stash ? stash : (HV*)packsv, + SvPV_nolen_const(method) + ); if (gv) { return(isGV(gv) ? (SV*)GvCV(gv) : (SV*)gv); @@ -328,7 +416,10 @@ PROTOTYPES: ENABLE BOOT: -/* XXX the BOOT section extends to the next blank line, so don't add one for readability */ +/* + * XXX the BOOT section extends to the next blank line, so don't add one + * for readability + */ AUTOBOX_OP_MAP = PTABLE_new(); if (AUTOBOX_OP_MAP) { Perl_call_atexit(aTHX_ autobox_cleanup, NULL); @@ -349,8 +440,8 @@ * usually, this will be Perl_ck_subr, though, in principle, * it could be a bespoke checker spliced in by another module. */ - autobox_old_ck_subr = PL_check[OP_ENTERSUB]; - PL_check[OP_ENTERSUB] = autobox_ck_subr; + autobox_old_check_entersub = PL_check[OP_ENTERSUB]; + PL_check[OP_ENTERSUB] = autobox_check_entersub; } void @@ -365,7 +456,7 @@ --AUTOBOX_SCOPE_DEPTH; } else { AUTOBOX_SCOPE_DEPTH = 0; - PL_check[OP_ENTERSUB] = autobox_old_ck_subr; + PL_check[OP_ENTERSUB] = autobox_old_check_entersub; } void diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/autobox-2.85/lib/autobox.pm new/autobox-2.86/lib/autobox.pm --- old/autobox-2.85/lib/autobox.pm 2017-02-27 19:20:38.000000000 +0100 +++ new/autobox-2.86/lib/autobox.pm 2018-04-20 21:07:23.000000000 +0200 @@ -11,7 +11,7 @@ use Scope::Guard; use Storable; -our $VERSION = '2.85'; +our $VERSION = '2.86'; XSLoader::load 'autobox', $VERSION; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/autobox-2.85/lib/autobox.pod new/autobox-2.86/lib/autobox.pod --- old/autobox-2.85/lib/autobox.pod 2017-02-27 19:21:06.000000000 +0100 +++ new/autobox-2.86/lib/autobox.pod 2018-04-20 22:18:25.000000000 +0200 @@ -197,11 +197,12 @@ - is equivalent to: - use autobox + use autobox { SCALAR => 'SCALAR', ARRAY => 'ARRAY', HASH => 'HASH', - CODE => 'CODE'; + CODE => 'CODE', + } This facilitates one-liners and prototypes: @@ -235,7 +236,7 @@ UNIVERSAL => ..., # any of the 3 value types above DEFAULT => ..., # any of the 3 value types above DEBUG => ... # boolean or coderef - }; + } The INTEGER, FLOAT, NUMBER, STRING, SCALAR, ARRAY, HASH, CODE, UNDEF, DEFAULT and UNIVERSAL options can take three different types of value: @@ -281,55 +282,61 @@ Thus: - use autobox + use autobox { STRING => 'MyString', - DEFAULT => 'MyDefault'; + DEFAULT => 'MyDefault', + } is equivalent to: - use autobox + use autobox { STRING => 'MyString', SCALAR => 'MyDefault', ARRAY => 'MyDefault', HASH => 'MyDefault', - CODE => 'MyDefault'; + CODE => 'MyDefault', + } Which in turn is equivalent to: - use autobox + use autobox { INTEGER => 'MyDefault', FLOAT => 'MyDefault', STRING => [ 'MyString', 'MyDefault' ], ARRAY => 'MyDefault', HASH => 'MyDefault', - CODE => 'MyDefault'; + CODE => 'MyDefault', + } Namespaces in DEFAULT values have the default type name appended, which, in the case of defaulted SCALAR types, is SCALAR rather than INTEGER, FLOAT &c. Thus: - use autobox + use autobox { ARRAY => 'MyArray', HASH => 'MyHash', CODE => 'MyCode', - DEFAULT => 'MyNamespace::'; + DEFAULT => 'MyNamespace::', + } is equivalent to: - use autobox + use autobox { INTEGER => 'MyNamespace::SCALAR', FLOAT => 'MyNamespace::SCALAR', STRING => 'MyNamespace::SCALAR', ARRAY => 'MyArray', HASH => 'MyArray', - CODE => 'MyCode'; + CODE => 'MyCode', + } Any of the four default types can be exempted from defaulting to the DEFAULT value by supplying a value of undef: - use autobox + use autobox { HASH => undef, - DEFAULT => 'MyDefault'; + DEFAULT => 'MyDefault', + } 42->foo # ok: MyDefault::foo []->bar # ok: MyDefault::bar @@ -387,9 +394,10 @@ is equivalent to: - use autobox + use autobox { INTEGER => 'MyNumber', - FLOAT => 'MyNumber'; + FLOAT => 'MyNumber', + } And: @@ -397,10 +405,11 @@ is equivalent to: - use autobox + use autobox { INTEGER => 'MyScalar', FLOAT => 'MyScalar', - STRING => 'MyScalar'; + STRING => 'MyScalar', + } Virtual types can also be passed to C<unimport> via the C<no autobox> syntax. This disables autoboxing for the corresponding subtypes e.g. @@ -414,10 +423,11 @@ Virtual type bindings can be mixed with ordinary bindings to provide fine-grained control over inheritance and delegation. For instance: - use autobox + use autobox { INTEGER => 'MyInteger', NUMBER => 'MyNumber', - SCALAR => 'MyScalar'; + SCALAR => 'MyScalar', + } would result in the following bindings: @@ -427,15 +437,17 @@ Note that DEFAULT bindings take precedence over virtual type bindings i.e. - use autobox + use autobox { UNIVERSAL => 'MyUniversal', - DEFAULT => 'MyDefault'; # default SCALAR, ARRAY, HASH and CODE before UNIVERSAL + DEFAULT => 'MyDefault', # default SCALAR, ARRAY, HASH and CODE before UNIVERSAL + } is equivalent to: - use autobox + use autobox { INTEGER => [ 'MyDefault', 'MyUniversal' ], FLOAT => [ 'MyDefault', 'MyUniversal' ], # ... &c. + } =head2 DEBUG @@ -659,9 +671,16 @@ eval { 42->foo() }; # OK +=head3 Operator Overloading + +Operator overloading via the L<overload> pragma doesn't (automatically) work. +C<autobox> works by lexically overriding the L<arrow operator|perlop/"The Arrow Operator">. +It doesn't bless native types into objects, so overloading - or any other kind of "magic" +which depends on values being blessed - doesn't apply. + =head1 VERSION -2.85 +2.86 =head1 SEE ALSO @@ -681,11 +700,11 @@ chocolateboy <chocolate(a)cpan.org> -=head1 COPYRIGHT +=head1 COPYRIGHT AND LICENSE -Copyright (c) 2003-2017, chocolateboy. +Copyright (c) 2003-2018 by chocolateboy. -This module is free software. It may be used, redistributed -and/or modified under the same terms as Perl itself. +This library is free software; you can redistribute it and/or modify it under the +terms of the L<Artistic License 2.0|http://www.opensource.org/licenses/artistic-license-2.0.php>. =cut diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/autobox-2.85/t/all.t new/autobox-2.86/t/all.t --- old/autobox-2.85/t/all.t 2017-02-27 19:16:59.000000000 +0100 +++ new/autobox-2.86/t/all.t 2018-04-20 16:40:54.000000000 +0200 @@ -60,12 +60,10 @@ use strict; use warnings; -use blib; - use FindBin qw($Bin); use lib "$Bin/lib"; -use Test::More tests => 292; +use Test::More tests => 302; $| = 1; @@ -78,6 +76,7 @@ my $array = [ 0 .. 9 ]; my $hash = { 0 .. 9 }; my $code = \&add; +my $test = 'test'; my $error = qr{Can't (call|locate object) method "test" (without a|via) package\b}; my $string_error = qr{Can't locate object method "test" via package "Hello, world!"}; my $unblessed_error = qr{Can't call method "test" on unblessed reference}; @@ -89,6 +88,7 @@ my $object = Test->new(); is(ref $object, 'Test', 'no args: Test->new() - bareword not autoboxed'); + is(Test->$test, 'rubicund', 'no args: Test->$test() - bareword not autoboxed'); my $result = $object->test(); is($result, 'rubicund', 'no args: $object->test() - object not autoboxed'); @@ -124,6 +124,7 @@ my $object = Test->new(); is(ref $object, 'Test', 'override package: Test->new() - bareword not autoboxed'); + is(Test->$test, 'rubicund', 'override package: Test->$test() - bareword not autoboxed'); my $result = $object->test(); is($result, 'rubicund', 'override package: $object->test() - object not autoboxed'); @@ -149,6 +150,7 @@ my $object = Test->new(); is(ref $object, 'Test', 'override namespace: Test->new() - bareword not autoboxed'); + is(Test->$test, 'rubicund', 'override namespace: Test->$test() - bareword not autoboxed'); my $result = $object->test(); is($result, 'rubicund', 'override namespace: $object->test() - object not autoboxed'); @@ -174,6 +176,7 @@ my $object = Test->new(); is(ref $object, 'Test', 'default package: Test->new() - bareword not autoboxed'); + is(Test->$test, 'rubicund', 'default package: Test->$test() - bareword not autoboxed'); my $result = $object->test(); is($result, 'rubicund', 'default package: $object->test() - object not autoboxed'); @@ -209,6 +212,7 @@ my $object = Test->new(); is(ref $object, 'Test', 'default namespace: Test->new() - bareword not autoboxed'); + is(Test->$test, 'rubicund', 'default namespace: Test->$test() - bareword not autoboxed'); my $result = $object->test(); is($result, 'rubicund', 'default namespace: $object->test() - object not autoboxed'); @@ -270,6 +274,7 @@ my $object = Test->new(); is(ref $object, 'Test', 'test all 1: Test->new() - bareword not autoboxed'); + is(Test->$test, 'rubicund', 'test all 1: Test->$test() - bareword not autoboxed'); my $result = $object->test(); is($result, 'rubicund', 'test all 1: $object->test() - object not autoboxed'); @@ -305,6 +310,7 @@ my $object = Test->new(); is(ref $object, 'Test', 'test all 2: Test->new() - bareword not autoboxed'); + is(Test->$test, 'rubicund', 'test all 2: Test->$test() - bareword not autoboxed'); my $result = $object->test(); is($result, 'rubicund', 'test all 2: $object->test() - object not autoboxed'); @@ -340,6 +346,7 @@ my $object = Test->new(); is(ref $object, 'Test', 'test all 3: Test->new() - bareword not autoboxed'); + is(Test->$test, 'rubicund', 'test all 3: Test->$test() - bareword not autoboxed'); my $result = $object->test(); is($result, 'rubicund', 'test all 3: $object->test() - object not autoboxed'); @@ -374,6 +381,7 @@ my $object = Test->new(); is(ref $object, 'Test', 'test all 4: Test->new() - bareword not autoboxed'); + is(Test->$test, 'rubicund', 'test all 4: Test->$test() - bareword not autoboxed'); my $result = $object->test(); is($result, 'rubicund', 'test all 4: $object->test() - object not autoboxed'); @@ -457,6 +465,7 @@ my $object = Test->new(); is(ref $object, 'Test', 'nested (outer): Test->new() - bareword not autoboxed'); + is(Test->$test, 'rubicund', 'nested (outer): Test->$test() - bareword not autoboxed'); my $result = $object->test(); is($result, 'rubicund', 'nested (outer): $object->test() - object not autoboxed'); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/autobox-2.85/t/debugger.pl new/autobox-2.86/t/debugger.pl --- old/autobox-2.85/t/debugger.pl 1970-01-01 01:00:00.000000000 +0100 +++ new/autobox-2.86/t/debugger.pl 2018-04-20 16:17:05.000000000 +0200 @@ -0,0 +1,30 @@ +#!/usr/bin/env perl + +use strict; +use warnings; +use blib; + +use autobox { DEFAULT => __PACKAGE__ }; + +# helper for t/debugger.t +# +# this prints "foo -> bar -> baz -> quux" +# on perl < 5.22 and fails with the following error on newer perls: +# +# Can't locate object method "baz" via package "foo -> bar" +# +# https://github.com/scrottie/autobox-Core/issues/34 + +sub bar { + return "$_[0] -> bar"; +} + +sub baz { + return "$_[0] -> baz"; +} + +sub quux { + print "$_[0] -> quux", $/; +} + +'foo'->bar->baz->quux; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/autobox-2.85/t/debugger.t new/autobox-2.86/t/debugger.t --- old/autobox-2.85/t/debugger.t 1970-01-01 01:00:00.000000000 +0100 +++ new/autobox-2.86/t/debugger.t 2018-04-20 16:17:05.000000000 +0200 @@ -0,0 +1,15 @@ +#!/usr/bin/env perl + +use strict; +use warnings; + +use FindBin qw($Bin); +use IPC::System::Simple qw(capturex); +use Test::More tests => 1; + +# https://github.com/scrottie/autobox-Core/issues/34 + +$ENV{PERLDB_OPTS} = 'NonStop=1'; + +chomp(my $got = capturex($^X, '-d', "$Bin/debugger.pl")); +is $got, 'foo -> bar -> baz -> quux', 'runs under perl -d'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/autobox-2.85/t/pod.t new/autobox-2.86/t/pod.t --- old/autobox-2.85/t/pod.t 1970-01-01 01:00:00.000000000 +0100 +++ new/autobox-2.86/t/pod.t 2015-03-30 18:32:05.000000000 +0200 @@ -0,0 +1,10 @@ +#!/usr/bin/env perl + +use strict; +use warnings; + +use Test::More; + +eval 'use Test::Pod 1.00'; +plan skip_all => 'Test::Pod 1.00 required for testing POD' if ($@); +all_pod_files_ok(); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/autobox-2.85/t/rt_71777.t new/autobox-2.86/t/rt_71777.t --- old/autobox-2.85/t/rt_71777.t 2015-03-30 18:32:05.000000000 +0200 +++ new/autobox-2.86/t/rt_71777.t 2017-02-27 23:15:41.000000000 +0100 @@ -2,7 +2,6 @@ use strict; use warnings; -use blib; # simplified version of the test case provided by Tomas Doran (t0m) # https://rt.cpan.org/Ticket/Display.html?id=71777

1 0

commit perl-Config-MVP for openSUSE:Factory
by root＠hilbert.suse.de 26 Apr '18

26 Apr '18

Hello community, here is the log from the commit of package perl-Config-MVP for openSUSE:Factory checked in at 2018-04-26 13:38:03 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Config-MVP (Old) and /work/SRC/openSUSE:Factory/.perl-Config-MVP.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "perl-Config-MVP" Thu Apr 26 13:38:03 2018 rev:11 rq:599893 version:2.200011 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Config-MVP/perl-Config-MVP.changes 2015-04-18 10:39:30.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Config-MVP.new/perl-Config-MVP.changes 2018-04-26 13:38:05.111961791 +0200 @@ -1,0 +2,10 @@ +Sun Apr 22 05:08:17 UTC 2018 - coolo(a)suse.com + +- updated to 2.200011 + see /usr/share/doc/packages/perl-Config-MVP/Changes + + 2.200011 2018-04-21 10:12:06+02:00 Europe/Oslo + - cwd is now locally added to @INC during config reading (but this can + be disabled by setting add_cwd_to_lib to false) + +------------------------------------------------------------------- Old: ---- Config-MVP-2.200010.tar.gz New: ---- Config-MVP-2.200011.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Config-MVP.spec ++++++ --- /var/tmp/diff_new_pack.VwCEjP/_old 2018-04-26 13:38:06.511910480 +0200 +++ /var/tmp/diff_new_pack.VwCEjP/_new 2018-04-26 13:38:06.523910040 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Config-MVP # -# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2018 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,14 +17,14 @@ Name: perl-Config-MVP -Version: 2.200010 +Version: 2.200011 Release: 0 %define cpan_name Config-MVP Summary: Multivalue-Property Package-Oriented Configuration -License: Artistic-1.0 or GPL-1.0+ +License: Artistic-1.0 OR GPL-1.0-or-later Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/Config-MVP/ -Source0: http://www.cpan.org/authors/id/R/RJ/RJBS/%{cpan_name}-%{version}.tar.gz +Source0: https://cpan.metacpan.org/authors/id/R/RJ/RJBS/%{cpan_name}-%{version}.tar.… Source1: cpanspec.yml BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build @@ -94,6 +94,7 @@ %files -f %{name}.files %defattr(-,root,root,755) -%doc Changes LICENSE README +%doc Changes README +%license LICENSE %changelog ++++++ Config-MVP-2.200010.tar.gz -> Config-MVP-2.200011.tar.gz ++++++ ++++ 1751 lines of diff (skipped)

1 0

commit perl-Devel-PPPort for openSUSE:Factory
by root＠hilbert.suse.de 26 Apr '18

26 Apr '18

Hello community, here is the log from the commit of package perl-Devel-PPPort for openSUSE:Factory checked in at 2018-04-26 13:38:01 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Devel-PPPort (Old) and /work/SRC/openSUSE:Factory/.perl-Devel-PPPort.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "perl-Devel-PPPort" Thu Apr 26 13:38:01 2018 rev:7 rq:599891 version:3.42 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Devel-PPPort/perl-Devel-PPPort.changes 2017-05-24 16:47:22.867786097 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Devel-PPPort.new/perl-Devel-PPPort.changes 2018-04-26 13:38:02.508057229 +0200 @@ -1,0 +2,29 @@ +Sun Apr 22 05:17:01 UTC 2018 - coolo(a)suse.com + +- updated to 3.42 + see /usr/share/doc/packages/perl-Devel-PPPort/Changes + + 3.42 - 2018-04-21 + + * Include 'Changes' (this file) in the distribution. + + 3.41 - 2018-04-21 + + * Fix security problem: CWE-134: Use of Externally-Controlled Format String. + * Fix WIDEST_UTYPE. + * Add the following functions: + croak_sv, die_sv, mess_sv, warn_sv, mess, vmess, warn_nocontext, + croak_nocontext, croak_no_modify, croak_memory_wrap, croak_xs_usage. + * Delist functions listed as deprecated or unstable. + * (perl #132876) define API macros on if the NEED_ macro is defined. + * (perl #132876) only define croak_xs_usage()'s assert macro if cxu requested. + * (perl #132761) updates for older perls. + * Do not define PERL_MAGIC_qr more times. + * Do not mask Perl_warn_nocontext and Perl_croak_nocontext. + (Fixes compile errors on older threaded Perl versions.) + * Skip ASCII tests on non-ASCII platforms. + * Skip tests invalid on EBCDIC. + * Will now compile under C++11. + * Documentation improvements. + +------------------------------------------------------------------- Old: ---- Devel-PPPort-3.36.tar.gz New: ---- Devel-PPPort-3.42.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Devel-PPPort.spec ++++++ --- /var/tmp/diff_new_pack.TYpxd9/_old 2018-04-26 13:38:03.512020431 +0200 +++ /var/tmp/diff_new_pack.TYpxd9/_new 2018-04-26 13:38:03.512020431 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Devel-PPPort # -# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2018 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,14 +17,14 @@ Name: perl-Devel-PPPort -Version: 3.36 +Version: 3.42 Release: 0 %define cpan_name Devel-PPPort Summary: Perl/Pollution/Portability -License: Artistic-1.0 or GPL-1.0+ +License: Artistic-1.0 OR GPL-1.0-or-later Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/Devel-PPPort/ -Source0: https://cpan.metacpan.org/authors/id/W/WO/WOLFSAGE/%{cpan_name}-%{version}.… +Source0: https://cpan.metacpan.org/authors/id/X/XS/XSAWYERX/%{cpan_name}-%{version}.… Source1: cpanspec.yml BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl @@ -52,7 +52,6 @@ %prep %setup -q -n %{cpan_name}-%{version} -find . -type f ! -name \*.pl -print0 | xargs -0 chmod 644 %build %{__perl} Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags}" @@ -68,6 +67,6 @@ %files -f %{name}.files %defattr(-,root,root,755) -%doc Changes HACKERS README README.md soak TODO +%doc Changes HACKERS soak %changelog ++++++ Devel-PPPort-3.36.tar.gz -> Devel-PPPort-3.42.tar.gz ++++++ ++++ 6317 lines of diff (skipped)

1 0

commit perl-Test-NoTabs for openSUSE:Factory
by root＠hilbert.suse.de 26 Apr '18

26 Apr '18

Hello community, here is the log from the commit of package perl-Test-NoTabs for openSUSE:Factory checked in at 2018-04-26 13:37:55 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Test-NoTabs (Old) and /work/SRC/openSUSE:Factory/.perl-Test-NoTabs.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "perl-Test-NoTabs" Thu Apr 26 13:37:55 2018 rev:15 rq:599889 version:2.02 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Test-NoTabs/perl-Test-NoTabs.changes 2017-04-20 20:52:12.953224558 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Test-NoTabs.new/perl-Test-NoTabs.changes 2018-04-26 13:38:00.292138445 +0200 @@ -1,0 +2,13 @@ +Sun Apr 22 06:02:43 UTC 2018 - coolo(a)suse.com + +- updated to 2.02 + see /usr/share/doc/packages/perl-Test-NoTabs/Changes + + 2.02 2018-04-21 13:57:54Z + - no changes since trial release + + 2.01 2017-06-08 23:38:48Z (TRIAL RELEASE) + - altered a test to not bake @INC into -I options for a subprocess, to + avoid too-long commands + +------------------------------------------------------------------- Old: ---- Test-NoTabs-2.00.tar.gz New: ---- Test-NoTabs-2.02.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Test-NoTabs.spec ++++++ --- /var/tmp/diff_new_pack.sOyn6m/_old 2018-04-26 13:38:00.892116455 +0200 +++ /var/tmp/diff_new_pack.sOyn6m/_new 2018-04-26 13:38:00.896116308 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Test-NoTabs # -# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2018 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,11 +17,11 @@ Name: perl-Test-NoTabs -Version: 2.00 +Version: 2.02 Release: 0 %define cpan_name Test-NoTabs Summary: Check the presence of tabs in your project -License: Artistic-1.0 or GPL-1.0+ +License: Artistic-1.0 OR GPL-1.0-or-later Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/Test-NoTabs/ Source0: https://cpan.metacpan.org/authors/id/E/ET/ETHER/%{cpan_name}-%{version}.tar… ++++++ Test-NoTabs-2.00.tar.gz -> Test-NoTabs-2.02.tar.gz ++++++ ++++ 2306 lines of diff (skipped)

1 0

commit perl-Safe-Isa for openSUSE:Factory
by root＠hilbert.suse.de 26 Apr '18

26 Apr '18

Hello community, here is the log from the commit of package perl-Safe-Isa for openSUSE:Factory checked in at 2018-04-26 13:37:59 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Safe-Isa (Old) and /work/SRC/openSUSE:Factory/.perl-Safe-Isa.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "perl-Safe-Isa" Thu Apr 26 13:37:59 2018 rev:7 rq:599890 version:1.000009 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Safe-Isa/perl-Safe-Isa.changes 2017-10-09 19:48:11.387666603 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Safe-Isa.new/perl-Safe-Isa.changes 2018-04-26 13:38:01.200105167 +0200 @@ -1,0 +2,10 @@ +Sun Apr 22 05:56:36 UTC 2018 - coolo(a)suse.com + +- updated to 1.000009 + see /usr/share/doc/packages/perl-Safe-Isa/Changes + + 1.000009 - 2018-04-21 + - Fix handling of DOES and does (they no longer fall back to isa in most + situations outside of Moo/Moose) + +------------------------------------------------------------------- Old: ---- Safe-Isa-1.000008.tar.gz New: ---- Safe-Isa-1.000009.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Safe-Isa.spec ++++++ --- /var/tmp/diff_new_pack.vn19P8/_old 2018-04-26 13:38:01.740085376 +0200 +++ /var/tmp/diff_new_pack.vn19P8/_new 2018-04-26 13:38:01.740085376 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Safe-Isa # -# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2018 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,11 +17,11 @@ Name: perl-Safe-Isa -Version: 1.000008 +Version: 1.000009 Release: 0 %define cpan_name Safe-Isa Summary: Call isa, can, does and DOES safely on things that may not be objects -License: Artistic-1.0 or GPL-1.0+ +License: Artistic-1.0 OR GPL-1.0-or-later Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/Safe-Isa/ Source0: https://cpan.metacpan.org/authors/id/E/ET/ETHER/%{cpan_name}-%{version}.tar… ++++++ Safe-Isa-1.000008.tar.gz -> Safe-Isa-1.000009.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Safe-Isa-1.000008/Changes new/Safe-Isa-1.000009/Changes --- old/Safe-Isa-1.000008/Changes 2017-10-03 03:12:06.000000000 +0200 +++ new/Safe-Isa-1.000009/Changes 2018-04-21 19:13:44.000000000 +0200 @@ -1,5 +1,9 @@ Revision history for Safe-Isa +1.000009 - 2018-04-21 + - Fix handling of DOES and does (they no longer fall back to isa in most + situations outside of Moo/Moose) + 1.000008 - 2017-10-03 - fix scalar/list context handling for $_call_if_can diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Safe-Isa-1.000008/META.json new/Safe-Isa-1.000009/META.json --- old/Safe-Isa-1.000008/META.json 2017-10-03 03:12:18.000000000 +0200 +++ new/Safe-Isa-1.000009/META.json 2018-04-21 19:13:55.000000000 +0200 @@ -4,7 +4,7 @@ "mst - Matt S. Trout (cpan:MSTROUT) <mst(a)shadowcat.co.uk>" ], "dynamic_config" : 0, - "generated_by" : "ExtUtils::MakeMaker version 7.3103, CPAN::Meta::Converter version 2.150010", + "generated_by" : "ExtUtils::MakeMaker version 7.3501, CPAN::Meta::Converter version 2.150010", "license" : [ "perl_5" ], @@ -46,10 +46,16 @@ }, "repository" : { "type" : "git", - "url" : "git://git.shadowcat.co.uk/p5sagit/Safe-Isa.git", - "web" : "http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit/Safe-Isa.git" + "url" : "https://github.com/p5sagit/Safe-Isa.git", + "web" : "https://github.com/p5sagit/Safe-Isa" } }, - "version" : "1.000008", - "x_serialization_backend" : "JSON::MaybeXS version 1.003009" + "version" : "1.000009", + "x_contributors" : [ + "Karen Etheridge <ether(a)cpan.org>", + "Matt S Trout <mst(a)shadowcat.co.uk>", + "Graham Knop <haarg(a)haarg.org>", + "David Steinbrunner <dsteinbrunner(a)pobox.com>" + ], + "x_serialization_backend" : "JSON::MaybeXS version 1.004" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Safe-Isa-1.000008/META.yml new/Safe-Isa-1.000009/META.yml --- old/Safe-Isa-1.000008/META.yml 2017-10-03 03:12:18.000000000 +0200 +++ new/Safe-Isa-1.000009/META.yml 2018-04-21 19:13:54.000000000 +0200 @@ -7,7 +7,7 @@ configure_requires: ExtUtils::MakeMaker: '0' dynamic_config: 0 -generated_by: 'ExtUtils::MakeMaker version 7.3103, CPAN::Meta::Converter version 2.150010' +generated_by: 'ExtUtils::MakeMaker version 7.3501, CPAN::Meta::Converter version 2.150010' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -23,6 +23,11 @@ perl: '5.006' resources: bugtracker: https://rt.cpan.org/Public/Dist/Display.html?Name=Safe-Isa - repository: git://git.shadowcat.co.uk/p5sagit/Safe-Isa.git -version: '1.000008' + repository: https://github.com/p5sagit/Safe-Isa.git +version: '1.000009' +x_contributors: + - 'Karen Etheridge <ether(a)cpan.org>' + - 'Matt S Trout <mst(a)shadowcat.co.uk>' + - 'Graham Knop <haarg(a)haarg.org>' + - 'David Steinbrunner <dsteinbrunner(a)pobox.com>' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Safe-Isa-1.000008/Makefile.PL new/Safe-Isa-1.000009/Makefile.PL --- old/Safe-Isa-1.000008/Makefile.PL 2017-09-22 01:48:05.000000000 +0200 +++ new/Safe-Isa-1.000009/Makefile.PL 2018-04-21 17:40:34.000000000 +0200 @@ -11,12 +11,15 @@ META_MERGE => { 'meta-spec' => { version => 2 }, dynamic_config => 0, - resources => { + # GitHub mirrors from Shadowcat. We list it so we can get pull requests. + # The canonical repo is: + # r/o: git://git.shadowcat.co.uk/p5sagit/Safe-Isa.git # r/w: p5sagit@git.shadowcat.co.uk:Safe-Isa.git + # web: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit/Safe-Isa.git repository => { - url => 'git://git.shadowcat.co.uk/p5sagit/Safe-Isa.git', - web => 'http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit/Safe-Isa.git', + url => 'https://github.com/p5sagit/Safe-Isa.git', + web => 'https://github.com/p5sagit/Safe-Isa', type => 'git', }, bugtracker => { @@ -24,6 +27,12 @@ web => 'https://rt.cpan.org/Public/Dist/Display.html?Name=Safe-Isa', }, }, + x_contributors => [ # manually added, from git shortlog -e -s -n + 'Karen Etheridge <ether(a)cpan.org>', + 'Matt S Trout <mst(a)shadowcat.co.uk>', + 'Graham Knop <haarg(a)haarg.org>', + 'David Steinbrunner <dsteinbrunner(a)pobox.com>', + ], }, META_ADD => { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Safe-Isa-1.000008/README new/Safe-Isa-1.000009/README --- old/Safe-Isa-1.000008/README 2017-10-03 03:12:18.000000000 +0200 +++ new/Safe-Isa-1.000009/README 2018-04-21 19:13:55.000000000 +0200 @@ -106,13 +106,16 @@ $maybe_an_object->$_does('Foo'); If called on an object, calls "does" on it and returns the result, - otherwise returns nothing. + otherwise returns nothing. If the "does" method does not exist, returns + nothing rather than failing. $_DOES $maybe_an_object->$_DOES('Foo'); If called on an object, calls "DOES" on it and returns the result, - otherwise returns nothing. + otherwise returns nothing. On perl versions prior to 5.10.0, the built + in core "DOES" method doesn't exist. If the method doesn't exist, this + will fall back to calling "isa" just like the core "DOES" method. $_call_if_object $maybe_an_object->$_call_if_object(method_name => @args); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Safe-Isa-1.000008/lib/Safe/Isa.pm new/Safe-Isa-1.000009/lib/Safe/Isa.pm --- old/Safe-Isa-1.000008/lib/Safe/Isa.pm 2017-10-03 03:11:43.000000000 +0200 +++ new/Safe-Isa-1.000009/lib/Safe/Isa.pm 2018-04-21 19:13:19.000000000 +0200 @@ -5,7 +5,7 @@ use Scalar::Util (); use Exporter 5.57 qw(import); -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; our @EXPORT = qw($_call_if_object $_isa $_can $_does $_DOES $_call_if_can); @@ -15,14 +15,13 @@ # we gratuitously break modules like Scalar::Defer, which would be # un-perlish. return unless Scalar::Util::blessed($obj); - return $obj->isa(@_) if lc($method) eq 'does' and not $obj->can($method); return $obj->$method(@_); }; -our ($_isa, $_can, $_does, $_DOES) = map { +our ($_isa, $_can) = map { my $method = $_; sub { my $obj = shift; $obj->$_call_if_object($method => @_) } -} qw(isa can does DOES); +} qw(isa can); our $_call_if_can = sub { my ($obj, $method) = (shift, shift); @@ -30,6 +29,19 @@ return $obj->$method(@_); }; +our $_does = sub { + my $obj = shift; + $obj->$_call_if_can(does => @_); +}; + +our $_DOES = sub { + my $obj = shift; + return unless Scalar::Util::blessed($obj); + return $obj->DOES(@_) + if $obj->can('DOES'); + return $obj->isa(@_); +}; + 1; __END__ @@ -148,14 +160,17 @@ $maybe_an_object->$_does('Foo'); If called on an object, calls C<does> on it and returns the result, otherwise -returns nothing. +returns nothing. If the C<does> method does not exist, returns nothing rather +than failing. =head2 $_DOES $maybe_an_object->$_DOES('Foo'); If called on an object, calls C<DOES> on it and returns the result, otherwise -returns nothing. +returns nothing. On perl versions prior to 5.10.0, the built in core C<DOES> +method doesn't exist. If the method doesn't exist, this will fall back to +calling C<isa> just like the core C<DOES> method. =head2 $_call_if_object diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Safe-Isa-1.000008/t/safe_does.t new/Safe-Isa-1.000009/t/safe_does.t --- old/Safe-Isa-1.000008/t/safe_does.t 2015-03-15 02:12:50.000000000 +0100 +++ new/Safe-Isa-1.000009/t/safe_does.t 2018-04-21 17:42:41.000000000 +0200 @@ -1,6 +1,6 @@ use strict; use warnings; -use Test::More tests => 14; +use Test::More tests => 20; { package Foo; sub new { bless({}, $_[0]) } } { package Bar; our @ISA = qw(Foo); sub bar { 1 } sub does { $_[0]->isa($_[1]) } } @@ -36,9 +36,16 @@ ok(eval { $blam->$_DOES('Foo'); 1 }, 'no boom today'); ok(eval { $undef->$_DOES('Foo'); 1 }, 'nor tomorrow either'); +# does should not fall back to isa +ok(!$foo->$_does('Foo'), 'foo !$_does Foo'); +ok($bar->$_does('Foo'), 'bar $_does Foo'); +ok(eval { $blam->$_does('Foo'); 1 }, 'no boom today'); +ok(eval { $undef->$_does('Foo'); 1 }, 'nor tomorrow either'); ok($foo->$_call_if_object(DOES => 'Foo'), 'foo $_call_if_object(DOES => Foo)'); ok($bar->$_call_if_object(DOES => 'Foo'), 'bar $_call_if_object(DOES => Foo)'); ok(eval { $blam->$_call_if_object(DOES => 'Foo'); 1 }, 'no boom today'); ok(eval { $undef->$_call_if_object(DOES => 'Foo'); 1 }, 'nor tomorrow either'); +ok(!eval { $foo->$_call_if_object(does => 'Foo'); 1 }, 'no special DOES handling built into _call_if_object'); +ok(!eval { $foo->$_call_if_object(Does => 'Foo'); 1 }, 'and no handling for wrong case');

1 0