Simplify loading of JSON::PP

This commit is contained in:
Richard Hansen 2024-06-03 22:09:23 -04:00
parent 1401ff4aea
commit bb658d763a

View file

@ -2612,13 +2612,9 @@ EOM
## load_json_support ## load_json_support
###################################################################### ######################################################################
sub load_json_support { sub load_json_support {
my $why = shift; my ($protocol) = @_;
my $json_loaded = eval { require JSON::PP }; eval { require JSON::PP; }
unless ($json_loaded) { or fatal("Error loading the Perl module JSON::PP needed for $protocol update.");
fatal("%s", <<"EOM");
Error loading the Perl module JSON::PP needed for $why update.
EOM
}
JSON::PP->import(qw/decode_json encode_json/); JSON::PP->import(qw/decode_json encode_json/);
} }