[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.18,1.19
From: |
Ambrose Li |
Subject: |
[Koha-cvs] CVS: koha/misc/translator text-extract2.pl,1.18,1.19 |
Date: |
Fri, 13 Feb 2004 21:35:07 -0800 |
Update of /cvsroot/koha/koha/misc/translator
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv863
Modified Files:
text-extract2.pl
Log Message:
Hmm. I didn't know there can be whitespace before and/or after = in
attributes...
Index: text-extract2.pl
===================================================================
RCS file: /cvsroot/koha/koha/misc/translator/text-extract2.pl,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -r1.18 -r1.19
*** text-extract2.pl 13 Feb 2004 03:49:26 -0000 1.18
--- text-extract2.pl 14 Feb 2004 05:35:04 -0000 1.19
***************
*** 75,79 ****
|| $s =~ /^<\S+(.*)\S$/s; # SGML-style tags
! for (my $i = 0; $s =~
/^\s+(?:([a-zA-Z][-a-zA-Z0-9]*)=)?('((?:$re_directive|[^'])*)'|"((?:$re_directive|[^"])*)"|(($re_directive|[^\s<>])+))/os;)
{
my($key, $val, $val_orig, $rest)
= ($1, (defined $3? $3: defined $4? $4: $5), $2, $');
--- 75,79 ----
|| $s =~ /^<\S+(.*)\S$/s; # SGML-style tags
! for (my $i = 0; $s =~
/^\s+(?:([a-zA-Z][-a-zA-Z0-9]*)\s*=\s*)?('((?:$re_directive|[^'])*)'|"((?:$re_directive|[^"])*)"|(($re_directive|[^\s<>])+))/os;)
{
my($key, $val, $val_orig, $rest)
= ($1, (defined $3? $3: defined $4? $4: $5), $2, $');
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/misc/translator text-extract2.pl,1.18,1.19,
Ambrose Li <=