summaryrefslogtreecommitdiffstats
path: root/perl-install/common.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-09-06 20:12:21 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-09-06 20:12:21 +0000
commite254e4769d84e9d8e512eb225d079ca87800b5ef (patch)
treeac3ea3dd110b579118eb5f92e8c3177db7c92871 /perl-install/common.pm
parent967c918d9eaf22eceee3c3b3ed448d141e38fd00 (diff)
downloaddrakx-e254e4769d84e9d8e512eb225d079ca87800b5ef.tar
drakx-e254e4769d84e9d8e512eb225d079ca87800b5ef.tar.gz
drakx-e254e4769d84e9d8e512eb225d079ca87800b5ef.tar.bz2
drakx-e254e4769d84e9d8e512eb225d079ca87800b5ef.tar.xz
drakx-e254e4769d84e9d8e512eb225d079ca87800b5ef.zip
no_comment
Diffstat (limited to 'perl-install/common.pm')
-rw-r--r--perl-install/common.pm8
1 files changed, 5 insertions, 3 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm
index ac64fe54a..a6849e63f 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -430,7 +430,6 @@ sub setVarsInSh {
my ($file, $l, @fields) = @_;
@fields = keys %$l unless @fields;
-#- my $b = 1; $b &&= $l->{$_} foreach @fields; $b or return;
local *F;
open F, "> $_[0]" or die "cannot create config file $file";
$l->{$_} and print F "$_=$l->{$_}\n" foreach @fields;
@@ -439,7 +438,6 @@ sub setVarsInCsh {
my ($file, $l, @fields) = @_;
@fields = keys %$l unless @fields;
-#- my $b = 1; $b &&= $l->{$_} foreach @fields; $b or return;
local *F;
open F, "> $_[0]" or die "cannot create config file $file";
$l->{$_} and print F "setenv $_ $l->{$_}\n" foreach @fields;
@@ -589,7 +587,11 @@ sub removeXiBSuffix($) {
sub formatTime($) {
my ($s, $m, $h) = gmtime($_[0]);
- sprintf "%02d:%02d:%02d", $h, $m, $s;
+ if ($h) {
+ sprintf "%02d:%02d", $h, $m;
+ } else {
+ sprintf _("%d minutes"), $m;
+ }
}
#- return the size of the partition and its free space in KiB