diff options
| author | Ben Morrow <ben@morrow.me.uk> | 2009-01-18 08:56:11 +0000 |
|---|---|---|
| committer | Ben Morrow <ben@morrow.me.uk> | 2009-03-25 21:14:04 +0000 |
| commit | 07fe7c6a9fbc767805839cebb0e0e06dd88b0104 (patch) | |
| tree | 5b33525d73cb484448e61d656cbbbe9db17a24bd /pp.h | |
| parent | 180b7b9bf7b919003df56bf402fc3934dc71f196 (diff) | |
| download | perl-07fe7c6a9fbc767805839cebb0e0e06dd88b0104.tar.gz | |
Finish the rest of the -X ops.
Diffstat (limited to 'pp.h')
| -rw-r--r-- | pp.h | 27 |
1 files changed, 14 insertions, 13 deletions
@@ -471,19 +471,20 @@ Does not use C<TARG>. See also C<XPUSHu>, C<mPUSHu> and C<PUSHu>. #define tryAMAGICunDEREF_var(meth_enum) \ tryAMAGICunW_var(meth_enum,setAGAIN,0,(void)0) -#define tryAMAGICftest(chr) \ - STMT_START { \ - if (SvAMAGIC(TOPs)) { \ - SV * const tmpsv = amagic_call(TOPs, \ - newSVpvn_flags(&chr, 1, SVs_TEMP), \ - ftest_amg, 0); \ - \ - if (tmpsv) { \ - SPAGAIN; \ - SETs(tmpsv); \ - RETURN; \ - } \ - } \ +#define tryAMAGICftest(chr) \ + STMT_START { \ + if (SvAMAGIC(TOPs)) { \ + const char tmpchr = (chr); \ + SV * const tmpsv = amagic_call(TOPs, \ + newSVpvn_flags(&tmpchr, 1, SVs_TEMP), \ + ftest_amg, 0); \ + \ + if (tmpsv) { \ + SPAGAIN; \ + SETs(tmpsv); \ + RETURN; \ + } \ + } \ } STMT_END |