implemented correct GetParameterValues which unrolls ParameterNames into xsd:strings

[perl-cwmp.git] / lib / CWMP / Tree.pm

diff --git a/lib/CWMP/Tree.pm b/lib/CWMP/Tree.pm
index 3a512b3..67542a3 100644 (file)
--- a/lib/CWMP/Tree.pm
+++ b/lib/CWMP/Tree.pm
@@ -67,6 +67,9 @@ sub name2perl {
 
        warn "## $s ", dump( $stat ), $/ if $self->debug;
 
+       # FIXME if it ends with a dot (array values), remove it
+       $s =~ s/\.$//;
+
        return $s;
 }