branch master updated: services: pcscd: Cleanup socket when started.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

bricewge pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 4bed848  services: pcscd: Cleanup socket when started.
4bed848 is described below

commit 4bed8486d4c0a4ff142903b8bc1584ce84767355
Author: Brice Waegeneire <brice@waegenei.re>
AuthorDate: Sat Jun 12 16:46:00 2021 +0200

    services: pcscd: Cleanup socket when started.
    
    Otherwise when pcscd doesn't terminate properly (ie. receive a SIGKILL),
    it won't start again because of it's socket already existing.
    
    * gnu/services/security-token.scm (pcscd-shepherd-service)[start]:
    Remove existing socket file.
---
 gnu/services/security-token.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/gnu/services/security-token.scm b/gnu/services/security-token.scm
index ec26006..0cbb591 100644
--- a/gnu/services/security-token.scm
+++ b/gnu/services/security-token.scm
@@ -1,6 +1,7 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2018 Arun Isaac <arunisaac@systemreboot.net>
 ;;; Copyright © 2020 Tobias Geerinckx-Rice <me@tobias.gr>
+;;; Copyright © 2021 Brice Waegeneire <brice@waegenei.re>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -57,6 +58,9 @@
         (requirement '(syslogd))
         (modules '((gnu build shepherd)))
         (start #~(lambda _
+                   (let ((socket "/run/pcscd/pcscd.comm"))
+                     (when (file-exists? socket)
+                       (delete-file socket)))
                    (invoke #$(file-append pcsc-lite "/sbin/pcscd"))
                    (call-with-input-file "/run/pcscd/pcscd.pid" read)))
         (stop #~(make-kill-destructor)))))))