diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-09-06 20:12:21 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-09-06 20:12:21 +0000 |
| commit | e254e4769d84e9d8e512eb225d079ca87800b5ef (patch) | |
| tree | ac3ea3dd110b579118eb5f92e8c3177db7c92871 /perl-install/common.pm | |
| parent | 967c918d9eaf22eceee3c3b3ed448d141e38fd00 (diff) | |
| download | drakx-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.pm | 8 |
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 |