Permalink
Browse files

Better error reporting when we can't get the perl releases

  • Loading branch information...
1 parent 3838156 commit ee5fcd62cc2ea72baea3c14bfd0fdc9e5ad4e0c8 @abh abh committed Jun 11, 2011
Showing with 4 additions and 1 deletion.
  1. +4 −1 bin/cpanorg_perl_releases
@@ -109,7 +109,10 @@ sub fetch_perl_version_data {
print_file( $filename, $cpan_json );
}
- my $data = $json->decode($cpan_json);
+ my $data = eval { $json->decode($cpan_json) };
+ if (my $err = $@) {
+ die "$err: [$cpan_json]";
+ }
my @perls;
my @testing;

0 comments on commit ee5fcd6

Please sign in to comment.