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

p4raw-id: //depot/perl@28017

1 files changed, 1 insertions, 1 deletions

diff --git a/doio.c b/doio.c
index 507a855a71..e1cc258426 100644
--- 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