mirror of git://git.gnupg.org/gnupg.git
tests,w32: Avoid using 'glob'.
* tests/openpgp/setup.scm: Avoid 'glob' which is not available on mingw. Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
parent
fbc83c0cdd
commit
949e70115e
|
@ -127,8 +127,7 @@
|
||||||
(setenv "GNUPGHOME" (getcwd) #t)
|
(setenv "GNUPGHOME" (getcwd) #t)
|
||||||
(create-gpghome)
|
(create-gpghome)
|
||||||
(kill-agent)
|
(kill-agent)
|
||||||
(call-check `(,(tool 'gpgtar) --create --output ,(cadr *args*)
|
(call-check `(,(tool 'gpgtar) --create --output ,(cadr *args*) "."))))
|
||||||
,@(glob "*")))))
|
|
||||||
((member "--unpack-tarball" *args*)
|
((member "--unpack-tarball" *args*)
|
||||||
(call-check `(,(tool 'gpgtar) --extract --directory=. ,(cadr *args*)))
|
(call-check `(,(tool 'gpgtar) --extract --directory=. ,(cadr *args*)))
|
||||||
(start-agent))
|
(start-agent))
|
||||||
|
|
Loading…
Reference in New Issue