X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pp.h;h=9d078af5e5dd6070de123c00b999c1d5160c9a95;hb=e5973ed5ed7077edf70f4112414ae22c6300aec8;hp=50fec839c1f7199f026f50c0649a415742c78390;hpb=c4c7412cbfdbea9a232b77ab3c0ef1200ed2da16;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pp.h b/pp.h
index 50fec83..9d078af 100644
--- a/pp.h
+++ b/pp.h
@@ -86,7 +86,7 @@ Refetch the stack pointer.  Used after a callback.  See L<perlcall>.
 #define dTARG SV *targ
 
 #define NORMAL PL_op->op_next
-#define DIE return Perl_die
+#define DIE Perl_die
 
 /*
 =for apidoc Ams||PUTBACK
@@ -473,6 +473,7 @@ Does not use C<TARG>.  See also C<XPUSHu>, C<mPUSHu> and C<PUSHu>.
 
 #define tryAMAGICftest(chr)				\
     STMT_START {					\
+	assert(chr != '?');				\
 	if (SvAMAGIC(TOPs)) {				\
 	    const char tmpchr = (chr);			\
 	    SV * const tmpsv = amagic_call(TOPs,	\
@@ -480,7 +481,19 @@ Does not use C<TARG>.  See also C<XPUSHu>, C<mPUSHu> and C<PUSHu>.
 		ftest_amg, AMGf_unary);			\
 							\
 	    if (tmpsv) {				\
+		const OP *next = PL_op->op_next;	\
+							\
 		SPAGAIN;				\
+							\
+		if (next->op_type >= OP_FTRREAD &&	\
+		    next->op_type <= OP_FTBINARY &&	\
+		    next->op_private & OPpFT_STACKED	\
+		) {					\
+		    if (SvTRUE(tmpsv))			\
+			/* leave the object alone */	\
+			RETURN;				\
+		}					\
+							\
 		SETs(tmpsv);				\
 		RETURN;					\
 	    }						\