diff options
| author | Ben Morrow <ben@morrow.me.uk> | 2009-01-18 08:35:23 +0000 |
|---|---|---|
| committer | Ben Morrow <ben@morrow.me.uk> | 2009-03-25 21:14:03 +0000 |
| commit | 180b7b9bf7b919003df56bf402fc3934dc71f196 (patch) | |
| tree | 43f2aa2c75a25fde4dcbc1d4ec0fb28334a48c0a /pp_sys.c | |
| parent | d3ebc3eb19094f82ef837b098bec51ec3d68e893 (diff) | |
| download | perl-180b7b9bf7b919003df56bf402fc3934dc71f196.tar.gz | |
Move magic logic into tryAMAGICftest macro.
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 12 |
1 files changed, 1 insertions, 11 deletions
@@ -3048,17 +3048,7 @@ PP(pp_ftrread) break; } - if (SvAMAGIC(TOPs)) { - SV * const tmpsv = amagic_call(TOPs, - newSVpvn_flags(&opchar, 1, SVs_TEMP), - ftest_amg, 0); - - if (tmpsv) { - SPAGAIN; - SETs(tmpsv); - RETURN; - } - } + tryAMAGICftest(opchar); if (use_access) { #if defined(HAS_ACCESS) || defined (PERL_EFF_ACCESS) |