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 (executable)
--- 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 (executable)
--- 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;