X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fop%2Fsplit.t;h=78f51f59549c13a95a50cf305b351bd7f4c73bad;hb=cc50a2034c8f38d702b126ee0ae87fcad255227a;hp=58a311386a58a765bb1af24cc357ac868fd3856f;hpb=eae9c1515e21a0ce7cdb8dfed3c4386402d77e42;p=p5sagit%2Fp5-mst-13.2.git diff --git a/t/op/split.t b/t/op/split.t index 58a3113..78f51f5 100755 --- a/t/op/split.t +++ b/t/op/split.t @@ -111,7 +111,7 @@ $_ = "a : b :c: d"; if (($res = join(".",@ary)) eq "a.b.c.d") {print "ok 25\n";} else {print "not ok 25\n# res=`$res' != `a.b.c.d'\n";} # use of match result as pattern (!) -'p:q:r:s' eq join ':', split('abc' =~ /b/, 'p1q1r1s') or print "no "; +'p:q:r:s' eq join ':', split('abc' =~ /b/, 'p1q1r1s') or print "not "; print "ok 26\n"; # /^/ treated as /^/m