This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fixing mysterious TEST failure. (was
authorMichael G. Schwern <schwern@pobox.com>
Wed, 26 Sep 2001 00:38:21 +0000 (20:38 -0400)
committerAbhijit Menon-Sen <ams@wiw.org>
Tue, 25 Sep 2001 21:41:01 +0000 (21:41 +0000)
Re: binmode(STDOUT, ":unix") busted when STDOUT is piped.)
Message-Id: <20010926003821.A627@blackrider>

p4raw-id: //depot/perl@12216

lib/AutoSplit.t

index 32f5bd0..e4eb302 100644 (file)
@@ -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};