summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-07-01 18:50:20 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-07-01 18:50:20 +0000
commite82688c8b8f639705356d25c180ffe754c2b2c34 (patch)
tree5aaa31fba94a1b2b7f19707c79ecde769ce769d4 /perl-install/pkgs.pm
parent8acdea865038475cdb1884abe889a4175975aa2f (diff)
downloaddrakx-e82688c8b8f639705356d25c180ffe754c2b2c34.tar
drakx-e82688c8b8f639705356d25c180ffe754c2b2c34.tar.gz
drakx-e82688c8b8f639705356d25c180ffe754c2b2c34.tar.bz2
drakx-e82688c8b8f639705356d25c180ffe754c2b2c34.tar.xz
drakx-e82688c8b8f639705356d25c180ffe754c2b2c34.zip
*** empty log message ***
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm3
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 79a7ae6ca..6031735e1 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -169,8 +169,7 @@ sub install {
foreach my $p (@$toInstall) {
my $fullname = sprintf "%s-%s-%s.%s.rpm",
- $p->{name},
- map { c::headerGetEntry($p->{header}, $_) } qw(version release arch);
+ map { c::headerGetEntry($p->{header}, $_) } qw(name version release arch);
c::rpmtransAddPackage($trans, $p->{header}, $method->getFile($fullname) , $isUpgrade);
$nb++;
$total += $p->{size};