From 0fd42abd877336dbfddd41ad485b227128f8898e Mon Sep 17 00:00:00 2001
From: Andrew Bauer <knnniggett@users.sourceforge.net>
Date: Fri, 17 Jun 2016 14:12:14 -0500
Subject: [PATCH] fixes syntax error reported on some (older) Perls

---
 onvif/proxy/lib/WSDiscovery10/Types/ProbeType.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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\"";
   }