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

 - make ParameterInfo flat structure, and not HoH
 - version bump [0.12]

git-svn-id: https://perl-cwmp.googlecode.com/svn/trunk@213 836a5e1a-633d-0410-964b-294494ad4392

diff --git a/Makefile.PL b/Makefile.PL
index 7e96075..b317c5f 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -3,7 +3,7 @@ use lib './lib';
 use inc::Module::Install;
 
 name           'CWMP';
-version                '0.11';
+version                '0.12';
 license                'GPL';
 requires       'Net::Server';
 requires       'HTTP::Daemon';

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';