Suppress /bin/ls errors in t/op/stat.t

Message-ID: <Pine.SOL.4.10.10201241238510.23176-100000@maxwell.phys.lafayette.edu>

p4raw-id: //depot/perl@14406

diff --git a/t/op/stat.t b/t/op/stat.t
index 1c0d4b2..82566a8 100755 (executable)
--- a/t/op/stat.t
+++ b/t/op/stat.t
@@ -200,7 +200,7 @@ SKIP: {
       unless -d '/dev' && -r '/dev' && -x '/dev';
 
     my $LS  = $Config{d_readlink} ? "ls -lL" : "ls -l"; 
-    my $CMD = "$LS /dev";
+    my $CMD = "$LS /dev 2>/dev/null";
     my $DEV = qx($CMD);
 
     skip "$CMD failed", 3 if $DEV eq '';