Use new sv_setrv_noinc() in Devel::Peek

Perl · Aug 25, 2021 · 93b4047 · 93b4047
1 parent 889f695
commit 93b4047
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 4 deletions.
diff --git a/ext/Devel-Peek/Peek.pm b/ext/Devel-Peek/Peek.pm
@@ -3,7 +3,7 @@
 
 package Devel::Peek;
 
-$VERSION = '1.31';
+$VERSION = '1.32';
 $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 

diff --git a/ext/Devel-Peek/Peek.xs b/ext/Devel-Peek/Peek.xs
@@ -239,9 +239,7 @@ _mstats_to_hv(HV *hv, const struct mstats_buffer *b, int level)
 	    croak("Unexpected value for the key '%s' in the mstats hash", types[type]);
 	if (!SvOK(*svp)) {
 	    av = newAV();
-	    (void)SvUPGRADE(*svp, SVt_RV);
-	    SvRV_set(*svp, (SV*)av);
-	    SvROK_on(*svp);
+	    sv_setrv_noinc(*svp, (SV*)av);
 	} else
 	    av = (AV*)SvRV(*svp);