From 874f87022ef0e069926124585e615c9749e8803c Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Fri, 20 Feb 2015 17:15:59 +0000 Subject: [PATCH] LP#1410369: fix (old) thinko in A/T environment builder If a label is set for a piece of the environment, e.g., [qw/foo bar/], ensure that we end up with $self->environment->{foo}{bar}, not $self->environment->{foo}{bar}{bar} Signed-off-by: Galen Charlton Signed-off-by: Kathy Lussier --- Open-ILS/src/perlmods/lib/OpenILS/Application/Trigger/Event.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Trigger/Event.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Trigger/Event.pm index bcb7558751..91c7994109 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Trigger/Event.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Trigger/Event.pm @@ -664,7 +664,7 @@ sub _object_by_path { if ($label && @$label) { my $node = $self->environment; - my $i = 0; my $max = scalar(@$label); + my $i = 0; my $max = scalar(@$label) - 1; for (; $i < $max; $i++) { my $part = $$label[$i]; $$node{$part} ||= {}; -- 2.43.2