Devel::PPPort: force string when testing SvPV_renew

Otherwise we could be reallocating a buffer shared by another scalar.

diff --git a/cpan/Devel-PPPort/parts/inc/SvPV b/cpan/Devel-PPPort/parts/inc/SvPV
index a7aace7..4894c3c 100644 (file)
--- a/cpan/Devel-PPPort/parts/inc/SvPV
+++ b/cpan/Devel-PPPort/parts/inc/SvPV
@@ -510,6 +510,7 @@ $mhx = 42; ok(&Devel::PPPort::SvPV_nomg_const($mhx), 2);
 $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($before < 81);
 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 --git a/cpan/Devel-PPPort/t/SvPV.t b/cpan/Devel-PPPort/t/SvPV.t
index 63c7d72..025c461 100644 (file)
--- a/cpan/Devel-PPPort/t/SvPV.t
+++ b/cpan/Devel-PPPort/t/SvPV.t
@@ -101,6 +101,7 @@ $mhx = 42; ok(&Devel::PPPort::SvPV_nomg_const($mhx), 2);
 $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($before < 81);
 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);