aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorFredrik Salomonsson <plattfot@gmail.com>2020-05-11 17:13:41 -0700
committerFredrik Salomonsson <plattfot@gmail.com>2020-05-11 17:13:41 -0700
commite9c0fa906ecc09b814f88c7ab7d6412fefcb2dcd (patch)
tree1c8a9ea62474adacef07a47052cec8f4fe4101cd
parentec27a186283aa2d9ef52ae7ccb24c39144811c1a (diff)
downloadpinentry-rofi-e9c0fa906ecc09b814f88c7ab7d6412fefcb2dcd.tar.gz
Fix crash when rofi is aborted (#11)1.0.2
-rwxr-xr-xpinentry-rofi.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/pinentry-rofi.scm b/pinentry-rofi.scm
index 2d6e9ad..d016e04 100755
--- a/pinentry-rofi.scm
+++ b/pinentry-rofi.scm
@@ -353,7 +353,7 @@ Return the input from the user if succeeded else #f."
#:message (compose-message pinentry)
#:visibility (pinentry-visibility pinentry)
#:env `(("DISPLAY" . ,(pinentry-display pinentry))))))
- (if (not (string-empty? (string-trim-both pass)))
+ (if (and pass (not (string-empty? (string-trim-both pass))))
(begin
(format #t "D ~a" pass)
(force-output)