| Subject: | Check for GPG fails when GPG isn't present |
The current check in place for GPG in t/02-gpg.t will fail the test
where the gpg binary is not present or not available.
I've included a patch in this report for this issue that should work
around it and skip the test properly - it's not perfect but works.
| Subject: | 02-gpg-fixed.patch |
--- 02-gpg.t 2010-06-03 16:52:00.000000000 +0100
+++ 02-gpg.t 2010-08-19 13:09:22.000000000 +0100
@@ -7,9 +7,9 @@ use Test::More;
BEGIN { use FindBin qw($Bin); use lib $Bin; };
# Check if there's a sane "gpg" available
-my $gpg_version_unused = `gpg --version`;
-my $ret = $CHILD_ERROR;
-if ($ret == -1) {
+my $gpg_version_unused;
+eval{ $gpg_version_unused = `gpg --version`; };
+if ($CHILD_ERROR == -1) {
plan skip_all => "No working 'gpg' installation available";
}
else {