Check for json-ness of config file, report a useful debug message if …

…we get an error.
Ensembl · Sep 10, 2020 · 51acb40 · 51acb40
1 parent 9169551
commit 51acb40
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/lib/Bio/EnsEMBL/DataCheck/Manager.pm b/lib/Bio/EnsEMBL/DataCheck/Manager.pm
@@ -168,7 +168,11 @@ sub load_config {
     die "Config file does not exist" unless -e $self->config_file;
 
     my $json = path($self->config_file)->slurp;
-    my %config = %{ JSON->new->decode($json) };
+    my %config;
+    eval {
+      %config = %{ JSON->new->decode($json) };
+    };
+    die $self->config_file . " is not a valid json file:\n$@" if $@;
 
     foreach my $key (keys %{$config{'datacheck_params'}}) {
       if (!exists $params{$key}) {