From: Galen Charlton <gmc@esilibrary.com>
Date: Fri, 20 Feb 2015 17:15:59 +0000 (+0000)
Subject: LP#1410369: fix (old) thinko in A/T environment builder
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=refs%2Fheads%2Fcollab%2Fgmcharlt%2Flp1410369_message_center;p=working%2FEvergreen.git

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 <gmc@esilibrary.com>
---

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} ||= {};