aboutsummaryrefslogtreecommitdiff
path: root/btconnect
diff options
context:
space:
mode:
Diffstat (limited to 'btconnect')
-rwxr-xr-xbtconnect4
1 files changed, 3 insertions, 1 deletions
diff --git a/btconnect b/btconnect
index b814722..7fc3726 100755
--- a/btconnect
+++ b/btconnect
@@ -4,6 +4,8 @@
# (fzf) to choose which one to connect to or disconnect from.
################################################################################
+use strict;
+use warnings;
use feature 'signatures';
use POSIX qw(isatty);
@@ -54,7 +56,7 @@ sub btconnect($selector) {
print $? ? "ERROR:\n\n$out\n" : "done\n";
}
-if (isatty(STDIN)) {
+if (isatty(*STDIN)) {
# Show menu (fzf) and connect using the CLI
my $query = join ' ', @ARGV;
btconnect("fzf -q '$query'");