diff options
| author | Vincent Pit <vince@profvince.com> | 2009-11-10 17:38:43 +0100 |
|---|---|---|
| committer | Vincent Pit <vince@profvince.com> | 2009-11-10 17:38:43 +0100 |
| commit | 2f9e2db04087cea7010b80261940c74cde8a04df (patch) | |
| tree | 844f54aadfc2c52388436905b927fa4129272c5d /embed.h | |
| parent | fa58a56f3cdf71021d7d7a49e98845f57652a3fe (diff) | |
| download | perl-2f9e2db04087cea7010b80261940c74cde8a04df.tar.gz | |
Factor the "is this an in-place array operator construct" logic into a new is_inplace_av()
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -398,6 +398,7 @@ #if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT) #ifdef PERL_CORE #define opt_scalarhv S_opt_scalarhv +#define is_inplace_av S_is_inplace_av #endif #endif #define leave_scope Perl_leave_scope @@ -2770,6 +2771,7 @@ #if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT) #ifdef PERL_CORE #define opt_scalarhv(a) S_opt_scalarhv(aTHX_ a) +#define is_inplace_av(a,b) S_is_inplace_av(aTHX_ a,b) #endif #endif #define leave_scope(a) Perl_leave_scope(aTHX_ a) |