Fix warnings

diff --git a/webmin/gnupg-lib.pl b/webmin/gnupg-lib.pl
index 372a667..fa23895 100755 (executable)
--- a/webmin/gnupg-lib.pl
+++ b/webmin/gnupg-lib.pl
@@ -32,7 +32,8 @@ while(<GPG>) {
                             'name' => $4 ? [ $4 ] : [ ],
                             'email' => $5 ? [ $5 ] : $4 ? [ "" ] : [ ],
                             'index' => scalar(@rv) };
-               if ($k->{'name'}->[0] =~ /\[(expires|expired):\s+(\S+)\]/) {
+               if ($k->{'name'}->[0] &&
+                   $k->{'name'}->[0] =~ /\[(expires|expired):\s+(\S+)\]/) {
                        # Expiry date, the actual name
                        $k->{'expires'} = $2;
                        $k->{'expired'} = 1 if ($1 eq 'expired');