From: Michael G. Schwern <schwern@pobox.com>
Date: Wed, 26 Sep 2001 00:38:21 +0000 (-0400)
Subject: Fixing mysterious TEST failure. (was
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a94ed19dea1a41f7a48446540697e6cb4ce21471;p=p5sagit%2Fp5-mst-13.2.git

Fixing mysterious TEST failure. (was
	Re: binmode(STDOUT, ":unix") busted when STDOUT is piped.)
Message-Id: <20010926003821.A627@blackrider>

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

diff --git a/lib/AutoSplit.t b/lib/AutoSplit.t
index 32f5bd0..e4eb302 100644
--- a/lib/AutoSplit.t
+++ b/lib/AutoSplit.t
@@ -79,7 +79,7 @@ foreach (@tests) {
                | \#(?!\#)	# or a # character not followed by #
                | (?<!\n)\#	# or a # character not preceded by \n
               )*)/sgmx;
-  foreach ($args{Name}, $args{Require}) {
+  foreach ($args{Name}, $args{Require}, $args{Extra}) {
     chomp $_ if defined $_;
   }
   my @extra_args = !defined $args{Extra} ? () : split /,/, $args{Extra};