|
From: Mark K. <seg...@us...> - 2002-09-26 17:46:29
|
Update of /cvsroot/formmagick/formmagick/lib/CGI/FormMagick
In directory usw-pr-cvs1:/tmp/cvs-serv8475/lib/CGI/FormMagick
Modified Files:
Tag: MITEL-0_87
L10N.pm
Log Message:
Two patches against 0.87: one security fix that also requires a patched CGI::Persistent (the main culprit), and code to trim leading and trailing whitespace from lexicon entries.
Index: L10N.pm
===================================================================
RCS file: /cvsroot/formmagick/formmagick/lib/CGI/FormMagick/L10N.pm,v
retrieving revision 1.37
retrieving revision 1.37.2.1
diff -C2 -r1.37 -r1.37.2.1
*** L10N.pm 21 May 2002 18:32:11 -0000 1.37
--- L10N.pm 26 Sep 2002 17:46:25 -0000 1.37.2.1
***************
*** 347,350 ****
--- 347,352 ----
$trans = $e->{content}->[8]->[2];
if ($base && $trans) {
+ $trans =~ /^\s*([\s\S]+\S+)\s*$/; #strip leading/trailing blanks
+ $trans = $1;
$return_lexicon{$base} = ($iconv
? $iconv->convert($trans)
|