summaryrefslogtreecommitdiffstats
path: root/perl-install/commands.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-07-02 09:25:48 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-07-02 09:25:48 +0000
commit755e511024f29df150d9d150d19c849e59c1e216 (patch)
tree008a780c08366ce366c55cc3bbe0d49703f544d6 /perl-install/commands.pm
parente82688c8b8f639705356d25c180ffe754c2b2c34 (diff)
downloaddrakx-755e511024f29df150d9d150d19c849e59c1e216.tar
drakx-755e511024f29df150d9d150d19c849e59c1e216.tar.gz
drakx-755e511024f29df150d9d150d19c849e59c1e216.tar.bz2
drakx-755e511024f29df150d9d150d19c849e59c1e216.tar.xz
drakx-755e511024f29df150d9d150d19c849e59c1e216.zip
*** empty log message ***
Diffstat (limited to 'perl-install/commands.pm')
-rw-r--r--perl-install/commands.pm38
1 files changed, 19 insertions, 19 deletions
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 {