X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FDXSubprocess.pm;fp=perl%2FDXSubprocess.pm;h=e9624c7d8da4bebd0c961e7563f2ea084add4813;hp=6ff5adae1bbba143f2531007359e19bd31ed9a09;hb=04f1823a3dc3f20b6bbcaeee89b3b09e26d91f6d;hpb=dd01a8824f3896015e031cf301181760a6496bbd

diff --git a/perl/DXSubprocess.pm b/perl/DXSubprocess.pm
index 6ff5adae..e9624c7d 100644
--- a/perl/DXSubprocess.pm
+++ b/perl/DXSubprocess.pm
@@ -29,7 +29,7 @@ sub freeze
 	my $j = shift;
 	unless ($j) {
 		LogDbg('DXUser', "DXSubcommand::freeze: undefined or empty input");
-		return q{[null, ""]};
+		return q{[null, '']};
 	}
 	
 	eval { $r = encode_json($j) };
@@ -47,14 +47,14 @@ sub thaw
 	my $j = shift;
 	unless ($j) {
 		LogDbg('DXUser', "DXSubcommand::thaw: empty string on input");
-		return q{[null, ""]};
+		return [undef,[0]];
 	}
 
 	return [undef, [1]] unless $j; 
 	eval { $r = decode_json($j) };
 	if ($@) {
 		LogDbg('DXUser', "DXSubcommand::thaw: json error on '$j': $@");
-		$r = qq{[$@,[1]]};
+		$r = [$@,[0]];
 	}
 	return $r;
 }