Test case for #8066.

p4raw-id: //depot/perl@8067

diff --git a/t/op/misc.t b/t/op/misc.t
index aea14c8..0db36c9 100755 (executable)
--- a/t/op/misc.t
+++ b/t/op/misc.t
@@ -595,3 +595,8 @@ for (@locales) {
     print "$_ $s\n";
 }
 EXPECT
+########
+die qr(x)
+EXPECT
+(?-xism:x) at - line 1.
+########