Permalink
Browse files

set PERL_JSON_BACKEND to JSON::XS

  • Loading branch information...
monken committed Jul 28, 2011
1 parent c1daeee commit 2f6d07b5e2ae9eb0038d26f684e39b480d4f02ab
Showing with 4 additions and 1 deletion.
  1. +4 −1 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) };

0 comments on commit 2f6d07b

Please sign in to comment.