scripts: Do not mark internerr strings for translation

ChangeLog

@@ -1,3 +1,10 @@
+2008-12-08  Guillem Jover  <guillem@debian.org>
+
+	* scripts/Dpkg/Deps.pm (implies): Do not mark internerr strings for
+	translation.
+	* scripts/Dpkg/Fields.pm (output): Likewise.
+	* scripts/Dpkg/Source/Package.pm (add_file): Likewise.
+
 2008-12-08  Guillem Jover  <guillem@debian.org>
 
 	* scripts/Dpkg/Deps.pm (parse): Do not use sprintf for warning.

scripts/Dpkg/Deps.pm

@@ -623,7 +623,7 @@ sub implies {
 	}
 	return $res;
     } else {
-	internerr(_g("Dpkg::Deps::Simple can't evaluate implication with a %s!"),
+	internerr("Dpkg::Deps::Simple can't evaluate implication with a %s!",
 	          ref($o));
     }
 }

scripts/Dpkg/Fields.pm

@@ -228,12 +228,12 @@ sub output {
         }
         $v =~ m/\S/ || next; # delete whitespace-only fields
         $v =~ m/\n\S/ &&
-            internerr(_g("field %s has newline then non whitespace >%s<"),
+            internerr("field %s has newline then non whitespace >%s<",
                       $f, $v);
         $v =~ m/\n[ \t]*\n/ &&
-            internerr(_g("field %s has blank lines >%s<"), $f, $v);
+            internerr("field %s has blank lines >%s<", $f, $v);
         $v =~ m/\n$/ &&
-            internerr(_g("field %s has trailing newline >%s<"), $f, $v);
+            internerr("field %s has trailing newline >%s<", $f, $v);
         if (defined($substvars)) {
            $v =~ s/,[\s,]*,/,/g;
            $v =~ s/^\s*,\s*//;

scripts/Dpkg/Source/Package.pm

@@ -401,7 +401,7 @@ sub add_file {
     my ($self, $filename) = @_;
     my ($fn, $dir) = fileparse($filename);
     if (exists $self->{'files'}{$fn}) {
-        internerr(_g("tried to add file `%s' twice"), $fn);
+        internerr("tried to add file '%s' twice", $fn);
     }
     my (%sums, $size);
     getchecksums($filename, \%sums, \$size);