Re: [PATCH] Make /o work under i?threads

Message-ID: <B757B74A.184D%artur@contiller.se>

p4raw-id: //depot/perl@10773

diff --git a/t/op/pat.t b/t/op/pat.t
index 942e6e6..f8f7535 100755 (executable)
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -1783,3 +1783,16 @@ eval <<"EOT"; die if $@;
   /x && print "ok 632\n";
 EOT
 
+#test /o feature
+sub test_o { $_[0] =~/$_[1]/o; return $1}
+if(test_o('abc','(.)..') eq 'a') {
+    print "ok 631\n";
+} else {
+    print "not ok 631\n";
+}
+if(test_o('abc','..(.)') eq 'a') {
+    print "ok 632\n";
+} else {
+    print "not ok 632\n";
+}
+