From: Artur Bergman <sky@nanisky.com>
Date: Thu, 21 Jun 2001 14:38:03 +0000 (+0200)
Subject: Re: [PATCH] Make /o work under i?threads
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=569b5e0701b7ad38283e8026b4d1fd769624723b;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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";
+}
+