From: Craig A. Berry <craigberry@mac.com>
Date: Thu, 15 Oct 2009 23:05:50 +0000 (-0500)
Subject: Restore 8d2345e02f493825c3e22467caf8508ee3a19450.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dfc949a06e1ca43ec18b9a191539e082e707d41e;p=p5sagit%2Fp5-mst-13.2.git

Restore 8d2345e02f493825c3e22467caf8508ee3a19450.

Also reported upstream this time (oops):

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

diff --git a/cpan/Text-Tabs/t/fill.t b/cpan/Text-Tabs/t/fill.t
index dab0432..8af4a0e 100644
--- a/cpan/Text-Tabs/t/fill.t
+++ b/cpan/Text-Tabs/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/cpan/Text-Tabs/t/tabs.t b/cpan/Text-Tabs/t/tabs.t
index 1bba9a6..cd6f32c 100644
--- a/cpan/Text-Tabs/t/tabs.t
+++ b/cpan/Text-Tabs/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;