Help for this page

Select Code to Download


  1. or download this
    use strict;
use File::Recurse;

...
    shift;
    $size += -s "$_";
}
  2. or download this
    47:>if (-d _) {
48:>  next if (-l $path && !$File::Recurse::FOLLOW_SYMLINKS);
49:>  $ret = recurse($exe,$path,$context,$level+1);
50:>  last if ($ret == -2);
49:>}