use new CWMP::Parser

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

diff --git a/lib/CWMP/Request.pm b/lib/CWMP/Request.pm
index 0cea935..07b93f4 100644 (file)
--- a/lib/CWMP/Request.pm
+++ b/lib/CWMP/Request.pm
@@ -40,7 +40,7 @@ our $rules =  [
                                next if $name eq '_content';
                                my $key = $name;
                                $key =~ s/^\w+://;      # stip namespace
-                               $state->{DeviceID}->{ $key } = _tag( $tag_hash, $name, '_content' );
+                               $state->{DeviceId}->{ $key } = _tag( $tag_hash, $name, '_content' );
                        }
                },
                'EventStruct' => sub {