From c1e51c54d59c3da023fbe75253c718a2e40bb3f6 Mon Sep 17 00:00:00 2001
From: acli <acli>
Date: Tue, 17 Feb 2004 03:02:39 +0000
Subject: [PATCH] Fixed more bugs during the modularization

---
 misc/translator/TmplTokenType.pm | 2 +-
 misc/translator/text-extract2.pl | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/misc/translator/TmplTokenType.pm b/misc/translator/TmplTokenType.pm
index c5115846a1..9616f1379a 100644
--- a/misc/translator/TmplTokenType.pm
+++ b/misc/translator/TmplTokenType.pm
@@ -39,7 +39,7 @@ use vars qw( $_text $_cdata $_tag $_decl $_pi $_directive $_comment $_unknown );
 
 BEGIN {
     my $new = sub {
-	my $this = shift;
+	my $this = 'TmplTokenType';#shift;
 	my $class = ref($this) || $this;
 	my $self = {};
 	bless $self, $class;
diff --git a/misc/translator/text-extract2.pl b/misc/translator/text-extract2.pl
index db568df741..81fc1c45f5 100755
--- a/misc/translator/text-extract2.pl
+++ b/misc/translator/text-extract2.pl
@@ -33,7 +33,7 @@ sub debug_dump (*) { # for testing only
     last unless defined $s;
 	printf "%s\n", ('-' x 79);
 	my($kind, $t, $attr) = ($s->type, $s->string, $s->attributes);
-	printf "%s:\n", $kind;
+	printf "%s [line %d]:\n", $kind->to_string, $s->line_number;
 	printf "%4dH%s\n", length($t),
 		join('', map {/[\0-\37]/? $_: "$_\b$_"} split(//, $t));
 	if ($kind eq TmplTokenType::TAG && %$attr) {
-- 
2.39.5