Merge pull request #299 from krkeegan/scene_builder

Scene_Builder: Dereference Hashes for Backwards Compatibility in Perl
hollie · Oct 25, 2013 · 3a12b90 · 3a12b90
2 parents c6f9ff2 + 7842ee0
commit 3a12b90
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/read_table_A.pl b/lib/read_table_A.pl
@@ -1085,10 +1085,10 @@ sub read_table_finish_A {
 
         #Loop through the controller hash
         if (exists $scene_build_controllers{$scene}){
-	        foreach my $scene_controller (keys $scene_build_controllers{$scene}) {
+	        foreach my $scene_controller (keys %{$scene_build_controllers{$scene}}) {
 	            if ($objects{$scene_controller}) {
 	            	#Make a link to each responder in the responder hash
-	                while (my ($scene_responder, $responder_data) = each($scene_build_responders{$scene})) {
+	                while (my ($scene_responder, $responder_data) = each(%{$scene_build_responders{$scene}})) {
 	                    my ($on_level, $ramp_rate) = split(',', $responder_data);
 
 	                    if (($objects{$scene_responder}) and ($scene_responder ne $scene_controller)) {