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 /pp_ctl.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 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 9 |
1 files changed, 3 insertions, 6 deletions
@@ -1126,10 +1126,8 @@ PP(pp_flop) if (GIMME == G_ARRAY) { dPOPPOPssrl; - if (SvGMAGICAL(left)) - mg_get(left); - if (SvGMAGICAL(right)) - mg_get(right); + SvGETMAGIC(left); + SvGETMAGIC(right); if (RANGE_IS_NUMERIC(left,right)) { register IV i, j; @@ -1543,8 +1541,7 @@ PP(pp_dorassign) RETURN; break; default: - if (SvGMAGICAL(sv)) - mg_get(sv); + SvGETMAGIC(sv); if (SvOK(sv)) RETURN; } |