commit 61fef9f3fb67f2d1223a14eaa263cc6a60dbdc47 from: mischa date: Tue Jul 07 12:04:49 2020 UTC remove map() commit - afef60893ef8310b745e4adb7d3e6e8dfee47463 commit + 61fef9f3fb67f2d1223a14eaa263cc6a60dbdc47 blob - 1bf846be38a4db77832f736976b884fa9bb7865f blob + f1b0e8f0485c75b431cdce471136b54e4ddb64d9 --- huectl.pl +++ huectl.pl @@ -67,7 +67,6 @@ END_USAGE my ($bridgename) = @ARGV; if (!$bridgename) { _return_error_with($USAGE); } -#my @config_files = map { -e $_ ? $_ : () } ('./hue.conf', './.hue.conf', '/etc/hue.conf', "$ENV{'HOME'}/.hue.conf", "$ENV{'HOME'}/hue.conf"); my @config_files = grep { -e } ('./hue.conf', './.hue.conf', '/etc/hue.conf', "$ENV{'HOME'}/.hue.conf", "$ENV{'HOME'}/hue.conf"); my $config = Config::Tiny->read($config_files[-1], 'utf8'); my $bridge = $config->{$bridgename}{ip} || _return_error_with("$USAGE\nError: bridge-name '$bridgename' not found.\n");