commit perl-Devel-PPPort for openSUSE:Factory

24 Sep 2018

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 <coolo@suse.com>
+
+- 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 /;

    

root

tags

participants (1)