ZaneYork
/
zoneminder
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge pull request #1539 from knnniggett/onvifProbeType 

zmonvif-probe - fixes syntax error reported on some (older) Perls
This commit is contained in:
Andrew Bauer 2016-06-18 11:59:05 -05:00 committed by GitHub
parent 9dd5e34dc8 0fd42abd87
commit c0b357ec59
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
onvif/proxy/lib/WSDiscovery10/Types/ProbeType.pm
View File

@ -89,10 +89,11 @@ sub serialize()
my $ident = ${ $_[0] }; my $ident = ${ $_[0] };
my $option_ref = $_[1]; my $option_ref = $_[1];
my $attr_str = ""; 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\""; $attr_str .= " $attr=\"$value\"";
} }