summaryrefslogtreecommitdiffstats
path: root/perl-install/commands.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/commands.pm')
-rw-r--r--perl-install/commands.pm8
1 files changed, 3 insertions, 5 deletions
diff --git a/perl-install/commands.pm b/perl-install/commands.pm
index 4d562a7ca..9d45e58a7 100644
--- a/perl-install/commands.pm
+++ b/perl-install/commands.pm
@@ -10,7 +10,7 @@ package commands; # $Id$
use diagnostics;
use strict;
-use vars qw($printable_chars *ROUTE);
+use vars qw($printable_chars *ROUTE *DF *PS);
#-######################################################################################
#- misc imports
@@ -237,8 +237,7 @@ sub ps {
require c;
my $page = c::getpagesize() / 1024;
- local *PS;
- open PS, ">&STDOUT";
+ open PS, ">&STDOUT"; #- PS must be not be localised otherwise the "format PS" fails
format PS_TOP =
PID RSS %CPU CMD
.
@@ -451,8 +450,7 @@ $l{Destination}, $l{Gateway}, $l{Mask}, $l{Iface}
sub df {
my ($h) = getopts(\@_, qw(h));
my ($dev, $size, $free, $used, $use, $mntpoint);
- local *DF;
- open DF, ">&STDOUT";
+ open DF, ">&STDOUT"; #- DF must be not be localised otherwise the "format DF" fails
format DF_TOP =
Filesystem Size Used Avail Use Mounted on
.