diff --git a/onvif/proxy/lib/WSDiscovery10/Types/ProbeType.pm b/onvif/proxy/lib/WSDiscovery10/Types/ProbeType.pm index 8d7e9e7ca..4e3452db2 100644 --- a/onvif/proxy/lib/WSDiscovery10/Types/ProbeType.pm +++ b/onvif/proxy/lib/WSDiscovery10/Types/ProbeType.pm @@ -89,10 +89,11 @@ sub serialize() my $ident = ${ $_[0] }; my $option_ref = $_[1]; my $attr_str = ""; + my %attr_hash = %{$Attribs_of{$ident}}; - foreach my $attr (keys %{$Attribs_of{$ident}}) + foreach my $attr (keys %attr_hash) { - my $value = %{$Attribs_of{$ident}}{$attr}; + my $value = $attr_hash{$attr}; $attr_str .= " $attr=\"$value\""; }