Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

set PERL_JSON_BACKEND to JSON::XS

  • Loading branch information...
commit 2f6d07b5e2ae9eb0038d26f684e39b480d4f02ab 1 parent c1daeee
@monken monken authored
Showing with 4 additions and 1 deletion.
  1. +4 −1 lib/MetaCPAN/Script/Release.pm
View
5 lib/MetaCPAN/Script/Release.pm
@@ -4,6 +4,10 @@ with 'MooseX::Getopt';
with 'MetaCPAN::Role::Common';
use Log::Contextual qw( :log :dlog );
+BEGIN {
+ $ENV{PERL_JSON_BACKEND} = 'JSON::XS';
+}
+
use Path::Class qw(file dir);
use File::Temp ();
use CPAN::Meta ();
@@ -177,7 +181,6 @@ sub import_tarball {
}
);
-
my $st = stat($tarball);
my $stat = { map { $_ => $st->$_ } qw(mode uid gid size mtime) };
Please sign in to comment.
Something went wrong with that request. Please try again.