Changeset 18369 for lang/perl/RPC-XML-Parser-LibXML/trunk/lib/RPC/XML/Parser/LibXML.pm

Timestamp:

08/28/08 10:21:05 (4 months ago)

Author:

miyagawa

Message:

fix a bug when findnodes() return null node.

Files:

• lang/perl/RPC-XML-Parser-LibXML/trunk/lib/RPC/XML/Parser/LibXML.pm (modified) (1 diff)

lang/perl/RPC-XML-Parser-LibXML/trunk/lib/RPC/XML/Parser/LibXML.pm

@@ -53 +53 @@
     my @args;
 
-    for my $node (@nodes) {
+    for my $node (grep defined, @nodes) {
         my $nodename = $node->nodeName;
         my $val = $node->textContent;