diff options
| author | Rick Delaney <rick@consumercontact.com> | 2005-08-22 09:00:33 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-08-23 13:25:15 +0000 |
| commit | 5b295bef27e91243a93cdb460dcf005e5bf35426 (patch) | |
| tree | bcca3ea1266736c0c5f577d2acecb84aaf39b68a /doio.c | |
| parent | b76aa5af2840585626e18c84f60feb97c68abd14 (diff) | |
| download | perl-5b295bef27e91243a93cdb460dcf005e5bf35426.tar.gz | |
Use SvGETMAGIC more often
Message-ID: <20050822170033.GH7674@localhost.localdomain>
p4raw-id: //depot/perl@25322
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -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 |