From 869e3946cb7481f25fc973ef9a7287391876ac9e Mon Sep 17 00:00:00 2001
From: Guillaume Rousse <guillaume.rousse@renater.fr>
Date: Fri, 3 Nov 2017 15:57:46 +0100
Subject: [PATCH] more search scoping

---
 lib/IdPAccountManager/SAMLMetadata.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/IdPAccountManager/SAMLMetadata.pm b/lib/IdPAccountManager/SAMLMetadata.pm
index d3a8073..996d571 100644
--- a/lib/IdPAccountManager/SAMLMetadata.pm
+++ b/lib/IdPAccountManager/SAMLMetadata.pm
@@ -59,7 +59,7 @@ sub parse {
                 $data->{type} = 'idp';
 
                 foreach my $sso (
-                    $child->getElementsByLocalName('SingleSignOnService'))
+                    $child->getChildrenByLocalName('SingleSignOnService'))
                 {
 
                     ## On ne prend en compte que les endpoints prévus
@@ -87,7 +87,7 @@ sub parse {
                 ## We also check the index to select the ACS that has the lower index
                 my ($index_saml1, $index_saml2);
                 foreach my $sso (
-                    $child->getElementsByLocalName('AssertionConsumerService')
+                    $child->getChildrenByLocalName('AssertionConsumerService')
                 ) {
 
                     ## Extracting endpoints information
@@ -120,7 +120,7 @@ sub parse {
             } elsif ($child->localname() eq 'Extensions') {
 
                 foreach my $registrationinfo (
-                    $child->getElementsByLocalName('RegistrationInfo')
+                    $child->getChildrenByLocalName('RegistrationInfo')
                 ) {
 
                     $data->{registration_info}->{registration_authority} =
@@ -128,7 +128,7 @@ sub parse {
                     $data->{registration_info}->{registration_instant} =
                       $registrationinfo->getAttribute('registrationInstant');
                     foreach my $policy (
-                        $registrationinfo->getElementsByLocalName(
+                        $registrationinfo->getChildrenByLocalName(
                             'RegistrationPolicy')
                     ) {
                         my $lang = $policy->getAttribute('lang');
-- 
GitLab