Test case for 20010422.005, fixed by #10250.

p4raw-id: //depot/perl@10251

diff --git a/t/op/misc.t b/t/op/misc.t
index e3927a3..931e6b3 100755 (executable)
--- a/t/op/misc.t
+++ b/t/op/misc.t
@@ -682,3 +682,10 @@ OK
 "abcd\x{1234}" =~ /(a)(b[c])(d+)?/i and print "ok\n";
 EXPECT
 ok
+########
+# Bug 20010422.005
+{s//${}/; //}
+EXPECT
+syntax error at - line 2, near "${"
+syntax error at - line 2, near "//}"
+Execution of - aborted due to compilation errors.