X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXSubprocess.pm;h=e9624c7d8da4bebd0c961e7563f2ea084add4813;hb=677f9d4ae7355cb6e5d05c3782a39e9022647f5b;hp=6ff5adae1bbba143f2531007359e19bd31ed9a09;hpb=c30a89a0f34e861b9eb136c07ff4ea5ed9a460a0;p=spider.git

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;
 }