From: Craig A. Berry <craigberry@mac.com>
Date: Mon, 23 Jul 2007 01:47:12 +0000 (+0000)
Subject: Make TabsWrap tests work around broken VMS pipes.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8d2345e02f493825c3e22467caf8508ee3a19450;p=p5sagit%2Fp5-mst-13.2.git

Make TabsWrap tests work around broken VMS pipes.

p4raw-id: //depot/perl@31646
---

diff --git a/lib/Text/TabsWrap/t/fill.t b/lib/Text/TabsWrap/t/fill.t
index dab0432..8af4a0e 100755
--- a/lib/Text/TabsWrap/t/fill.t
+++ b/lib/Text/TabsWrap/t/fill.t
@@ -49,9 +49,8 @@ DONE
 
 $| = 1;
 
-print "1..";
-print @tests/2;
-print "\n";
+my $numtests = scalar(@tests) / 2;
+print "1..$numtests\n";
 
 use Text::Wrap;
 
diff --git a/lib/Text/TabsWrap/t/tabs.t b/lib/Text/TabsWrap/t/tabs.t
index 1bba9a6..cd6f32c 100755
--- a/lib/Text/TabsWrap/t/tabs.t
+++ b/lib/Text/TabsWrap/t/tabs.t
@@ -86,9 +86,8 @@ DONE
 
 $| = 1;
 
-print "1..";
-print @tests/2;
-print "\n";
+my $numtests = scalar(@tests) / 2;
+print "1..$numtests\n";
 
 use Text::Tabs;