Add another sanity check in the sshkey checking code.

40109472 · Leigh B Stoller · 52c411a1 · 40109472
Commit 40109472 authored Aug 20, 2015 by Leigh B Stoller
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 0 deletions

protogeni/lib/GeniCM.pm.in protogeni/lib/GeniCM.pm.in +2 -0

No files found.
--- a/protogeni/lib/GeniCM.pm.in
+++ b/protogeni/lib/GeniCM.pm.in
@@ -6625,6 +6625,8 @@ sub AddKeys($$$)
    #
    if (exists($keys->[0]->{'urn'}) || exists($keys->[0]->{'login'})) {
 	foreach my $ref (@{ $keys }) {
+	    goto bad
+		if (ref($ref) ne "HASH");
 	    goto bad
 		if (! (exists($ref->{'urn'}) || exists($ref->{'login'})));