diff options
Diffstat (limited to 'perl-install/commands.pm')
| -rw-r--r-- | perl-install/commands.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/commands.pm b/perl-install/commands.pm index 3808d6848..be82a2020 100644 --- a/perl-install/commands.pm +++ b/perl-install/commands.pm @@ -235,6 +235,7 @@ sub ps { require c; my $page = c::getpagesize() / 1024; + local *PS; open PS, ">&STDOUT"; format PS_TOP = PID RSS %CPU CMD @@ -426,7 +427,7 @@ sub route { my ($titles, @l) = cat_("/proc/net/route"); my @titles = split ' ', $titles; my %l; - open ROUTE, ">&STDOUT"; + open ROUTE, ">&STDOUT"; #-# ROUTE must be not be localised otherwise the "format ROUTE" fails format ROUTE_TOP = Destination Gateway Mask Iface . @@ -447,6 +448,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"; format DF_TOP = Filesystem Size Used Avail Use Mounted on |