summaryrefslogtreecommitdiffstats
path: root/clerk
diff options
context:
space:
mode:
authorRasmus Steinke <rasi@xssn.at>2017-08-08 18:55:38 +0200
committerRasmus Steinke <rasi@xssn.at>2017-08-08 18:55:38 +0200
commit5ff50618b3e16d53d743b210eb172e7f2c6676bd (patch)
tree1ad76209bf4d32d299fb16d2726893d2e6495467 /clerk
parent58fed2963639414357715a5d2cebdad74c995f3d (diff)
downloadperl-app-clerk-5ff50618b3e16d53d743b210eb172e7f2c6676bd.tar.gz
perl-app-clerk-5ff50618b3e16d53d743b210eb172e7f2c6676bd.tar.xz
dont die if mpd goes down during runtime
Diffstat (limited to 'clerk')
-rwxr-xr-xclerk5
1 files changed, 4 insertions, 1 deletions
diff --git a/clerk b/clerk
index 8902688..da61b48 100755
--- a/clerk
+++ b/clerk
@@ -13,6 +13,7 @@ use File::Basename;
use File::Path qw(make_path);
use File::Slurper 'read_binary';
use File::stat;
+use Try::Tiny;
use FindBin '$Bin';
use FindBin '$Script';
use Getopt::Std;
@@ -366,7 +367,9 @@ sub list_db_entries_for {
elsif ($backend eq "fzf") {
for (;;) {
my $out = backend_call($output, $fields{$kind});
- do_action($out, "tracks", "ignore");
+ try {
+ do_action($out, "tracks", "ignore");
+ } catch { last; }
}
}