Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Ugly hack to avoid screenfuls of spurious warnings about "Possible SGML

Browse source 
closed tag notation"
This commit is contained in:
acli 2004-02-25 06:56:42 +00:00
parent fc4cd326b1
commit 8451615142
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
misc/translator/TmplTokenizer.pm
View file

@ -361,8 +361,14 @@ sub _next_token_internal {
my($head, $tail, $post) = ($1, $2, $3);
if ($tail eq '' && $post =~ $re_tmpl_var) {
# Don't bother to show the warning if we're too confused
# FIXME. There's no method for _closed_start_tag_warning
if (!defined $this->{'_closed_start_tag_warning'}
|| ($this->{'_closed_start_tag_warning'}->[0] eq $head
&& $this->{'_closed_start_tag_warning'}->[1] != $this->line_number - 1)) {
warn_normal "Possible SGML \"closed start tag\" notation: $head<\n", $this->line_number
if split(/\n/, $head) < 10;
}
$this->{'_closed_start_tag_warning'} = [$head, $this->line_number];
} else {
($kind, $it) = (TmplTokenType::TAG, "$head>");
$this->_set_readahead( $post );