[Rt-commit] r12779 - in rt/branches/3.8-TESTING: .

[jesse at bestpractical.com]

Author: jesse
Date: Mon Jun  2 08:25:08 2008
New Revision: 12779

Modified:
   rt/branches/3.8-TESTING/   (props changed)
   rt/branches/3.8-TESTING/lib/RT/Config.pm

Log:
 r32075 at 109:  jesse | 2008-06-02 08:24:41 -0400
 * Fix config file loader to work on Perl 5.10


Modified: rt/branches/3.8-TESTING/lib/RT/Config.pm
==============================================================================
--- rt/branches/3.8-TESTING/lib/RT/Config.pm	(original)
+++ rt/branches/3.8-TESTING/lib/RT/Config.pm	Mon Jun  2 08:25:08 2008
@@ -579,6 +579,8 @@
             next unless $entry;
 
             # get entry for type we are looking for
+            # XXX skip scalar references. Otherwie 5.10 goes boom
+            return if ref($entry) eq 'SCALAR';  
             my $entry_ref = *{$entry}{ ref($ref) };
             next unless $entry_ref;