This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
RT#114312: prevent ls from colourizing output
authorKaren Etheridge <ether@cpan.org>
Sat, 1 Sep 2012 17:26:37 +0000 (10:26 -0700)
committerRicardo 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

index af1fa5e..ac42d43 100644 (file)
@@ -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);