aboutsummaryrefslogtreecommitdiffstats
path: root/URPM/Build.pm
diff options
context:
space:
mode:
authorOlivier Thauvin <nanardon@mandriva.org>2004-04-22 05:33:39 +0000
committerOlivier Thauvin <nanardon@mandriva.org>2004-04-22 05:33:39 +0000
commite8f3cac95471ca34f77307ec26564bcea181c295 (patch)
tree96c24ae4aff93a0be58a145b7ed34dfe8e5fe39f /URPM/Build.pm
parent4394ecba52ed94a2bb5957ef7237b85924d6bad3 (diff)
downloadperl-URPM-e8f3cac95471ca34f77307ec26564bcea181c295.tar
perl-URPM-e8f3cac95471ca34f77307ec26564bcea181c295.tar.gz
perl-URPM-e8f3cac95471ca34f77307ec26564bcea181c295.tar.bz2
perl-URPM-e8f3cac95471ca34f77307ec26564bcea181c295.tar.xz
perl-URPM-e8f3cac95471ca34f77307ec26564bcea181c295.zip
- export keep_all_tags trought function in parse_rpm_build_headers
Diffstat (limited to 'URPM/Build.pm')
-rw-r--r--URPM/Build.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/URPM/Build.pm b/URPM/Build.pm
index 4e37edb..3174647 100644
--- a/URPM/Build.pm
+++ b/URPM/Build.pm
@@ -41,7 +41,7 @@ sub parse_rpms_build_headers {
my ($id, $filename);
if ($cache{$key} && $cache{$key}{time} > 0 && $cache{$key}{time} >= (stat $_)[9]) {
- ($id, undef) = $urpm->parse_hdlist("$dir/$cache{$key}{file}", !$options{callback});
+ ($id, undef) = $urpm->parse_hdlist("$dir/$cache{$key}{file}", keep_all_tags => $options{keep_all_tags});
unless (defined $id) {
if ($options{dontdie}) {
print STDERR "bad header $dir/$cache{$key}{file}\n";
@@ -81,7 +81,7 @@ sub parse_rpms_build_headers {
if ($options{callback}) {
$options{callback}->($urpm, $id, %options, (file => $_));
} else {
- $pkg->pack_header;
+ $pkg->pack_header;
}
# Olivier Thauvin <thauvin@aerov.jussieu.fr>