Make Devel::Peek::fill_mstats work on COWs

diff --git a/ext/Devel-Peek/Peek.xs b/ext/Devel-Peek/Peek.xs
index 3dcba4780ea0df95c762c2cdf39b617cdfec868a..5e8deb9830889903a26cc125f643c028d3783a61 100644 (file)
--- a/ext/Devel-Peek/Peek.xs
+++ b/ext/Devel-Peek/Peek.xs
@@ -161,6 +161,7 @@ fill_mstats(SV *sv, int level)
 {
     dTHX;
 
+    if (SvIsCOW(sv)) sv_force_normal(sv);
     if (SvREADONLY(sv))
        croak("Cannot modify a readonly value");
     SvGROW(sv, sizeof(struct mstats_buffer)+1);

diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t
index 5c6b315265b81e68b915ef3b9051da96cafa7aff..8eedf530b14dda448d202b42c37cd6843b0131d8 100644 (file)
--- a/ext/Devel-Peek/t/Peek.t
+++ b/ext/Devel-Peek/t/Peek.t
@@ -770,4 +770,12 @@ do_test('ENAMEs on a stash with no NAME',
     ENAME = "RWOM", "KLANK"                    # $] > 5.012
 ');
 
+SKIP: {
+    skip "Not built with usemymalloc", 1
+      unless $Config{usemymalloc} eq 'y';
+    my $x = __PACKAGE__;
+    ok eval { fill_mstats($x); 1 }, 'fill_mstats on COW scalar'
+     or diag $@;
+}
+
 done_testing();