This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
It should never be possible for SvGMAGICAL() to be true on SVt_IV.
authorNicholas Clark <nick@ccl4.org>
Sat, 29 Apr 2006 21:54:38 +0000 (21:54 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 29 Apr 2006 21:54:38 +0000 (21:54 +0000)
p4raw-id: //depot/perl@28017

doio.c

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