Do not call textdomain from perl modules

diff --git a/ChangeLog b/ChangeLog
index 1eb1e32b3a15f031759bc3cfe537ec7cdbeecebc..4afd023e432d9ee490eef4a2cbd5220d4c11b43c 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -12,6 +12,12 @@
 
        * scripts/Dpkg/Version.pm: mark compare_versions as exportable.
 
+2007-10-13  Guillem Jover  <guillem@debian.org>
+
+       * scripts/Dpkg/Shlibs.pm: Do not call textdomain.
+       * scripts/Dpkg/Shlibs/Objdump.pm: Likewise.
+       * scripts/Dpkg/Shlibs/SymbolFile.pm: Likewise.
+
 2007-10-13  Guillem Jover  <guillem@debian.org>
 
        * scripts/dpkg-gensymbols.pl: Use new Dpkg::Arch module.

diff --git a/scripts/Dpkg/Shlibs.pm b/scripts/Dpkg/Shlibs.pm
index e52c6e72a2c15bdaac3d2937e20ca28e7bd75a44..28225dfc746f31cd69dca9b896aa7c2e5ccec332 100644 (file)
--- a/scripts/Dpkg/Shlibs.pm
+++ b/scripts/Dpkg/Shlibs.pm
@@ -26,8 +26,6 @@ use Dpkg::Gettext;
 use Dpkg::ErrorHandling qw(syserr);
 use Dpkg::Shlibs::Objdump;
 
-textdomain("dpkg-dev");
-
 use constant DEFAULT_LIBRARY_PATH =>
     qw(/lib /usr/lib /lib32 /usr/lib32 /lib64 /usr/lib64
        /emul/ia32-linux/lib /emul/ia32-linux/usr/lib);

diff --git a/scripts/Dpkg/Shlibs/Objdump.pm b/scripts/Dpkg/Shlibs/Objdump.pm
index cbe8041d37a11140555ed7d32fa138d985035dd0..7b3248a291e4a489903b09ed1c1a43a7991b13b8 100644 (file)
--- a/scripts/Dpkg/Shlibs/Objdump.pm
+++ b/scripts/Dpkg/Shlibs/Objdump.pm
@@ -21,7 +21,6 @@ package Dpkg::Shlibs::Objdump;
 
 use Dpkg::Gettext;
 use Dpkg::ErrorHandling qw(syserr subprocerr warning);
-textdomain("dpkg-dev");
 
 sub new {
     my $this = shift;

diff --git a/scripts/Dpkg/Shlibs/SymbolFile.pm b/scripts/Dpkg/Shlibs/SymbolFile.pm
index 64448a1d4d4a30d4ab8b9828b13314385bb067d7..c640afacf04443c8d7f57c9db386a16673fab285 100644 (file)
--- a/scripts/Dpkg/Shlibs/SymbolFile.pm
+++ b/scripts/Dpkg/Shlibs/SymbolFile.pm
@@ -19,7 +19,6 @@ package Dpkg::Shlibs::SymbolFile;
 use Dpkg::Gettext;
 use Dpkg::ErrorHandling qw(syserr warning error);
 use Dpkg::Version qw(vercmp);
-textdomain("dpkg-dev");
 
 my %blacklist = (
     '__bss_end__' => 1,                # arm