From 7842ee0365ac39f4d85990ef18ff50b9b9b56635 Mon Sep 17 00:00:00 2001 From: KRKeegan Date: Fri, 25 Oct 2013 13:24:56 -0700 Subject: [PATCH] Scene_Builder: Dereference Hashes for Backwards Compatibility in Perl http://stackoverflow.com/questions/10979486/perl-incompatibility-issue-with-each-in-a-hash-of-hashes-5-14-5-8-8 as discovered by @CityDweller --- lib/read_table_A.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/read_table_A.pl b/lib/read_table_A.pl index f3240d200..38cb9aed1 100644 --- 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)) {