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
[perl5.git] / 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);