Change 31646 by [EMAIL PROTECTED] on 2007/07/23 01:47:12
Make TabsWrap tests work around broken VMS pipes.
Affected files ...
... //depot/perl/lib/Text/TabsWrap/t/fill.t#4 edit
... //depot/perl/lib/Text/TabsWrap/t/tabs.t#3 edit
Differences ...
==== //depot/perl/lib/Text/TabsWrap/t/fill.t#4 (xtext) ====
Index: perl/lib/Text/TabsWrap/t/fill.t
--- perl/lib/Text/TabsWrap/t/fill.t#3~28546~ 2006-07-11 05:31:10.000000000
-0700
+++ perl/lib/Text/TabsWrap/t/fill.t 2007-07-22 18:47:12.000000000 -0700
@@ -49,9 +49,8 @@
$| = 1;
-print "1..";
-print @tests/2;
-print "\n";
+my $numtests = scalar(@tests) / 2;
+print "1..$numtests\n";
use Text::Wrap;
==== //depot/perl/lib/Text/TabsWrap/t/tabs.t#3 (xtext) ====
Index: perl/lib/Text/TabsWrap/t/tabs.t
--- perl/lib/Text/TabsWrap/t/tabs.t#2~29320~ 2006-11-20 01:54:10.000000000
-0800
+++ perl/lib/Text/TabsWrap/t/tabs.t 2007-07-22 18:47:12.000000000 -0700
@@ -86,9 +86,8 @@
$| = 1;
-print "1..";
-print @tests/2;
-print "\n";
+my $numtests = scalar(@tests) / 2;
+print "1..$numtests\n";
use Text::Tabs;
End of Patch.
