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)
committerCraig 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

index 89411c7..f52f26c 100644 (file)
@@ -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);