X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fio%2Fprint.t;h=0578ee6a29703594312fc06f9f14ec21c19773ef;hb=637201361971914235010f2d901f2582381dfba1;hp=30294f51fa9230703a48f10d79edad9a2143c89a;hpb=fe14fcc35f78a371a174a1d14256c2f35ae4262b;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/io/print.t b/t/io/print.t
old mode 100644
new mode 100755
index 30294f5..0578ee6
--- a/t/io/print.t
+++ b/t/io/print.t
@@ -1,8 +1,6 @@
 #!./perl
 
-# $Header: print.t,v 4.0 91/03/20 01:51:08 lwall Locked $
-
-print "1..16\n";
+print "1..18\n";
 
 $foo = 'STDOUT';
 print $foo "ok 1\n";
@@ -30,3 +28,7 @@ print "ok","11";
 @x = ("ok","12\nok","13\nok");
 @y = ("15\nok","16");
 print @x,"14\nok",@y;
+{
+    local $\ = "ok 17\n# null =>[\000]\nok 18\n";
+    print "";
+}