[SCM] Debian Qt/KDE packaging tools branch, improved-gensymbols, updated. debian/0.5.3-25-gf1ba9e5

[Modestas Vainius]

The following commit has been merged in the improved-gensymbols branch:
commit f1c1ec260136c860c5a2309deb00524c8be15eab
Author: Modestas Vainius <modestas at vainius.eu>
Date:   Sun Jan 17 16:33:01 2010 +0200

    pkgkde-gensymbols: inject improved load() to Dpkg::Shlibs::SymbolFile to add support for substs.
---
 symbolshelper/pkgkde-gensymbols |   17 +++++++++++++++++
 1 files changed, 17 insertions(+), 0 deletions(-)

diff --git a/symbolshelper/pkgkde-gensymbols b/symbolshelper/pkgkde-gensymbols
index d657bf3..9d64c4d 100755
--- a/symbolshelper/pkgkde-gensymbols
+++ b/symbolshelper/pkgkde-gensymbols
@@ -18,6 +18,9 @@
 use strict;
 use warnings;
 
+use Dpkg::Shlibs::SymbolFile;
+use Debian::PkgKde::SymbolsHelper::Symbol;
+
 use constant DATADIR => '/usr/share/pkg-kde-tools';
 
 sub find_dpkg_gensymbols {
@@ -40,6 +43,20 @@ sub find_dpkg_gensymbols {
     return (undef, undef);
 }
 
+# Replace Dpkg::Shlibs::SymbolFile::load with a custom version
+# which uses Debian::PkgKde::SymbolsHelper::Symbol rather than
+# Dpkg::Shlibs::Symbol
+my $old_symbolfile_load = *Dpkg::Shlibs::SymbolFile::load;
+sub new_symbolfile_load {
+    # Use Debian::PkgKde::SymbolsHelper::Symbol as base symbol
+    my ($self, $file, $seen, $obj_ref, $base_symbol) = @_;
+    unless (defined $base_symbol) {
+	$base_symbol = 'Debian::PkgKde::SymbolsHelper::Symbol';
+    }
+    return &$old_symbolfile_load($self, $file, $seen, $obj_ref, $base_symbol);
+}
+*Dpkg::Shlibs::SymbolFile::load = *new_symbolfile_load;
+
 # Finally, run stock dpkg-gensymbols
 my ($exe, $dir) = find_dpkg_gensymbols();
 

-- 
Debian Qt/KDE packaging tools