some missed changes to Cpanel::JSON::XS

metacpan · Apr 23, 2016 · e0d2e9d · e0d2e9d
1 parent 04f4733
commit e0d2e9d
Show file tree

Hide file tree

Showing 5 changed files with 6 additions and 6 deletions.
diff --git a/cpanfile b/cpanfile
@@ -74,8 +74,6 @@ requires 'IO::String';
 requires 'IO::Uncompress::Bunzip2';
 requires 'IO::Zlib';
 requires 'IPC::Run3';
-requires 'JSON::XS', '3.01';
-requires 'JSON', '2.90';
 requires 'LWP::Protocol::https';
 requires 'LWP::UserAgent', '6.15';
 requires 'LWP::UserAgent::Paranoid';

diff --git a/lib/MetaCPAN/Script/Author.pm b/lib/MetaCPAN/Script/Author.pm
@@ -115,7 +115,8 @@ sub author_config {
 
     my $author;
     eval {
-        $author = JSON::XS->new->utf8->relaxed->decode( $file->slurp );
+        $author
+            = Cpanel::JSON::XS->new->utf8->relaxed->decode( $file->slurp );
         1;
     } or do {
         log_warn {"$file is broken: $@"};

diff --git a/lib/MetaCPAN/Script/Mirrors.pm b/lib/MetaCPAN/Script/Mirrors.pm
@@ -24,7 +24,7 @@ sub index_mirrors {
 
     my $json    = $self->cpan->file( 'indices', 'mirrors.json' )->slurp;
     my $type    = $self->index->type('mirror');
-    my $mirrors = JSON::XS::decode_json($json);
+    my $mirrors = Cpanel::JSON::XS::decode_json($json);
     foreach my $mirror (@$mirrors) {
         $mirror->{location}
             = { lon => $mirror->{longitude}, lat => $mirror->{latitude} };

diff --git a/lib/MetaCPAN/Script/Query.pm b/lib/MetaCPAN/Script/Query.pm
@@ -41,7 +41,8 @@ sub run {
         }
     );
     my @results = dpath($path)->match( decode_json($json) );
-    ( my $dump = Dump(@results) ) =~ s/\!\!perl\/scalar:JSON::XS::Boolean //g;
+    ( my $dump = Dump(@results) )
+        =~ s/\!\!perl\/scalar:Cpanel::JSON::XS::Boolean //g;
     print $dump;
 
 }

diff --git a/lib/MetaCPAN/Script/Release.pm b/lib/MetaCPAN/Script/Release.pm
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 
 BEGIN {
-    $ENV{PERL_JSON_BACKEND} = 'JSON::XS';
+    $ENV{PERL_JSON_BACKEND} = 'Cpanel::JSON::XS';
 }
 
 use CPAN::DistnameInfo ();