Re: [PATCH] Make /o work under i?threads
Artur Bergman [Thu, 21 Jun 2001 14:38:03 +0000 (16:38 +0200)]
Message-ID: <B757B74A.184D%artur@contiller.se>

p4raw-id: //depot/perl@10773

t/op/pat.t

index 942e6e6..f8f7535 100755 (executable)
@@ -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";
+}
+