diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-11-09 10:40:40 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-11-09 10:40:40 +0000 |
| commit | e89bfaa62e9e0ba9df6482deee1c3a10abd743fb (patch) | |
| tree | 01e3628f53ed9cdb99e367f946715cbb3a08aa53 /pp.h | |
| parent | cf21866aa5d4778ecb4afa98d45353e8b67addeb (diff) | |
| download | perl-e89bfaa62e9e0ba9df6482deee1c3a10abd743fb.tar.gz | |
Fix error in tryAMAGICunDEREF() introduced in 25a9ffce153b0e67.
tryAMAGICunDEREF() isn't used anywhere in the core. Add tests for it.
Diffstat (limited to 'pp.h')
| -rw-r--r-- | pp.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -453,7 +453,7 @@ Does not use C<TARG>. See also C<XPUSHu>, C<mPUSHu> and C<PUSHu>. calling amagic_deref_call() directly, as it has a cleaner interface. */ #define tryAMAGICunDEREF(meth) \ STMT_START { \ - sv = amagic_deref_call(aTHX_ *sp, CAT2(meth,_amg)); \ + sv = amagic_deref_call(*sp, CAT2(meth,_amg)); \ SPAGAIN; \ } STMT_END |