Add capibarra (sway status bar)

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'");