From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 26 Jul 2000 16:06:56 +0000 (+0000)
Subject: More split() doc and test patches from Mike Guy.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cc50a2034c8f38d702b126ee0ae87fcad255227a;p=p5sagit%2Fp5-mst-13.2.git

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

p4raw-id: //depot/perl@6443
---

diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod
index 5b91dfa..9e920cf 100644
--- a/pod/perlfunc.pod
+++ b/pod/perlfunc.pod
@@ -4378,7 +4378,7 @@ A C<split> on C</\s+/> is like a C<split(' ')> except that any leading
 whitespace produces a null first field.  A C<split> with no arguments
 really does a C<split(' ', $_)> internally.
 
-A PATTERN of C</^/) is treated as if it were C/^/m), since it isn't
+A PATTERN of C</^/> is treated as if it were C</^/m>, since it isn't
 much use otherwise.
 
 Example:
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