From c153fae3d8987501f17bc5e472120636ff50e51d Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Tue, 28 Apr 2015 20:57:18 -0700
Subject: [PATCH] Suppress warnings when gpg doesn't output anything
 http://virtualmin.com/node/36979

---
 webmin/gnupg-lib.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/webmin/gnupg-lib.pl b/webmin/gnupg-lib.pl
index 42d13d349..b0df84e55 100755
--- a/webmin/gnupg-lib.pl
+++ b/webmin/gnupg-lib.pl
@@ -298,7 +298,7 @@ else {
 #close($fh);
 #local $out = $wait_for_input;
 &clean_language();
-my $out = &backquote_command("$cmd 2>&1 </dev/null");
+my $out = &backquote_command("$cmd 2>&1 </dev/null") || "";
 &reset_environment();
 unlink($datafile);
 unlink($sigfile) if ($sigfile);
@@ -416,7 +416,7 @@ sub fetch_gpg_key
 my ($id) = @_;
 my $out = &backquote_command(
 	"$gpgpath --keyserver ".quotemeta($config{'keyserver'}).
-	" --recv-key ".quotemeta($id)." 2>&1 </dev/null");
+	" --recv-key ".quotemeta($id)." 2>&1 </dev/null") || "";
 my @keys = &list_keys();
 my ($key) = grep { lc($_->{'key'}) eq lc($id) } @keys;
 if ($?) {