From: Jarkko Hietaniemi 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 on C is like a C except that any leading whitespace produces a null first field. A C with no arguments really does a C internally. -A PATTERN of C is treated as if it were C, 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