Fall back to "" overload for -X.

diff --git a/gv.c b/gv.c
index 65419bd..07f2ff9 100644 (file)
--- 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 (file)
--- 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;                                \