[open-ils-commits] r16190 - branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application (dbs)

[svn at svn.open-ils.org]

Author: dbs
Date: 2010-04-08 23:38:26 -0400 (Thu, 08 Apr 2010)
New Revision: 16190

Modified:
   branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
Log:
Fix call to JSON2perl meant to make JS regex happy in Perl
  1. Package name was wrong; fixed
  2. Commented the whole call out because JSON2perl was failing miserably


Modified: branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
===================================================================
--- branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2010-04-09 03:32:58 UTC (rev 16189)
+++ branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2010-04-09 03:38:26 UTC (rev 16190)
@@ -3535,10 +3535,11 @@
 
     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);
+        # Calling JSON2perl on the $pw_regex causes failure, even before the fancy Unicode regex
+        # ($pw_regex = OpenSRF::Utils::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);
+        $is_strong = check_password_strength_default($password);
     }
 
     if (!$is_strong) {