diff options
author | Rasmus Steinke <rasi@xssn.at> | 2017-08-08 18:55:38 +0200 |
---|---|---|
committer | Rasmus Steinke <rasi@xssn.at> | 2017-08-08 18:55:38 +0200 |
commit | 5ff50618b3e16d53d743b210eb172e7f2c6676bd (patch) | |
tree | 1ad76209bf4d32d299fb16d2726893d2e6495467 /clerk | |
parent | 58fed2963639414357715a5d2cebdad74c995f3d (diff) | |
download | perl-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-x | clerk | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -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; } } } |