Glob paths derived from mutt -Q output in smime_keys.pl. Patch by

Fabrice Bellet and Miroslav Lichvar (closes #3020).

diff --git a/smime_keys.pl b/smime_keys.pl
index 38b29dcd04b12c7f989200dde9319f7f0d55b0e7..3c51bc955da449eb60b6dc6acdb5d0fdf69a3bf6 100755 (executable)
--- a/smime_keys.pl
+++ b/smime_keys.pl
@@ -20,6 +20,7 @@
 
 use strict;
 use File::Copy;
+use File::Glob ':glob';
 
 umask 077;
 
@@ -225,7 +226,7 @@ You must set this in your mutt config file. See contrib/smime.rc for an example.
 EOF
 #'
 
-    $answer =~ /\"(.*?)\"/ and return $1;
+    $answer =~ /\"(.*?)\"/ and return bsd_glob($1, GLOB_TILDE | GLOB_NOCHECK);
     
     $answer =~ /^Mutt (.*?) / and die<<EOF;
 This script requires mutt 1.5.0 or later. You are using mutt $1.