From 5b586bed1263730ae0a7c58afa87943950ec93cf Mon Sep 17 00:00:00 2001 From: miker Date: Thu, 8 Apr 2010 14:51:36 +0000 Subject: [PATCH] perl-ify JS regexes that use \u-encoded unicode characters git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_6@16169 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Actor.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm index 179404db21..4fb98c1c3e 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm @@ -3515,10 +3515,10 @@ sub commit_password_reset { # Check complexity of password against OU-defined regex my $pw_regex = $U->ou_ancestor_setting_value($user->home_ou, 'global.password_regex'); - $pw_regex = OpenSRF::Util::JSON->JSON2perl($pw_regex); my $is_strong = 0; if ($pw_regex) { + ($pw_regex = OpenSRF::Util::JSON->JSON2perl($pw_regex)) =~ s/\\u([0-9a-fA-F]{4})/\\x{$1}/gs; $is_strong = check_password_strength_custom($password, $pw_regex); } else { $is_strong = check_password_strength_default($password); -- 2.11.0