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:
2a527d3
)
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
Craig A. Berry
<craigberry@mac.com>
Sat, 1 Sep 2012 22:47:58 +0000
(17:47 -0500)
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
89411c7
..
f52f26c
100644
(file)
--- a/
t/op/stat.t
+++ b/
t/op/stat.t
@@
-252,6
+252,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);