From a94ed19dea1a41f7a48446540697e6cb4ce21471 Mon Sep 17 00:00:00 2001
From: "Michael G. Schwern" <schwern@pobox.com>
Date: Tue, 25 Sep 2001 20:38:21 -0400
Subject: [PATCH] Fixing mysterious TEST failure. (was 	Re: binmode(STDOUT,
 ":unix") busted when STDOUT is piped.) Message-Id:
 <20010926003821.A627@blackrider>

p4raw-id: //depot/perl@12216
---
 lib/AutoSplit.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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};
-- 
2.7.4