From a6da875f34b04590151411fd7a53ff6fad887423 Mon Sep 17 00:00:00 2001
From: Guillermo Ramos
Date: Sun, 7 Sep 2025 16:02:16 +0200
Subject: Add capibarra (sway status bar)

---
 btconnect | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'btconnect')

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'");
-- 
cgit v1.2.3