| Subject: | Default to 'signing' when no use attribute for KeyDescriptor of the IdP SAML |
This is a fix for warning
"Use of uninitialized value $use in hash element at
lib/perl5/Net/SAML2/IdP.pm line 109"
when the use attribute is not provided for the KeyDescriptor of the IdP
SAML.
In file Net/SAML2/IdP.pm:
for my $key ($xpath-
Show quoted text
>findnodes('//md:EntityDescriptor/md:IDPSSODescriptor/md:KeyDescriptor')
) {
- my $use = $key->getAttribute('use');
+ my $use = $key->getAttribute('use') || 'signing';
my ($text) = $key-
Show quoted text>findvalue('ds:KeyInfo/ds:X509Data/ds:X509Certificate') =~ /^\s*
(.+?)\s*$/s;
I haven't yet tested how the SAML process works without this, though.