removeing C++ style quote support
authormiker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Wed, 16 Feb 2005 20:31:58 +0000 (20:31 +0000)
committermiker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Wed, 16 Feb 2005 20:31:58 +0000 (20:31 +0000)
git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@80 9efc2488-bf62-4759-914b-345cdb29e865

src/perlmods/JSON.pm

index 18454b5..dac7bca 100644 (file)
@@ -40,7 +40,7 @@ sub JSON2perl {
        my ($class, $json) = @_;
        $json ||= $class;
 
-       $json =~ s/\/\/.+$//gmo; # remove C++ comments
+       #$json =~ s/\/\/.+$//gmo; # remove C++ comments
        $json =~ s/(?<!\\)\$/\\\$/gmo; # fixup $ for later
        $json =~ s/(?<!\\)\@/\\\@/gmo; # fixup @ for later