don't try to encode non-references

diff --git a/lib/APKPM/Gearman.pm b/lib/APKPM/Gearman.pm
index 31dbb94..3c0cc1c 100644 (file)
--- a/lib/APKPM/Gearman.pm
+++ b/lib/APKPM/Gearman.pm
@@ -13,6 +13,7 @@ use Data::Dumper;
 sub e_json {
        my ( $self, $result ) = @_;
        warn "# e_json ", dump $result;
+       return $result unless ref $result; # FIXME report error?
        return JSON::XS::encode_json($result);
 }