[Koha-cvs] CVS: koha/misc/translator TmplTokenizer.pm,1.8,1.9
Ambrose Li
acli at users.sourceforge.net
Tue Feb 17 08:45:19 CET 2004
Update of /cvsroot/koha/koha/misc/translator
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21841
Modified Files:
TmplTokenizer.pm
Log Message:
The previous change was wrong.
Index: TmplTokenizer.pm
===================================================================
RCS file: /cvsroot/koha/koha/misc/translator/TmplTokenizer.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** TmplTokenizer.pm 17 Feb 2004 07:26:29 -0000 1.8
--- TmplTokenizer.pm 17 Feb 2004 07:45:17 -0000 1.9
***************
*** 404,410 ****
sub trim ($) {
! my($s) = @_;
! $s =~ /^(\s|\ $re_end_entity)*(.*)(\s|\ $re_end_entity)*$/os;
! return wantarray? ($2, $1, $3): $2;
}
--- 404,413 ----
sub trim ($) {
! my($s0) = @_;
! my $l0 = length $s0;
! my $s = $s0;
! $s =~ s/^(\s|\ $re_end_entity)+//os; my $l1 = $l0 - length $s;
! $s =~ s/(\s|\ $re_end_entity)+$//os; my $l2 = $l0 - $l1 - length $s;
! return wantarray? (substr($s0, 0, $l1), $s, substr($s0, $l0 - $l2)): $s;
}
More information about the Koha-cvs
mailing list