Restore 8d2345e02f493825c3e22467caf8508ee3a19450.
Craig A. Berry [Thu, 15 Oct 2009 23:05:50 +0000 (18:05 -0500)]
Also reported upstream this time (oops):

https://rt.cpan.org/Ticket/Display.html?id=50542

cpan/Text-Tabs/t/fill.t
cpan/Text-Tabs/t/tabs.t

index dab0432..8af4a0e 100644 (file)
@@ -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;
 
index 1bba9a6..cd6f32c 100644 (file)
@@ -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;