Added ccd_defs_check.pl to verify that ccd_defs.json compiles.

Former-commit-id: c85e3890d9
gh-pages
Felix Tubiana 2015-07-21 11:26:51 +08:00
rodzic 75bb4ba4a6
commit 3aa4ef2256
1 zmienionych plików z 20 dodań i 0 usunięć

20
ccd_defs_check.pl 100755
Wyświetl plik

@ -0,0 +1,20 @@
#!/usr/bin/env perl
use strict;
use File::Basename qw( dirname );
use File::Spec;
use JSON;
my $dir = dirname($0);
my $ccd_defs = File::Spec->catfile($dir, 'ccd_defs.json');
open my $fh, $ccd_defs
or die "Unable to open $ccd_defs : $!";
local $/;
my $json = <$fh>; # Slurp
close $fh;
decode_json($json);
print "CCD_DEFS compiles OK\n";
exit 0;