summaryrefslogtreecommitdiffstats
path: root/perl-install/commands.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-11-02 19:48:21 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-11-02 19:48:21 +0000
commit9176797a41f4acb22259ffa0b7e58d49b1bceac3 (patch)
treec655e423b29d899df9f332247e1640b142300a03 /perl-install/commands.pm
parentedeac12d2a69a099fdf5fec50e389699de21c2c2 (diff)
downloaddrakx-9176797a41f4acb22259ffa0b7e58d49b1bceac3.tar
drakx-9176797a41f4acb22259ffa0b7e58d49b1bceac3.tar.gz
drakx-9176797a41f4acb22259ffa0b7e58d49b1bceac3.tar.bz2
drakx-9176797a41f4acb22259ffa0b7e58d49b1bceac3.tar.xz
drakx-9176797a41f4acb22259ffa0b7e58d49b1bceac3.zip
no_comment
Diffstat (limited to 'perl-install/commands.pm')
-rw-r--r--perl-install/commands.pm4
1 files changed, 1 insertions, 3 deletions
diff --git a/perl-install/commands.pm b/perl-install/commands.pm
index c6f68c37a..a739452b0 100644
--- a/perl-install/commands.pm
+++ b/perl-install/commands.pm
@@ -290,9 +290,7 @@ sub dd {
ref $h{if} eq 'GLOB' ? *IF = $h{if} : sysopen(IF, $h{if}, 0 ) || die "error: can't open file $h{if}\n";
ref $h{of} eq 'GLOB' ? *OF = $h{of} : sysopen(OF, $h{of}, 0x41) || die "error: can't open file $h{of}\n";
- $h{bs} =~ /(\d+)k$/ and $h{bs} = $1 * 1024;
- $h{bs} =~ /(\d+)M$/ and $h{bs} = $1 * 1024 * 1024;
- $h{bs} =~ /(\d+)G$/ and $h{bs} = $1 * 1024 * 1024 * 1024;
+ $h{bs} = removeXiBSuffix($h{bs});
for ($nb = 0; !$h{count} || $nb < $h{count}; $nb++) {
printf "\r%02.1d%%", 100 * $nb / $h{count} if $h{count} && $percent;