From: Ben Morrow <ben@morrow.me.uk>
Date: Mon, 19 Jan 2009 23:48:51 +0000 (+0000)
Subject: Fall back to "" overload for -X.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c4c7412cbfdbea9a232b77ab3c0ef1200ed2da16;p=p5sagit%2Fp5-mst-13.2.git

Fall back to "" overload for -X.
---

diff --git a/gv.c b/gv.c
index 65419bd..07f2ff9 100644
--- a/gv.c
+++ b/gv.c
@@ -1983,6 +1983,7 @@ Perl_amagic_call(pTHX_ SV *left, SV *right, int method, int flags)
 	   break;
 	 case int_amg:
 	 case iter_amg:			/* XXXX Eventually should do to_gv. */
+	 case ftest_amg:		/* XXXX Eventually should do to_gv. */
 	     /* FAIL safe */
 	     return NULL;	/* Delegate operation to standard mechanisms. */
 	     break;
diff --git a/pp.h b/pp.h
index a0714e9..50fec83 100644
--- a/pp.h
+++ b/pp.h
@@ -477,7 +477,7 @@ Does not use C<TARG>.  See also C<XPUSHu>, C<mPUSHu> and C<PUSHu>.
 	    const char tmpchr = (chr);			\
 	    SV * const tmpsv = amagic_call(TOPs,	\
 		newSVpvn_flags(&tmpchr, 1, SVs_TEMP),	\
-		ftest_amg, 0);				\
+		ftest_amg, AMGf_unary);			\
 							\
 	    if (tmpsv) {				\
 		SPAGAIN;				\