Two places where tests break output lines into separate print statements,
causing the erroneous detection of test failures on VMS....(yes, it's the
old byte vs. record i/o stuff again...).

Patch follows

diff -uBb t/lib/filehand.t-orig t/lib/filehand.t
--- t/lib/filehand.t-orig       Mon Mar 19 12:15:05 2001
+++ t/lib/filehand.t    Mon Mar 19 12:11:09 2001
@@ -20,7 +20,7 @@
 autoflush $mystdout;
 print "1..11\n";
 
-print $mystdout "ok ",fileno($mystdout),"\n";
+print $mystdout "ok ".fileno($mystdout)."\n";
 
 $fh = (new FileHandle "./TEST", O_RDONLY
        or new FileHandle "TEST", O_RDONLY)
diff -uBb t/lib/texttabs.t-orig t/lib/texttabs.t
--- t/lib/texttabs.t-orig       Mon Mar 19 12:15:12 2001
+++ t/lib/texttabs.t    Mon Mar 19 12:13:44 2001
@@ -91,9 +91,7 @@
 
 $| = 1;
 
-print "1..";
-print @tests/2;
-print "\n";
+print "1..".scalar(@tests/2)."\n";
 
 use Text::Tabs;
 
--
 Drexel University       \V                    --Chuck Lane
======]---------->--------*------------<-------[===========
     (215) 895-1545     _/ \  Particle Physics
FAX: (215) 895-5934     /\ /~~~~~~~~~~~        [EMAIL PROTECTED]

Reply via email to