| Subject: | [PATCH] Merge core perl commit 90b0dc0e2e |
The attached patch applies core perl commit 90b0dc0e2e to version 3.20.
Please consider rolling a new CPAN release incorporating this (and also CPAN RT#81796) to get CPAN and core back in sync.
| Subject: | svpv.patch |
diff -ruN Devel-PPPort-3.20.orig/parts/inc/SvPV Devel-PPPort-3.20/parts/inc/SvPV
--- Devel-PPPort-3.20.orig/parts/inc/SvPV 2011-09-10 20:09:34.000000000 +0100
+++ Devel-PPPort-3.20/parts/inc/SvPV 2013-08-12 13:56:57.280129700 +0100
@@ -510,6 +510,7 @@
$mhx = 42; ok(&Devel::PPPort::SvPV_nomg_const_nolen($mhx), 0);
my $str = "";
+&Devel::PPPort::SvPV_force($str);
my($s2, $before, $after) = &Devel::PPPort::SvPV_renew($str, 81, "x"x80);
ok($str, "x"x80);
ok($s2, "x"x80);
@@ -517,6 +518,7 @@
ok($after, 81);
$str = "x"x400;
+&Devel::PPPort::SvPV_force($str);
($s2, $before, $after) = &Devel::PPPort::SvPV_renew($str, 41, "x"x40);
ok($str, "x"x40);
ok($s2, "x"x40);
diff -ruN Devel-PPPort-3.20.orig/t/SvPV.t Devel-PPPort-3.20/t/SvPV.t
--- Devel-PPPort-3.20.orig/t/SvPV.t 2011-09-10 20:09:40.000000000 +0100
+++ Devel-PPPort-3.20/t/SvPV.t 2013-08-12 13:56:57.285129700 +0100
@@ -101,6 +101,7 @@
$mhx = 42; ok(&Devel::PPPort::SvPV_nomg_const_nolen($mhx), 0);
my $str = "";
+&Devel::PPPort::SvPV_force($str);
my($s2, $before, $after) = &Devel::PPPort::SvPV_renew($str, 81, "x"x80);
ok($str, "x"x80);
ok($s2, "x"x80);
@@ -108,6 +109,7 @@
ok($after, 81);
$str = "x"x400;
+&Devel::PPPort::SvPV_force($str);
($s2, $before, $after) = &Devel::PPPort::SvPV_renew($str, 41, "x"x40);
ok($str, "x"x40);
ok($s2, "x"x40);