Replace Config::Any with YAML::Tiny

master
Daniel Berteaud 6 years ago
parent 9035410106
commit 8293c3ec4e
  1. 8
      systemd-journal-gelf

@ -8,14 +8,18 @@ use Encode qw(encode);
use Data::Dumper;
use Compress::Zlib;
use Getopt::Long;
use Config::Any;
use YAML::Tiny;
my $config = '/etc/systemd/journal-gelf.yml';
my $conf = {};
if (-e $config) {
print "Reading config file $config\n";
$conf = Config::Any->load_files( { files => [ $config ], flatten_to_hash => 1, use_ext => 1 } )->{$config};
my $yaml = YAML::Tiny->read( $config ) or die "Config file $config is invalid\n";
if (not $yaml->[0]) {
die "Config file $config is invalid\n"
}
$conf = $yaml->[0];
}
GetOptions (

Loading…
Cancel
Save