Do not call textdomain from perl modules

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.

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);

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;

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