./perl -MTestInit t/op/stat.t

##</code><code>##

not ok 37 - ls and -c agreeing on /dev (223 222)
# Failed at t/op/stat.t line 292
#      got "223"
# expected "222"

##</code><code>##

ls -l /dev 2>/dev/null

##</code><code>##

[tom@alarmpi perl-5.14.2]$ ls -l /dev 2>/dev/null
celkem 0
crw------- 1 root root   10, 235  1. led  1970 autofs
drwxr-xr-x 2 root root       620 30. kv&#283; 09.59 block
drwxr-xr-x 2 root root        60 30. kv&#283; 09.59 bsg

##</code><code>##

+++ t/op/stat.t 2012-05-30 15:24:01.182106112 +0200
@@ -250,7 +250,7 @@
       if $Is_VMS;

     my $LS  = $Config{d_readlink} ? "ls -lL" : "ls -l";
-    my $CMD = "$LS /dev 2>/dev/null";
+    my $CMD = "$LS /dev 2>/dev/null | tail -n +2";
     my $DEV = qx($CMD);

     skip "$CMD failed", 6 if $DEV eq '';