Use 'open' instead of backticks to handle metacharacters in default 'mime_query'

diff --git a/lib/App/Fey.pm b/lib/App/Fey.pm
index 4400e488f18086fbfe88cfaea3280b5a400b3525..025fb091cc9471a760cfcc7d540376f7ee4fc233 100644 (file)
--- a/lib/App/Fey.pm
+++ b/lib/App/Fey.pm
@@ -12,7 +12,10 @@ sub new {
     my $config = do ($ENV{XDG_CONFIG_HOME} // "$ENV{HOME}/.config") . '/fey/config.pl';
 
     my $self = {
-        mime_query => $args->{mime_query} // $config->{mime_query} // sub { `file --brief --mime-type "$_[0]"` },
+        mime_query => $args->{mime_query} // $config->{mime_query} // sub {
+            open my $mime_type, '-|', 'file', '--brief', '--mime-type', $_[0];
+            <$mime_type>;
+        },
         contexts => $args->{contexts} // $config->{contexts} // { default => sub { 1 } },
         targets => $args->{targets} // $config->{targets} // {}
     };