using old regex method + default class

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@191 9efc2488-bf62-4759-914b-345cdb29e865

diff --git a/src/perlmods/JSON.pm b/src/perlmods/JSON.pm
index d84ad0b..9e6db46 100644 (file)
--- a/src/perlmods/JSON.pm
+++ b/src/perlmods/JSON.pm
@@ -91,11 +91,12 @@ sub JSON2perl {
 
        s/:/ => /sog;
 
-       if (0) {
+       if (1) {
                # handle class blessings
                s/\/\*--\s*S\w*?\s+\S+\s*--\*\// bless(/sog;
                s/\/\*--\s*E\w*?\s+(\S+)\s*--\*\// => _json_hint_to_class("$1")) /sog;
        } else {
+               #why don't I work?!?!
                my $string = $_;
                for my $hint (values %{$_class_map{hints}}) {
                        $string =~ s/\/\*--\s*S\w*?\s+$$hint{hint_re}\s*--\*\// bless(/sog;