It should never be possible for SvGMAGICAL() to be true on SVt_IV.

p4raw-id: //depot/perl@28017

diff --git a/doio.c b/doio.c
index 507a855..e1cc258 100644 (file)
--- a/doio.c
+++ b/doio.c
@@ -1240,7 +1240,7 @@ Perl_do_print(pTHX_ register SV *sv, PerlIO *fp)
        return TRUE;
     case SVt_IV:
        if (SvIOK(sv)) {
-           SvGETMAGIC(sv);
+           assert(!SvGMAGICAL(sv));
            if (SvIsUV(sv))
                PerlIO_printf(fp, "%"UVuf, (UV)SvUVX(sv));
            else