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 (file)
--- 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 (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