From 80f1640e8c8de7103580360e0e431e38cf72f60d Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 24 Nov 2006 22:15:55 +0000 Subject: (extract_header) use more modern API (MDV::Packdrakeng instead of packdrake) --- rpmdrake | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/rpmdrake b/rpmdrake index b8833ca7..1e990f24 100755 --- a/rpmdrake +++ b/rpmdrake @@ -471,9 +471,8 @@ sub extract_header { $hdlist =~ s!^file:/+!!; if (-r $hdlist) { my $packer; - # TODO use more modern API - eval { require packdrake; $packer = new packdrake($hdlist, quiet => 1) } - or do { + require MDV::Packdrakeng; + eval { $packer = MDV::Packdrakeng->open (archive => $hdlist, quit => 1) } or do { warn "Warning, hdlist seems corrupted\n"; goto header_non_available; }; @@ -487,7 +486,7 @@ sub extract_header { warn "Warning, could not extract header!"; goto header_non_available; }; - $packer->extract_archive($headersdir, $p->header_filename); + $packer->extract($headersdir, $p->header_filename); $p->update_header("$headersdir/" . $p->header_filename) or do { warn "Warning, could not extract header!"; goto header_non_available; -- cgit v1.2.1