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 (file)
--- 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};