From 5b295bef27e91243a93cdb460dcf005e5bf35426 Mon Sep 17 00:00:00 2001
From: Rick Delaney <rick@consumercontact.com>
Date: Mon, 22 Aug 2005 09:00:33 -0400
Subject: Use SvGETMAGIC more often Message-ID:
 <20050822170033.GH7674@localhost.localdomain>

p4raw-id: //depot/perl@25322
---
 doio.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'doio.c')

diff --git a/doio.c b/doio.c
index 91ef7a2df8..4f30a59e96 100644
--- a/doio.c
+++ b/doio.c
@@ -1308,8 +1308,7 @@ Perl_do_print(pTHX_ register SV *sv, PerlIO *fp)
 	return TRUE;
     case SVt_IV:
 	if (SvIOK(sv)) {
-	    if (SvGMAGICAL(sv))
-		mg_get(sv);
+	    SvGETMAGIC(sv);
 	    if (SvIsUV(sv))
 		PerlIO_printf(fp, "%"UVuf, (UV)SvUVX(sv));
 	    else
-- 
cgit v1.2.1