From 125cc17f61a5f382164e3364850c9e4ef0645d3b Mon Sep 17 00:00:00 2001 From: Rasmus Steinke Date: Sat, 12 Aug 2017 15:27:04 +0200 Subject: close mpd socket properly --- clerk | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'clerk') diff --git a/clerk b/clerk index e1d4d18..582afde 100755 --- a/clerk +++ b/clerk @@ -228,6 +228,8 @@ sub random { my @queue_cmd = ('tmux', 'findw', '-t', 'music', 'queue'); my @action_items = ("Album\n", "Tracks\n", "Settings\n"); my $action = backend_call(\@action_items, "1,2,3", "cancel"); + try { $mpd->close(); }; + $mpd->{socket}->close; if ($action eq "Album\n") { $mpd->clear(); my @album_artists = $mpd->list('albumartist'); @@ -268,6 +270,8 @@ sub do_action { my ($in, $context) = @_; my @action_items = ("Add\n", "Replace\n"); my $action = backend_call(\@action_items); + try { $mpd->close(); }; + $mpd->{socket}->close; if ($action eq "Replace\n") { $mpd->clear(); } -- cgit v1.2.3-24-g4f1b