summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-02-22 13:13:22 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-02-22 13:13:22 +0000
commit02081920cdd5d13ab0a8baedd20ebff70dba6343 (patch)
treee8e9c8aca525c8692b7f95d3353c48d3e323292b /perl-install/pkgs.pm
parent0685a763fd5ac6d18ff61540597108342d609324 (diff)
downloaddrakx-02081920cdd5d13ab0a8baedd20ebff70dba6343.tar
drakx-02081920cdd5d13ab0a8baedd20ebff70dba6343.tar.gz
drakx-02081920cdd5d13ab0a8baedd20ebff70dba6343.tar.bz2
drakx-02081920cdd5d13ab0a8baedd20ebff70dba6343.tar.xz
drakx-02081920cdd5d13ab0a8baedd20ebff70dba6343.zip
Verify free space on disk for copying rpms
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 3a421368b..4c100789a 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -424,7 +424,7 @@ sub psUsingHdlists {
$o_hdlistsprefix ? ($is_ftp ? "media/media_info/$hdlist" : "$o_hdlistsprefix/media/media_info/$hdlist") : undef,
];
if ($size) {
- ($mediumsize{$hdlist}) = $size =~ /(\d+)/;
+ ($mediumsize{$hdlist}) = $size =~ /(\d+)/; #- XXX assume Mo
} else {
$mediumsize{$hdlist} = 0;
}