diff options
-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"; |