From: Ivan Kohler <ivan@freeside.biz>
Date: Thu, 5 Sep 2013 05:27:40 +0000 (-0700)
Subject: from rt branch perl-5.18-compat, http://www.gossamer-threads.com/lists/rt/commit... 
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=9da190548d79840cbf04c1e2b65dff386ceb2963;p=freeside.git

from rt branch perl-5.18-compat, gossamer-threads.com/lists/rt/commit/117511
---

diff --git a/rt/lib/RT/Config.pm b/rt/lib/RT/Config.pm
index 0c04b9191..ee426bfa8 100644
--- a/rt/lib/RT/Config.pm
+++ b/rt/lib/RT/Config.pm
@@ -1231,6 +1231,7 @@ sub SetFromConfig {
             $ref_type = 'SCALAR' if $ref_type eq 'REF';
 
             my $entry_ref = *{$entry}{ $ref_type };
+            next if ref $entry_ref && ref $entry_ref ne ref $ref;
             next unless $entry_ref;
 
             # if references are equal then we've found