MacOS nits from Matthias Neeracher.

[p5sagit/p5-mst-13.2.git] / t / op / split.t

diff --git a/t/op/split.t b/t/op/split.t
index 07f0098..58a3113 100755 (executable)
--- a/t/op/split.t
+++ b/t/op/split.t
@@ -2,7 +2,7 @@
 
 # $RCSfile: split.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:26 $
 
-print "1..26\n";
+print "1..27\n";
 
 $FS = ':';
 
@@ -113,3 +113,8 @@ if (($res = join(".",@ary)) eq "a.b.c.d") {print "ok 25\n";} else {print "not ok
 # use of match result as pattern (!)
 'p:q:r:s' eq join ':', split('abc' =~ /b/, 'p1q1r1s') or print "no ";
 print "ok 26\n";
+
+# /^/ treated as /^/m
+$_ = join ':', split /^/, "ab\ncd\nef\n";
+print "not " if $_ ne "ab\n:cd\n:ef\n";
+print "ok 27\n";