diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2001-09-25 20:38:21 -0400 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2001-09-25 21:41:01 +0000 |
| commit | a94ed19dea1a41f7a48446540697e6cb4ce21471 (patch) | |
| tree | 67a949e33b349457ea322cbb4bef1c86ca516a67 /lib/AutoSplit.t | |
| parent | b62cd5eaea3e4bae0f5204d972f605af3e0e2f18 (diff) | |
| download | perl-a94ed19dea1a41f7a48446540697e6cb4ce21471.tar.gz | |
Fixing mysterious TEST failure. (was
Re: binmode(STDOUT, ":unix") busted when STDOUT is piped.)
Message-Id: <20010926003821.A627@blackrider>
p4raw-id: //depot/perl@12216
Diffstat (limited to 'lib/AutoSplit.t')
| -rw-r--r-- | lib/AutoSplit.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/AutoSplit.t b/lib/AutoSplit.t index 32f5bd06f0..e4eb30261a 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}; |