/[cwmp]/google/trunk/lib/CWMP/Request.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /google/trunk/lib/CWMP/Request.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 213 by dpavlin, Wed Nov 14 21:55:24 2007 UTC revision 214 by dpavlin, Sun Nov 18 17:49:51 2007 UTC
# Line 97  push @$rules, Line 97  push @$rules,
97    
98                          confess "need state" unless ( $state ); # don't remove!                          confess "need state" unless ( $state ); # don't remove!
99    
100    =for obsolete
101    
102                          # XXX dragons ahead: convert name to tree rewriting it into perl                          # XXX dragons ahead: convert name to tree rewriting it into perl
103                          my $s = '$state->{ParameterInfo}->' . $tree->name2perl( $name ) . "->{writable} = $writable;";                          my $s = '$state->{ParameterInfo}->' . $tree->name2perl( $name ) . "->{writable} = $writable;";
104                          eval "$s";                          eval "$s";
105                          confess "can't eval $s : $@" if ($@);                          confess "can't eval $s : $@" if ($@);
106    
107    =cut
108    
109                            $state->{ParameterInfo}->{$name} = $writable;
110    
111                          #warn "## state = dump( $state ), "\n";                          #warn "## state = dump( $state ), "\n";
112    
113                          $state->{_trigger} = 'GetParameterNamesResponse';                          $state->{_trigger} = 'GetParameterNamesResponse';
Legend:
Removed from v.213  
changed lines
  Added in v.214
  ViewVC Help
Powered by ViewVC 1.1.26