More split() doc and test patches from Mike Guy.
Jarkko Hietaniemi [Wed, 26 Jul 2000 16:06:56 +0000 (16:06 +0000)]
p4raw-id: //depot/perl@6443

pod/perlfunc.pod
t/op/split.t

index 5b91dfa..9e920cf 100644 (file)
@@ -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:
index 58a3113..78f51f5 100755 (executable)
@@ -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