From 88221aab94693778dcf8173ef2bc55946c95f710 Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Wed, 4 Sep 2013 22:27:40 -0700 Subject: [PATCH] from rt branch perl-5.18-compat, http://www.gossamer-threads.com/lists/rt/commit/117511 --- rt/lib/RT/Config.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/rt/lib/RT/Config.pm b/rt/lib/RT/Config.pm index 07f4aafa8..b97802f7a 100644 --- a/rt/lib/RT/Config.pm +++ b/rt/lib/RT/Config.pm @@ -1233,6 +1233,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 -- 2.11.0