diff options
author | Guilhem Moulin <guilhem@fripost.org> | 2017-02-19 12:28:39 +0100 |
---|---|---|
committer | Guilhem Moulin <guilhem@fripost.org> | 2017-02-19 12:28:39 +0100 |
commit | 05aafaa0c740d7a17e6e3f17634ae6990187f22d (patch) | |
tree | 59f05e6812b897e563d6513fb1b8376b6c8a2ee5 | |
parent | 0eb9f40182299b2615f5ac0190d40429f5f64ed7 (diff) |
wibble
-rwxr-xr-x | client | 2 | ||||
-rwxr-xr-x | lacme | 2 |
2 files changed, 2 insertions, 2 deletions
@@ -85,7 +85,7 @@ my $NONCE; # my $CONFIG = do { - my $conf = do { local $/ = undef, <$CONFFILE> }; + my $conf = do { local $/ = undef; <$CONFFILE> }; close $CONFFILE or die "Can't close: $!"; my $h = Config::Tiny::->read_string($conf) or die Config::Tiny::->errstr()."\n"; $h->{_} //= {}; @@ -77,7 +77,7 @@ do { die "Error: Can't find configuration file\n" unless defined $CONFFILENAME; print STDERR "Using configuration file: $CONFFILENAME\n" if $OPTS{debug}; open $CONFFILE, '<', $CONFFILENAME or die "Can't open $CONFFILENAME: $!\n"; - my $conf = do { local $/ = undef, <$CONFFILE> }; + my $conf = do { local $/ = undef; <$CONFFILE> }; # don't close $CONFFILE so we can pass it to the client my $h = Config::Tiny::->read_string($conf) or die Config::Tiny::->errstr()."\n"; |