From 5d4aa008bdbb8685fbdd296e8096ffb29298bd8b Mon Sep 17 00:00:00 2001 From: Dmitry Shachnev Date: Tue, 17 Oct 2017 19:45:29 +0300 Subject: Adapt to SymbolFile API changes in libdpkg-perl 1.19.0. Closes: #878892. --- pkgkde-gensymbols | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'pkgkde-gensymbols') diff --git a/pkgkde-gensymbols b/pkgkde-gensymbols index 0f0a065..2277bf1 100755 --- a/pkgkde-gensymbols +++ b/pkgkde-gensymbols @@ -25,12 +25,12 @@ my $old_symbolfile_parse; sub new_symbolfile_parse { # Use Debian::PkgKde::SymbolsHelper::Symbol as base symbol - my ($self, $fh, $file, $seen, $obj_ref, $base_symbol) = @_; - unless (defined $base_symbol) { - $base_symbol = 'Debian::PkgKde::SymbolsHelper::Symbol'; + my ($self, $fh, $file, %opts) = @_; + my $state = $opts{state} //= {}; + unless (defined $state->{base_symbol}) { + $state->{base_symbol} = 'Debian::PkgKde::SymbolsHelper::Symbol'; } - return &$old_symbolfile_parse($self, $fh, $file, $seen, $obj_ref, - $base_symbol); + return &$old_symbolfile_parse($self, $fh, $file, %opts); } sub check_dpkg_version { -- cgit v1.2.3