spurious "Use of "-x" without parentheses" mesg

[perl5.git] / t / lib / warnings / toke

diff --git a/t/lib/warnings/toke b/t/lib/warnings/toke
index 389dc9c..eb918f1 100644 (file)
--- a/t/lib/warnings/toke
+++ b/t/lib/warnings/toke
@@ -1492,3 +1492,10 @@ eval "\${ \cX } = 24";
 EXPECT
 Use of literal control characters in variable names is deprecated at (eval 1) line 1.
 Use of literal control characters in variable names is deprecated at (eval 2) line 1.
 EXPECT
 Use of literal control characters in variable names is deprecated at (eval 1) line 1.
 Use of literal control characters in variable names is deprecated at (eval 2) line 1.

+########
+# toke.c
+# [perl #120288] -X at start of line gave spurious warning, where X is not
+# a filetest operator
+-a;
+;-a;
+EXPECT