[Rt-commit] r6347 - in rt/branches/3.7-EXPERIMENTAL: .

[schwern at bestpractical.com]

Author: schwern
Date: Wed Nov  1 18:56:56 2006
New Revision: 6347

Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)
   rt/branches/3.7-EXPERIMENTAL/lib/RT/Config.pm

Log:
 r25008 at windhund:  root | 2006-11-01 18:56:21 -0500
 When running RT under the debugger a _< symbol will be in main.  This
 symbol has no value and will cause RT::Config->__GetNameByRef to error
 out trying to dereference an undefined value.  So we skip any undefined
 entries.
 
 This allows the RT tests to be run in the debugger.


Modified: rt/branches/3.7-EXPERIMENTAL/lib/RT/Config.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/lib/RT/Config.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL/lib/RT/Config.pm	Wed Nov  1 18:56:56 2006
@@ -365,6 +365,7 @@
     my $ref = shift;
     my $pack = shift || 'main::';
     $pack .= '::' unless $pack =~ /::$/;
+
     my %ref_sym = (
         SCALAR => '$',
         ARRAY => '@',
@@ -389,6 +390,7 @@
         # SCALAR, ARRAY... and other types with
         # the same name
         my $entry = ${$pack}{$k};
+        next unless $entry;
 
         # get entry for type we are looking for
         my $entry_ref = *{$entry}{ref($ref)};