X-Git-Url: http://git.rot13.org/?p=perl-cwmp.git;a=blobdiff_plain;f=lib%2FCWMP%2FRequest.pm;h=8de34de67fd9c32778d3cb0b15249f088c4dcb99;hp=b85892d0bd27625b73332758c585a5fe3f3e5a66;hb=50ef368d348a07884b2a3d0a91bc5379a6a06df2;hpb=7f358e7af381390ec9f4c727a0a9e8aac94f8d59

diff --git a/lib/CWMP/Request.pm b/lib/CWMP/Request.pm
index b85892d..8de34de 100644
--- 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';