Use File::Which for searching binary
[clawsker.git] / clawsker
index b99b656..6c256b3 100755 (executable)
--- a/clawsker
+++ b/clawsker
@@ -20,6 +20,7 @@ use utf8;
 use version 0.77;
 use Glib qw(TRUE FALSE);
 use Gtk3;
+use File::Which;
 use POSIX qw(setlocale);
 use Locale::gettext;
 use Encode;
@@ -295,9 +296,8 @@ sub version_greater_or_equal {
 }
 
 sub get_claws_version {
-    $_ = qx/which claws-mail/;
-    chomp;
-    return "" unless ($_); # not installed
+    $_ = which ('claws-mail');
+    return "" unless defined $_; # not installed
     my $res = "";
     $_ = qx/$_ -v/;
     chomp;