Help for this page

Select Code to Download


  1. or download this
    ./perl -MTestInit t/op/stat.t
  2. or download this
    not ok 37 - ls and -c agreeing on /dev (223 222)
# Failed at t/op/stat.t line 292
#      got "223"
# expected "222"
  3. or download this
    ls -l /dev 2>/dev/null
  4. or download this
    [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ě 09.59 block
drwxr-xr-x 2 root root        60 30. kvě 09.59 bsg
  5. or download this
    +++ t/op/stat.t 2012-05-30 15:24:01.182106112 +0200
@@ -250,7 +250,7 @@
...
     my $DEV = qx($CMD);

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