From 9f8734e27c9a88137a2933970b7a5962e37789da Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 16 Jul 1999 14:03:47 +0000
Subject: *** empty log message ***

---
 perl-install/pkgs.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'perl-install/pkgs.pm')

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)",
     };
-- 
cgit v1.2.1