summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-07-16 14:03:47 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-07-16 14:03:47 +0000
commit9f8734e27c9a88137a2933970b7a5962e37789da (patch)
tree973e9a5518a38231812f2af8047ca93be420a083 /perl-install/pkgs.pm
parente4fb0c6d7fbe0fc8f8659f0d39510aad4dc95999 (diff)
downloaddrakx-9f8734e27c9a88137a2933970b7a5962e37789da.tar
drakx-9f8734e27c9a88137a2933970b7a5962e37789da.tar.gz
drakx-9f8734e27c9a88137a2933970b7a5962e37789da.tar.bz2
drakx-9f8734e27c9a88137a2933970b7a5962e37789da.tar.xz
drakx-9f8734e27c9a88137a2933970b7a5962e37789da.zip
*** empty log message ***
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 103af1ec3..d512c7c5a 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -21,7 +21,9 @@ sub skipThisPackage { member($_[0], @skipThesesPackages) }
sub addInfosFromHeader($$) {
my ($packages, $header) = @_;
- $packages->{c::headerGetEntry($header, 'name')} = {
+ my $name = c::headerGetEntry($header, 'name');
+ $packages->{$name} = {
+ name => $name,
header => $header, size => c::headerGetEntry($header, 'size'),
group => c::headerGetEntry($header, 'group') || "(unknown group)",
};