[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/misc/translator text-extract2.pl,1.28,1.29
From: |
Ambrose Li |
Subject: |
[Koha-cvs] CVS: koha/misc/translator text-extract2.pl,1.28,1.29 |
Date: |
Sat, 14 Feb 2004 01:23:36 -0800 |
Update of /cvsroot/koha/koha/misc/translator
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4748
Modified Files:
text-extract2.pl
Log Message:
Fixed spurious warning about unescaped < inside cdata
Index: text-extract2.pl
===================================================================
RCS file: /cvsroot/koha/koha/misc/translator/text-extract2.pl,v
retrieving revision 1.28
retrieving revision 1.29
diff -C2 -r1.28 -r1.29
*** text-extract2.pl 14 Feb 2004 09:10:20 -0000 1.28
--- text-extract2.pl 14 Feb 2004 09:23:34 -0000 1.29
***************
*** 154,158 ****
} elsif ($readahead =~ /^(?:[^<]|<[<\s])+/s) { # non-space normal text
($kind, $it, $readahead) = (KIND_TEXT, $&, $');
! warn "Warning: Unescaped < near line $lc_0: $it\n" if $it =~ /</s;
} else { # tag/declaration/processing instruction
my $ok_p = 0;
--- 154,159 ----
} elsif ($readahead =~ /^(?:[^<]|<[<\s])+/s) { # non-space normal text
($kind, $it, $readahead) = (KIND_TEXT, $&, $');
! warn "Warning: Unescaped < near line $lc_0: $it\n"
! if !$cdata_mode_p && $it =~ /</s;
} else { # tag/declaration/processing instruction
my $ok_p = 0;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/misc/translator text-extract2.pl,1.28,1.29,
Ambrose Li <=