@@ -1,3 +1,6 @@
+2.31  2014-04-05   Update to make it work with recent JSON.pm. Now
+                     requires JSON.pm 2.90 or higher.
+
 2.3   2013-07-25   Fix nasty context bug. scalar($rand->get(1)) would
                      always give you 1 (the number of elements in the
                      list returned) instead of a useful number.

@@ -4,7 +4,7 @@
       "unknown"
    ],
    "dynamic_config" : 1,
-   "generated_by" : "ExtUtils::MakeMaker version 6.62, CPAN::Meta::Converter version 2.112150",
+   "generated_by" : "ExtUtils::MakeMaker version 6.94, CPAN::Meta::Converter version 2.120351",
    "license" : [
       "unknown"
    ],
@@ -22,19 +22,19 @@
    "prereqs" : {
       "build" : {
          "requires" : {
-            "ExtUtils::MakeMaker" : 0
+            "ExtUtils::MakeMaker" : "0"
          }
       },
       "configure" : {
          "requires" : {
-            "ExtUtils::MakeMaker" : 0
+            "ExtUtils::MakeMaker" : "0"
          }
       },
       "runtime" : {
          "requires" : {
             "Encode::Locale" : "1.01",
-            "JSON" : 0,
-            "LWP::UserAgent" : 0,
+            "JSON" : "2.9",
+            "LWP::UserAgent" : "0",
             "Test::MockObject" : "1.07",
             "Test::More" : "0.64"
          }
@@ -42,5 +42,5 @@
    },
    "release_status" : "stable",
    "resources" : {},
-   "version" : "2.3"
+   "version" : "2.31"
 }

@@ -7,7 +7,7 @@ build_requires:
 configure_requires:
   ExtUtils::MakeMaker: 0
 dynamic_config: 1
-generated_by: 'ExtUtils::MakeMaker version 6.62, CPAN::Meta::Converter version 2.112150'
+generated_by: 'ExtUtils::MakeMaker version 6.94, CPAN::Meta::Converter version 2.120351'
 license: unknown
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -19,9 +19,9 @@ no_index:
     - inc
 requires:
   Encode::Locale: 1.01
-  JSON: 0
+  JSON: 2.9
   LWP::UserAgent: 0
   Test::MockObject: 1.07
   Test::More: 0.64
 resources: {}
-version: 2.3
+version: 2.31

@@ -20,6 +20,6 @@ WriteMakefile(
                                 # spurious warnings
     'Test::More'       => 0.64,
     'Test::MockObject' => 1.07,
-    'JSON'             => 0,
+    'JSON'             => 2.90,
   }
 );

@@ -4,7 +4,7 @@ use strict;
 local $^W = 1;
 use vars qw($VERSION %randomness);
 
-$VERSION = '2.3';
+$VERSION = '2.31';
 
 require LWP::UserAgent;
 use Sys::Hostname;
@@ -35,7 +35,7 @@ my $ua = LWP::UserAgent->new(
     if($@) {
       warn("Net::Random: qrng.anu.edu.au returned bogus JSON\n");
       return();
-    } elsif($content->{success} ne 'true') {
+    } elsif(!$content->{success}) {
       warn("Net::Random: qrng.anu.edu.au said 'success: ".$content->{success}."'\n");
       return();
     }