From 507773d9633d0b78407bb4ba5e5b4a3b708a482c Mon Sep 17 00:00:00 2001
From: acli <acli>
Date: Mon, 8 Mar 2004 05:00:42 +0000
Subject: [PATCH] Sorry, forgot to take out debugging code before committing

---
 misc/translator/TmplTokenizer.pm | 12 ------------
 1 file changed, 12 deletions(-)

diff --git a/misc/translator/TmplTokenizer.pm b/misc/translator/TmplTokenizer.pm
index df79259572..7ea81570a9 100644
--- a/misc/translator/TmplTokenizer.pm
+++ b/misc/translator/TmplTokenizer.pm
@@ -545,9 +545,7 @@ sub _optimize {
 		    push @{$this->{_queue}}, [1, pop @structure];
 		}
 	    };
-	    print "DEBUG: optimize: entry: checking: ", join('', map {$_->string} @structure), "\n";
     &$undo_trailing_blanks;
-	    print "DEBUG: optimize: structure length is ", scalar @structure, "\n";
     while (@structure >= 2) {
 	my $something_done_p = 0;
 	# FIXME: If the last token is a close tag but there are no tags
@@ -557,19 +555,16 @@ sub _optimize {
 		&& $structure[$#structure]->type == TmplTokenType::TAG
 		&& $structure[$#structure]->string =~ /^<\//s) {
 	    my $has_other_tags_p = 0;
-	    print "DEBUG: checking for unmatched close tag: ", join('', map {$_->string} @structure), "\n";
 	    for (my $i = 0; $i < $#structure; $i += 1) {
 		$has_other_tags_p = 1
 			if $structure[$i]->type == TmplTokenType::TAG;
 	    last if $has_other_tags_p;
 	    }
 	    if (!$has_other_tags_p) {
-	    print "DEBUG: requeuing ", $structure[$#structure]->string, "\n";
 		push @{$this->{_queue}}, [0, pop @structure]
 		&$undo_trailing_blanks;
 		$something_done_p = 1;
 	    }
-	    print "DEBUG: finished checking for unmatched closed tag\n";
 	}
 	# FIXME: Do the same ugly hack for the last token being a ( or [
 	if (@structure >= 2
@@ -587,7 +582,6 @@ sub _optimize {
 		&& $structure[0]->string =~ /^<([a-z0-9]+)/is
 		&& (my $tag = $1) !~ /^(?:br|hr|img|input)\b/is
 	) {
-	    print "DEBUG: checking for unmatched open tag: ", join('', map {$_->string} @structure), "\n";
 	    my $tag_open_count = 1;
 	    for (my $i = 1; $i <= $#structure; $i += 1) {
 		if ($structure[$i]->type == TmplTokenType::TAG) {
@@ -597,14 +591,11 @@ sub _optimize {
 		}
 	    }
 	    if ($tag_open_count > 0) {
-	    print "DEBUG: tag open count is $tag_open_count, requeuing...\n";
 		for (my $i = $#structure; $i; $i -= 1) {
-	    print "DEBUG: requeuing ", $structure[$#structure]->string, "\n";
 		    push @{$this->{_queue}}, [1, pop @structure];
 		}
 		$something_done_p = 1;
 	    }
-	    print "DEBUG: finished checking structure\n\n";
 	}
 	# FIXME: If the first token is an open tag, the last token is the
 	# FIXME: corresponding close tag, and there are no other close tags 
@@ -616,7 +607,6 @@ sub _optimize {
 		&& $structure[$#structure]->type == TmplTokenType::TAG
 		&& $structure[$#structure]->string =~ /^<\/$1\s*>$/is) {
 	    my $has_other_open_or_close_tags_p = 0;
-	    print "DEBUG: checking for matching open and close tags: ", join('', map {$_->string} @structure), "\n";
 	    for (my $i = 1; $i < $#structure; $i += 1) {
 		$has_other_open_or_close_tags_p = 1
 			if $structure[$i]->type == TmplTokenType::TAG
@@ -625,12 +615,10 @@ sub _optimize {
 	    }
 	    if (!$has_other_open_or_close_tags_p) {
 		for (my $i = $#structure; $i; $i -= 1) {
-	    print "DEBUG: requeuing ", $structure[$#structure]->string, "\n";
 		    push @{$this->{_queue}}, [1, pop @structure];
 		}
 		$something_done_p = 1;
 	    }
-	    print "DEBUG: finished checking for matching open and close tags\n";
 	}
     last if !$something_done_p;
     }
-- 
2.39.5