diff options
| author | Olivier Thauvin <nanardon@mandriva.org> | 2004-04-22 05:33:39 +0000 |
|---|---|---|
| committer | Olivier Thauvin <nanardon@mandriva.org> | 2004-04-22 05:33:39 +0000 |
| commit | e8f3cac95471ca34f77307ec26564bcea181c295 (patch) | |
| tree | 96c24ae4aff93a0be58a145b7ed34dfe8e5fe39f | |
| parent | 4394ecba52ed94a2bb5957ef7237b85924d6bad3 (diff) | |
| download | perl-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
| -rw-r--r-- | URPM/Build.pm | 4 |
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> |