From 12d989fc9f88ccb10167cfc50ad75f33d53a1699 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 23 Jan 2008 17:22:46 +0000
Subject: (extract_header) fix a crash (#37122)

---
 Rpmdrake/pkg.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm
index bf3269c4..c9945daa 100644
--- a/Rpmdrake/pkg.pm
+++ b/Rpmdrake/pkg.pm
@@ -105,7 +105,7 @@ sub extract_header {
 	my ($p, $medium) = ($pkg->{pkg}, pkg2medium($pkg->{pkg}, $urpm));
         my ($local_source, %xml_info_pkgs);
         if (my $dir = urpm::file_from_local_url($medium->{url})) {
-            $local_source = "$dir/" . $_->header_filename;
+            $local_source = "$dir/" . $p->header_filename;
             $urpm->{log}("getting information from rpms from $dir");
         } else {
             foreach my $xml_info ('info', 'files', 'changelog') {
-- 
cgit v1.2.1