3 # $Header: dus,v 4.0 91/03/20 01:09:20 lwall Locked $
5 # This script does a du -s on any directories in the current directory that
6 # are not mount points for another filesystem.
8 ($mydev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
9 $blksize,$blocks) = stat('.');
16 ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
17 $blksize,$blocks) = stat($_);
18 next unless $dev == $mydev;
22 exec 'du', '-s', @ary;