This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix error in tryAMAGICunDEREF() introduced in 25a9ffce153b0e67.
[perl5.git] / pp.h
diff --git a/pp.h b/pp.h
index 2122ba7..4e663ba 100644 (file)
--- a/pp.h
+++ b/pp.h
@@ -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