1 files changed, 3 insertions, 4 deletions
diff --git a/toke.c b/toke.c
index d8ffc1ee9d..cd6ed1d32c 100644
--- a/toke.c
+++ b/toke.c
@@ -2850,15 +2850,14 @@ Perl_yylex(pTHX)
 		DEBUG_T( { PerlIO_printf(Perl_debug_log,
                         "### Saw file test %c\n", ftst);
 		} )
-		if (*s == '(' && ckWARN(WARN_AMBIGUOUS))
-		    Perl_warner(aTHX_ WARN_AMBIGUOUS,
-				"Ambiguous -%c() resolved as a file test",
-				tmp);
 		FTST(ftst);
 	    }
 	    else {
 		/* Assume it was a minus followed by a one-letter named
 		 * subroutine call (or a -bareword), then. */
+		DEBUG_T( { PerlIO_printf(Perl_debug_log,
+                        "### %c looked like a file test but was not\n", ftst);
+		} )
 		s -= 2;
 	    }
 	}