1 files changed, 0 insertions, 22 deletions
diff --git a/contrib/perl5/eg/dus b/contrib/perl5/eg/dus
deleted file mode 100644
index 3025e2b..0000000
--- a/contrib/perl5/eg/dus
+++ /dev/null
@@ -1,22 +0,0 @@
-#!/usr/bin/perl
-
-# $RCSfile: dus,v $$Revision: 4.1 $$Date: 92/08/07 17:20:11 $
-
-# This script does a du -s on any directories in the current directory that
-# are not mount points for another filesystem.
-
-($mydev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
-   $blksize,$blocks) = stat('.');
-
-open(ls,'ls -F1|');
-
-while (<ls>) {
-    chop;
-    next unless s|/$||;
-    ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
-       $blksize,$blocks) = stat($_);
-    next unless $dev == $mydev;
-    push(@ary,$_);
-}
-
-exec 'du', '-s', @ary;