More split() doc and test patches from Mike Guy.

[p5sagit/p5-mst-13.2.git] / t / op / split.t

diff --git a/t/op/split.t b/t/op/split.t
index 58a3113..78f51f5 100755 (executable)
--- 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