moved back to nulls

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

diff --git a/src/perlmods/JSON.pm b/src/perlmods/JSON.pm
index 9d6d8b4..ece6bb0 100644 (file)
--- a/src/perlmods/JSON.pm
+++ b/src/perlmods/JSON.pm
@@ -176,8 +176,8 @@ sub perl2JSON {
 
        my $output = '';
        if (!defined($perl)) {
-               $output = '' unless $strict;
-               $output = 'null' if $strict;
+               $output = '' if $strict;
+               $output = 'null' unless $strict;
        } elsif (ref($perl) and ref($perl) =~ /^JSON/) {
                $output .= $perl;
        } elsif ( ref($perl) && exists($_class_map{classes}{ref($perl)}) ) {