1 files changed, 0 insertions, 32 deletions
diff --git a/contrib/perl5/eg/scan/scan_ps b/contrib/perl5/eg/scan/scan_ps
deleted file mode 100644
index 18b5cb2..0000000
--- a/contrib/perl5/eg/scan/scan_ps
+++ /dev/null
@@ -1,32 +0,0 @@
-#!/usr/bin/perl -P
-
-# $RCSfile: scan_ps,v $$Revision: 4.1 $$Date: 92/08/07 17:20:40 $
-
-# This looks for looping processes.
-
-#if defined(mc300) || defined(mc500) || defined(mc700)
-open(Ps, '/bin/ps -el|') || die "scan_ps: can't run ps";
-
-while (<Ps>) {
-    next if /rwhod/;
-    print if index(' T', substr($_,62,1)) < 0;
-}
-#else
-open(Ps, '/bin/ps auxww|') || die "scan_ps: can't run ps";
-
-while (<Ps>) {
-    next if /dataserver/;
-    next if /nfsd/;
-    next if /update/;
-    next if /ypserv/;
-    next if /rwhod/;
-    next if /routed/;
-    next if /pagedaemon/;
-#ifdef vax
-    ($user,$pid,$cpu,$mem,$sz,$rss,$tt,$stat,$start,$time) = split;
-#else
-    ($user,$pid,$cpu,$mem,$sz,$rss,$tt,$stat,$time) = split;
-#endif
-    print if length($time) > 4;
-}
-#endif