From 0a584017ff7a375f250cd8e38aeedd19b3905f5e Mon Sep 17 00:00:00 2001
From: Guillermo Ramos
Date: Wed, 12 Jan 2022 15:43:39 +0100
Subject: bm: no longer depends on which

---
 bm | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'bm')

diff --git a/bm b/bm
index 4573135..93bd8c8 100755
--- a/bm
+++ b/bm
@@ -7,7 +7,6 @@ use File::Basename qw<basename dirname>;
 use File::Find qw<find>;
 use File::Glob qw<:bsd_glob :nocase>;
 use File::Path qw<make_path>;
-use File::Which qw<which>;
 use IPC::Open2 qw<open2>;
 use List::Util qw<all>;
 
@@ -16,8 +15,13 @@ use JSON qw<decode_json>;
 my $BMDIR = "$ENV{HOME}/.bm";
 mkdir $BMDIR || die $!;
 
-my $YT = which('yt');
-my $GIT = "git -C '$BMDIR'" if which('git') && -d "$BMDIR/.git";
+sub exists_cmd {
+    my $cmd = shift;
+    return `sh -c 'command -v $cmd'`;
+}
+
+my $YT = exists_cmd('yt');
+my $GIT = "git -C '$BMDIR'" if exists_cmd('git') && -d "$BMDIR/.git";
 
 sub is_uri {
     my $text = shift;
-- 
cgit v1.2.3