LP1340982: Ignore both 'comment' and '#comment' nodes in Settings Parse.

[opensrf-equinox.git] / src / perl / lib / OpenSRF / Utils / SettingsParser.pm

diff --git a/src/perl/lib/OpenSRF/Utils/SettingsParser.pm b/src/perl/lib/OpenSRF/Utils/SettingsParser.pm
index 8d5e5fe..6b84572 100644 (file)
--- a/src/perl/lib/OpenSRF/Utils/SettingsParser.pm
+++ b/src/perl/lib/OpenSRF/Utils/SettingsParser.pm
@@ -126,7 +126,7 @@ sub XML2perl {
                        return _check_for_int($kids[0]->textContent);
        } else {
                for my $kid ( @kids ) {
-                       next if ($kid->nodeName eq 'comment');
+                       next if ($kid->nodeName =~ /^#?comment$/);
                        if (exists $output{$kid->nodeName}) {
                                if (ref $output{$kid->nodeName} ne 'ARRAY') {
                                        $output{$kid->nodeName} = [$output{$kid->nodeName}, XML2perl($kid)];