gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Warn about <<Prev

This commit is contained in:
acli 2004-02-12 17:44:59 +00:00
parent 33a4d5705a
commit 0a9cd4aba1
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
misc/translator/text-extract2.pl
View File

@ -97,6 +97,7 @@ sub next_token_internal (*) {
# FIXME the following (the [<\s] part) is an unreliable HACK :-(
} elsif ($readahead =~ /^(?:[^<]|<[<\s])+/s) { # non-space normal text
($kind, $it, $readahead) = (KIND_TEXT, $&, $');
warn "Warning: Unescaped < in line $lc: $it\n" if $it =~ /</s;
} else { # tag/declaration/processing instruction
my $ok_p = 0;
for (;;) {