From bff430cf3cfe9ab44c22338eabe852433ba2d9da Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Mon, 26 Mar 2007 11:25:48 +0000
Subject: (extract_header) explain why we run ->pack_header()

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

(limited to 'Rpmdrake')

diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm
index 25d5a14c..b3405e96 100755
--- a/Rpmdrake/pkg.pm
+++ b/Rpmdrake/pkg.pm
@@ -127,7 +127,7 @@ sub extract_header {
 	        files => scalar($p->files) ? [ $p->files ] : [ N("(none)") ],
 		changelog => $chg_prepro->(join("\n", mapn { "* " . localtime2changelog($_[2]) . " $_[0]\n\n$_[1]\n" }
 						[ $p->changelog_name ], [ $p->changelog_text ], [ $p->changelog_time ])) });
-	    $p->pack_header;
+	    $p->pack_header; # needed in order to call methods on objects outside ->traverse
 	} else {
            header_non_available:
              add2hash($pkg, { summary => $p->summary || N("(Not available)"), description => undef });
-- 
cgit v1.2.1