moved back to nulls

git-svn-id: svn://svn.open-ils.org/ILS/trunk@1221 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/OpenSRF/src/perlmods/JSON.pm b/OpenSRF/src/perlmods/JSON.pm
index 9d6d8b4..ece6bb0 100644 (file)
--- a/OpenSRF/src/perlmods/JSON.pm
+++ b/OpenSRF/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)}) ) {