p4raw-id: //depot/perl@6443
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:
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