Hello community, here is the log from the commit of package perl-Devel-PPPort for openSUSE:Factory checked in at 2018-09-24 13:13:54 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Devel-PPPort (Old) and /work/SRC/openSUSE:Factory/.perl-Devel-PPPort.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Devel-PPPort" Mon Sep 24 13:13:54 2018 rev:8 rq:637205 version:3.43 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Devel-PPPort/perl-Devel-PPPort.changes 2018-04-26 13:38:02.508057229 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Devel-PPPort.new/perl-Devel-PPPort.changes 2018-09-24 13:13:56.477635885 +0200 @@ -1,0 +2,6 @@ +Sat Sep 22 05:16:25 UTC 2018 - Stephan Kulow <[email protected]> + +- updated to 3.43 + see /usr/share/doc/packages/perl-Devel-PPPort/Changes + +------------------------------------------------------------------- Old: ---- Devel-PPPort-3.42.tar.gz New: ---- Devel-PPPort-3.43.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Devel-PPPort.spec ++++++ --- /var/tmp/diff_new_pack.eUUvFA/_old 2018-09-24 13:13:56.885635177 +0200 +++ /var/tmp/diff_new_pack.eUUvFA/_new 2018-09-24 13:13:56.889635169 +0200 @@ -12,12 +12,12 @@ # license that conforms to the Open Source Definition (Version 1.9) # published by the Open Source Initiative. -# Please submit bugfixes or comments via http://bugs.opensuse.org/ +# Please submit bugfixes or comments via https://bugs.opensuse.org/ # Name: perl-Devel-PPPort -Version: 3.42 +Version: 3.43 Release: 0 %define cpan_name Devel-PPPort Summary: Perl/Pollution/Portability ++++++ Devel-PPPort-3.42.tar.gz -> Devel-PPPort-3.43.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-PPPort-3.42/Changes new/Devel-PPPort-3.43/Changes --- old/Devel-PPPort-3.42/Changes 2018-04-21 16:16:57.000000000 +0200 +++ new/Devel-PPPort-3.43/Changes 2018-09-19 16:42:08.000000000 +0200 @@ -1,3 +1,7 @@ +3.43 - 2018-09-19 + + * Fix Devel::PPPort with Visual Studio by quoting $0. + 3.42 - 2018-04-21 * Include 'Changes' (this file) in the distribution. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-PPPort-3.42/MANIFEST new/Devel-PPPort-3.43/MANIFEST --- old/Devel-PPPort-3.42/MANIFEST 2018-04-21 16:39:52.000000000 +0200 +++ new/Devel-PPPort-3.43/MANIFEST 2018-09-19 16:43:31.000000000 +0200 @@ -1,5 +1,7 @@ apicheck_c.PL Changes +Devel-PPPort-3.43/META.json +Devel-PPPort-3.43/META.yml devel/buildperl.pl devel/devtools.pl devel/mkapidoc.sh diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-PPPort-3.42/META.json new/Devel-PPPort-3.43/META.json --- old/Devel-PPPort-3.42/META.json 2018-04-21 16:39:51.000000000 +0200 +++ new/Devel-PPPort-3.43/META.json 2018-09-19 16:44:17.000000000 +0200 @@ -42,6 +42,6 @@ "web" : "https://perl5.git.perl.org/perl.git"; } }, - "version" : "3.42", + "version" : "3.43", "x_serialization_backend" : "JSON::PP version 2.27400_02" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-PPPort-3.42/META.yml new/Devel-PPPort-3.43/META.yml --- old/Devel-PPPort-3.42/META.yml 2018-04-21 16:39:51.000000000 +0200 +++ new/Devel-PPPort-3.43/META.yml 2018-09-19 16:44:17.000000000 +0200 @@ -20,5 +20,5 @@ resources: bugtracker: https://rt.perl.org/rt3/ repository: git://perl5.git.perl.org/perl.git -version: '3.42' +version: '3.43' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-PPPort-3.42/PPPort.pm new/Devel-PPPort-3.43/PPPort.pm --- old/Devel-PPPort-3.42/PPPort.pm 2018-04-21 16:39:45.000000000 +0200 +++ new/Devel-PPPort-3.43/PPPort.pm 2018-09-19 16:24:20.000000000 +0200 @@ -1503,7 +1503,7 @@ use strict; use vars qw($VERSION $data); -$VERSION = '3.42'; +$VERSION = '3.43'; sub _init_data { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-PPPort-3.42/PPPort_pm.PL new/Devel-PPPort-3.43/PPPort_pm.PL --- old/Devel-PPPort-3.42/PPPort_pm.PL 2018-04-21 16:39:34.000000000 +0200 +++ new/Devel-PPPort-3.43/PPPort_pm.PL 2018-09-19 16:23:06.000000000 +0200 @@ -551,7 +551,7 @@ use strict; use vars qw($VERSION $data); -$VERSION = '3.42'; +$VERSION = '3.43'; sub _init_data { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-PPPort-3.42/t/mess.t new/Devel-PPPort-3.43/t/mess.t --- old/Devel-PPPort-3.42/t/mess.t 2018-03-20 21:06:36.000000000 +0100 +++ new/Devel-PPPort-3.43/t/mess.t 2018-08-23 10:05:44.000000000 +0200 @@ -67,8 +67,8 @@ undef $die; ok !defined eval { Devel::PPPort::croak_sv(10) }; -ok $@ =~ /^10 at $0 line /; -ok $die =~ /^10 at $0 line /; +ok $@ =~ /^10 at \Q$0\E line /; +ok $die =~ /^10 at \Q$0\E line /; undef $die; $@ = 'should not be visible (1)'; @@ -76,8 +76,8 @@ $@ = 'should not be visible (2)'; Devel::PPPort::croak_sv(''); }; -ok $@ =~ /^ at $0 line /; -ok $die =~ /^ at $0 line /; +ok $@ =~ /^ at \Q$0\E line /; +ok $die =~ /^ at \Q$0\E line /; undef $die; $@ = 'should not be visible'; @@ -85,8 +85,8 @@ $@ = 'this must be visible'; Devel::PPPort::croak_sv($@) }; -ok $@ =~ /^this must be visible at $0 line /; -ok $die =~ /^this must be visible at $0 line /; +ok $@ =~ /^this must be visible at \Q$0\E line /; +ok $die =~ /^this must be visible at \Q$0\E line /; undef $die; $@ = 'should not be visible'; @@ -99,18 +99,18 @@ undef $die; ok !defined eval { Devel::PPPort::croak_sv('') }; -ok $@ =~ /^ at $0 line /; -ok $die =~ /^ at $0 line /; +ok $@ =~ /^ at \Q$0\E line /; +ok $die =~ /^ at \Q$0\E line /; undef $die; ok !defined eval { Devel::PPPort::croak_sv("\xE1") }; -ok $@ =~ /^\xE1 at $0 line /; -ok $die =~ /^\xE1 at $0 line /; +ok $@ =~ /^\xE1 at \Q$0\E line /; +ok $die =~ /^\xE1 at \Q$0\E line /; undef $die; ok !defined eval { Devel::PPPort::croak_sv("\xC3\xA1") }; -ok $@ =~ /^\xC3\xA1 at $0 line /; -ok $die =~ /^\xC3\xA1 at $0 line /; +ok $@ =~ /^\xC3\xA1 at \Q$0\E line /; +ok $die =~ /^\xC3\xA1 at \Q$0\E line /; undef $warn; Devel::PPPort::warn_sv("\xE1\n"); @@ -118,34 +118,34 @@ undef $warn; Devel::PPPort::warn_sv(10); -ok $warn =~ /^10 at $0 line /; +ok $warn =~ /^10 at \Q$0\E line /; undef $warn; Devel::PPPort::warn_sv(''); -ok $warn =~ /^ at $0 line /; +ok $warn =~ /^ at \Q$0\E line /; undef $warn; Devel::PPPort::warn_sv("\xE1"); -ok $warn =~ /^\xE1 at $0 line /; +ok $warn =~ /^\xE1 at \Q$0\E line /; undef $warn; Devel::PPPort::warn_sv("\xC3\xA1"); -ok $warn =~ /^\xC3\xA1 at $0 line /; +ok $warn =~ /^\xC3\xA1 at \Q$0\E line /; ok Devel::PPPort::mess_sv("\xE1\n", 0), "\xE1\n"; ok Devel::PPPort::mess_sv(do {my $tmp = "\xE1\n"}, 1), "\xE1\n"; -ok Devel::PPPort::mess_sv(10, 0) =~ /^10 at $0 line /; -ok Devel::PPPort::mess_sv(do {my $tmp = 10}, 1) =~ /^10 at $0 line /; +ok Devel::PPPort::mess_sv(10, 0) =~ /^10 at \Q$0\E line /; +ok Devel::PPPort::mess_sv(do {my $tmp = 10}, 1) =~ /^10 at \Q$0\E line /; -ok Devel::PPPort::mess_sv('', 0) =~ /^ at $0 line /; -ok Devel::PPPort::mess_sv(do {my $tmp = ''}, 1) =~ /^ at $0 line /; +ok Devel::PPPort::mess_sv('', 0) =~ /^ at \Q$0\E line /; +ok Devel::PPPort::mess_sv(do {my $tmp = ''}, 1) =~ /^ at \Q$0\E line /; -ok Devel::PPPort::mess_sv("\xE1", 0) =~ /^\xE1 at $0 line /; -ok Devel::PPPort::mess_sv(do {my $tmp = "\xE1"}, 1) =~ /^\xE1 at $0 line /; +ok Devel::PPPort::mess_sv("\xE1", 0) =~ /^\xE1 at \Q$0\E line /; +ok Devel::PPPort::mess_sv(do {my $tmp = "\xE1"}, 1) =~ /^\xE1 at \Q$0\E line /; -ok Devel::PPPort::mess_sv("\xC3\xA1", 0) =~ /^\xC3\xA1 at $0 line /; -ok Devel::PPPort::mess_sv(do {my $tmp = "\xC3\xA1"}, 1) =~ /^\xC3\xA1 at $0 line /; +ok Devel::PPPort::mess_sv("\xC3\xA1", 0) =~ /^\xC3\xA1 at \Q$0\E line /; +ok Devel::PPPort::mess_sv(do {my $tmp = "\xC3\xA1"}, 1) =~ /^\xC3\xA1 at \Q$0\E line /; if ($] ge '5.006') { BEGIN { if ($] ge '5.006' && $] lt '5.008') { require utf8; utf8->import(); } } @@ -161,9 +161,9 @@ undef $die; ok !defined eval { Devel::PPPort::croak_sv("\x{100}") }; - ok $@ =~ /^\x{100} at $0 line /; + ok $@ =~ /^\x{100} at \Q$0\E line /; if ($] ne '5.008') { - ok $die =~ /^\x{100} at $0 line /; + ok $die =~ /^\x{100} at \Q$0\E line /; } else { skip 'skip: broken utf8 support in die hook', 0; } @@ -175,7 +175,7 @@ undef $warn; Devel::PPPort::warn_sv("\x{100}"); - ok (my $tmp = $warn) =~ /^\x{100} at $0 line /; + ok (my $tmp = $warn) =~ /^\x{100} at \Q$0\E line /; } else { skip 'skip: broken utf8 support in warn hook', 0 for 1..2; } @@ -183,8 +183,8 @@ ok Devel::PPPort::mess_sv("\x{100}\n", 0), "\x{100}\n"; ok Devel::PPPort::mess_sv(do {my $tmp = "\x{100}\n"}, 1), "\x{100}\n"; - ok Devel::PPPort::mess_sv("\x{100}", 0) =~ /^\x{100} at $0 line /; - ok Devel::PPPort::mess_sv(do {my $tmp = "\x{100}"}, 1) =~ /^\x{100} at $0 line /; + ok Devel::PPPort::mess_sv("\x{100}", 0) =~ /^\x{100} at \Q$0\E line /; + ok Devel::PPPort::mess_sv(do {my $tmp = "\x{100}"}, 1) =~ /^\x{100} at \Q$0\E line /; } else { skip 'skip: no utf8 support', 0 for 1..12; } @@ -199,8 +199,8 @@ undef $die; ok !defined eval { Devel::PPPort::croak_sv(eval '"\N{U+E1}"') }; - ok $@ =~ /^\xE1 at $0 line /; - ok $die =~ /^\xE1 at $0 line /; + ok $@ =~ /^\xE1 at \Q$0\E line /; + ok $die =~ /^\xE1 at \Q$0\E line /; { undef $die; @@ -212,7 +212,7 @@ { undef $die; - my $expect = eval 'qr/^\N{U+C3}\N{U+A1} at $0 line /'; + my $expect = eval 'qr/^\N{U+C3}\N{U+A1} at \Q$0\E line /'; ok !defined eval { Devel::PPPort::croak_sv("\xC3\xA1") }; ok $@ =~ $expect; ok $die =~ $expect; @@ -224,7 +224,7 @@ undef $warn; Devel::PPPort::warn_sv(eval '"\N{U+E1}"'); - ok $warn =~ /^\xE1 at $0 line /; + ok $warn =~ /^\xE1 at \Q$0\E line /; undef $warn; Devel::PPPort::warn_sv("\xC3\xA1\n"); @@ -232,19 +232,19 @@ undef $warn; Devel::PPPort::warn_sv("\xC3\xA1"); - ok $warn =~ eval 'qr/^\N{U+C3}\N{U+A1} at $0 line /'; + ok $warn =~ eval 'qr/^\N{U+C3}\N{U+A1} at \Q$0\E line /'; ok Devel::PPPort::mess_sv(eval('"\N{U+E1}\n"'), 0), eval '"\N{U+E1}\n"'; ok Devel::PPPort::mess_sv(do {my $tmp = eval '"\N{U+E1}\n"'}, 1), eval '"\N{U+E1}\n"'; - ok Devel::PPPort::mess_sv(eval('"\N{U+E1}"'), 0) =~ eval 'qr/^\N{U+E1} at $0 line /'; - ok Devel::PPPort::mess_sv(do {my $tmp = eval '"\N{U+E1}"'}, 1) =~ eval 'qr/^\N{U+E1} at $0 line /'; + ok Devel::PPPort::mess_sv(eval('"\N{U+E1}"'), 0) =~ eval 'qr/^\N{U+E1} at \Q$0\E line /'; + ok Devel::PPPort::mess_sv(do {my $tmp = eval '"\N{U+E1}"'}, 1) =~ eval 'qr/^\N{U+E1} at \Q$0\E line /'; ok Devel::PPPort::mess_sv("\xC3\xA1\n", 0), eval '"\N{U+C3}\N{U+A1}\n"'; ok Devel::PPPort::mess_sv(do {my $tmp = "\xC3\xA1\n"}, 1), eval '"\N{U+C3}\N{U+A1}\n"'; - ok Devel::PPPort::mess_sv("\xC3\xA1", 0) =~ eval 'qr/^\N{U+C3}\N{U+A1} at $0 line /'; - ok Devel::PPPort::mess_sv(do {my $tmp = "\xC3\xA1"}, 1) =~ eval 'qr/^\N{U+C3}\N{U+A1} at $0 line /'; + ok Devel::PPPort::mess_sv("\xC3\xA1", 0) =~ eval 'qr/^\N{U+C3}\N{U+A1} at \Q$0\E line /'; + ok Devel::PPPort::mess_sv(do {my $tmp = "\xC3\xA1"}, 1) =~ eval 'qr/^\N{U+C3}\N{U+A1} at \Q$0\E line /'; } else { skip 'skip: no support for \N{U+..} syntax', 0 for 1..24; } @@ -274,11 +274,11 @@ } ok !defined eval { Devel::PPPort::croak_no_modify() }; -ok $@ =~ /^Modification of a read-only value attempted at $0 line /; +ok $@ =~ /^Modification of a read-only value attempted at \Q$0\E line /; ok !defined eval { Devel::PPPort::croak_memory_wrap() }; -ok $@ =~ /^panic: memory wrap at $0 line /; +ok $@ =~ /^panic: memory wrap at \Q$0\E line /; ok !defined eval { Devel::PPPort::croak_xs_usage("params") }; -ok $@ =~ /^Usage: Devel::PPPort::croak_xs_usage\(params\) at $0 line /; +ok $@ =~ /^Usage: Devel::PPPort::croak_xs_usage\(params\) at \Q$0\E line /;
