From 755e511024f29df150d9d150d19c849e59c1e216 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 2 Jul 1999 09:25:48 +0000
Subject: *** empty log message ***

---
 perl-install/commands.pm | 38 +++++++++++++++++++-------------------
 1 file changed, 19 insertions(+), 19 deletions(-)

(limited to 'perl-install/commands.pm')

diff --git a/perl-install/commands.pm b/perl-install/commands.pm
index 8448a9f24..17f4b2580 100644
--- a/perl-install/commands.pm
+++ b/perl-install/commands.pm
@@ -246,25 +246,25 @@ sub cp {
     &$cp(@_);
 }
 
-sub ps {
-    @_ and die "usage: ps\n";
-    my ($pid, $cmd);
-
-    local (*STDOUT_TOP, *STDOUT);
-    format STDOUT_TOP =
-  PID   CMD
-.
-    format =
-@>>>>  @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
-$pid, $cmd
-.
-
-    foreach $pid (sort {$a <=> $b} grep { /\d+/ } all('/proc')) {
-	(($cmd) = cat_("/proc/$pid/cmdline")) =~ s/\0/ /g;
-	$cmd ||= (split ' ', (cat_("/proc/$pid/stat"))[0])[1];
-	write STDOUT
-    }
-}
+#sub ps {
+#    @_ and die "usage: ps\n";
+#    my ($pid, $cmd);
+#
+#    local (*STDOUT_TOP, *STDOUT);
+#    format STDOUT_TOP =
+#  PID   CMD
+#.
+#    format =
+#@>>>>  @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+#$pid, $cmd
+#.
+#
+#    foreach $pid (sort {$a <=> $b} grep { /\d+/ } all('/proc')) {
+#	 (($cmd) = cat_("/proc/$pid/cmdline")) =~ s/\0/ /g;
+#	 $cmd ||= (split ' ', (cat_("/proc/$pid/stat"))[0])[1];
+#	 write STDOUT
+#    }
+#}
 
 
 sub dd {
-- 
cgit v1.2.1