Don't count PL_sv_{undef,no,yes} in the size returned

[p5sagit/Devel-Size.git] / Size.xs

diff --git a/Size.xs b/Size.xs
index b2c777c..c533942 100644 (file)
--- a/Size.xs
+++ b/Size.xs
@@ -749,6 +749,9 @@ new_state(pTHX)
     if (NULL != (warn_flag = perl_get_sv("Devel::Size::dangle", FALSE))) {
        st->dangle_whine = SvIV(warn_flag) ? TRUE : FALSE;
     }
+    check_new(st, &PL_sv_undef);
+    check_new(st, &PL_sv_no);
+    check_new(st, &PL_sv_yes);
     return st;
 }