[Koha-cvs] CVS: koha/misc/translator text-extract2.pl,1.5,1.6

[Ambrose Li]

Update of /cvsroot/koha/koha/misc/translator
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24373

Modified Files:
        text-extract2.pl 
Log Message:
Warn about <<Prev


Index: text-extract2.pl
===================================================================
RCS file: /cvsroot/koha/koha/misc/translator/text-extract2.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** text-extract2.pl    12 Feb 2004 17:38:42 -0000      1.5
--- text-extract2.pl    12 Feb 2004 17:44:59 -0000      1.6
***************
*** 98,101 ****
--- 98,102 ----
      } 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;