This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
49a8948
)
RT#114312: prevent ls from colourizing output
author
Karen Etheridge
<ether@cpan.org>
Sat, 1 Sep 2012 17:26:37 +0000
(10:26 -0700)
committer
Ricardo Signes
<rjbs@cpan.org>
Thu, 11 Oct 2012 18:22:18 +0000
(14:22 -0400)
ANSI colour codes in the `ls -l /dev` output was preventing some substitutions
from matching, causing a subsequent test to fail when 'stdout' or 'stderr' was
not properly removed from $DEV.
t/op/stat.t
patch
|
blob
|
blame
|
history
diff --git
a/t/op/stat.t
b/t/op/stat.t
index
af1fa5e
..
ac42d43
100644
(file)
--- a/
t/op/stat.t
+++ b/
t/op/stat.t
@@
-249,6
+249,7
@@
SKIP: {
skip "ls command not available to Perl in OpenVMS right now.", 6
if $Is_VMS;
+ delete $ENV{CLICOLOR_FORCE};
my $LS = $Config{d_readlink} ? "ls -lL" : "ls -l";
my $CMD = "$LS /dev 2>/dev/null";
my $DEV = qx($CMD);