svnno****@sourc*****
svnno****@sourc*****
2008年 3月 6日 (木) 17:05:13 JST
SRADRevision: 535
http://svn.sourceforge.jp/cgi-bin/viewcvs.cgi?root=slashdotjp&view=rev&rev=535
Author: tach
Date: 2008-03-06 17:05:13 +0900 (Thu, 06 Mar 2008)
Log Message:
-----------
Fix to remove some unicode control characters from form (merged from 2.5.0.192 branch)
Modified Paths:
--------------
slashjp/trunk/Slash/Utility/Environment/Environment.pm
-------------- next part --------------
Modified: slashjp/trunk/Slash/Utility/Environment/Environment.pm
===================================================================
--- slashjp/trunk/Slash/Utility/Environment/Environment.pm 2008-03-06 07:50:17 UTC (rev 534)
+++ slashjp/trunk/Slash/Utility/Environment/Environment.pm 2008-03-06 08:05:13 UTC (rev 535)
@@ -467,6 +467,7 @@
} else {
$form = $static_form;
}
+ map { $form->{$_} =~ s/\p{BidiControl}|\p{Unassigned}|\p{JoinControl}//g } keys(%$form);
return defined $value ? $form->{$value} : $form;
}