From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 29 Apr 2006 21:54:38 +0000 (+0000)
Subject: It should never be possible for SvGMAGICAL() to be true on SVt_IV.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7ec92ad4ee942f41ebbc0229743f00cce1eba0aa;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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