r240@brr: dpavlin | 2007-11-18 18:49:33 +0100

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

diff --git a/lib/CWMP/Request.pm b/lib/CWMP/Request.pm
index b85892d..8de34de 100644 (file)
--- a/lib/CWMP/Request.pm
+++ b/lib/CWMP/Request.pm
@@ -97,11 +97,17 @@ push @$rules,
 
                        confess "need state" unless ( $state ); # don't remove!
 
+=for obsolete
+
                        # XXX dragons ahead: convert name to tree rewriting it into perl
                        my $s = '$state->{ParameterInfo}->' . $tree->name2perl( $name ) . "->{writable} = $writable;";
                        eval "$s";
                        confess "can't eval $s : $@" if ($@);
 
+=cut
+
+                       $state->{ParameterInfo}->{$name} = $writable;
+
                        #warn "## state = dump( $state ), "\n";
 
                        $state->{_trigger} = 'GetParameterNamesResponse';