Eliminate ‘Can't use \1 to mean $1’ false positives

We need to check that the quote-like operator we are parsing is a sub-
stitution (not just any quote-like operator) and that we are parsing
the right-hand side.

1 files changed, 3 insertions, 0 deletions

diff --git a/t/lib/warnings/toke b/t/lib/warnings/toke
index eb918f1afd..02c6cccca4 100644
--- a/t/lib/warnings/toke
+++ b/t/lib/warnings/toke
@@ -304,6 +304,9 @@ You need to quote "ふれど" at - line 5.
 use warnings 'syntax' ;
 $_ = "ab" ; 
 s/(ab)/\1/e;
+s//\(2)/e; # should be exempt
+s/${\2}//; # same here
+()="${\2}"; # metoo
 no warnings 'syntax' ;
 $_ = "ab" ; 
 s/(ab)/\1/e;