summaryrefslogtreecommitdiffstats
path: root/perl-install/commands.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-12 14:05:52 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-12 14:05:52 +0000
commitfc6a72175bf8ee7aed801e4003991e8e9c67c304 (patch)
tree7f435f15fbc29d6869ddd1db9cd95ef33ba77fde /perl-install/commands.pm
parent7902fe25c4e57756cbae9cce1e6a88c32e04b9f4 (diff)
downloaddrakx-fc6a72175bf8ee7aed801e4003991e8e9c67c304.tar
drakx-fc6a72175bf8ee7aed801e4003991e8e9c67c304.tar.gz
drakx-fc6a72175bf8ee7aed801e4003991e8e9c67c304.tar.bz2
drakx-fc6a72175bf8ee7aed801e4003991e8e9c67c304.tar.xz
drakx-fc6a72175bf8ee7aed801e4003991e8e9c67c304.zip
add/remove some spaces to make perl_checker happy
Diffstat (limited to 'perl-install/commands.pm')
-rw-r--r--perl-install/commands.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/commands.pm b/perl-install/commands.pm
index 6d478c283..f871cf6ea 100644
--- a/perl-install/commands.pm
+++ b/perl-install/commands.pm
@@ -46,7 +46,7 @@ sub basename_ { print basename(@_), "\n" }
sub rmdir_ { foreach (@_) { rmdir $_ or die "rmdir: can't remove $_\n" } }
sub lsmod { print "Module Size Used by\n"; cat("/proc/modules") }
sub which {
- ARG: foreach (@_) { foreach my $c (split /:/, $ENV{PATH}) { -x "$c/$_" and print("$c/$_\n"), next ARG }}
+ ARG: foreach (@_) { foreach my $c (split /:/, $ENV{PATH}) { -x "$c/$_" and print("$c/$_\n"), next ARG } }
}
sub grep_ {
@@ -470,7 +470,7 @@ $dev, $size, $used, $free, $use, $mntpoint
($size, $free) = MDK::Common::System::df($mntpoint = $h{$dev});
$size or next;
- $use = int (100 * ($size - $free) / $size);
+ $use = int(100 * ($size - $free) / $size);
$used = $size - $free;
if ($h) {
$used = int ($used / 1024) . "M";