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

fixes syntax error reported on some (older) Perls

This commit is contained in:
Andrew Bauer 2016-06-17 14:12:14 -05:00
parent d0e08b32f5
commit 0fd42abd87
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\"";
} }