diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-07-26 16:06:56 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-07-26 16:06:56 +0000 |
| commit | cc50a2034c8f38d702b126ee0ae87fcad255227a (patch) | |
| tree | 952c0923fec1004f60bdb286aa5b2d16919cc461 /t/op/split.t | |
| parent | eae9c1515e21a0ce7cdb8dfed3c4386402d77e42 (diff) | |
| download | perl-cc50a2034c8f38d702b126ee0ae87fcad255227a.tar.gz | |
More split() doc and test patches from Mike Guy.
p4raw-id: //depot/perl@6443
Diffstat (limited to 't/op/split.t')
| -rwxr-xr-x | t/op/split.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/split.t b/t/op/split.t index 58a311386a..78f51f5954 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 |