[Rt-commit] rt branch, 4.0/sync-with-symbol-global-name, created. rt-4.0.10-89-gae3c499

[Ruslan Zakirov]

The branch, 4.0/sync-with-symbol-global-name has been created
        at  ae3c499aff4985ab1c40c273e8caf879a2c867ae (commit)

- Log -----------------------------------------------------------------
commit ae3c499aff4985ab1c40c273e8caf879a2c867ae
Author: Ruslan Zakirov <ruz at bestpractical.com>
Date:   Mon Oct 22 18:40:48 2012 +0400

    fix nesting when we lookup in stashes by reference
    
    it worked fine for RT as we look into RT::, but not deeper
    
    we don't use anything deeper, but it would be good to keep
    code in sync with Symbol-Global-Name extension which was
    updated and released to CPAN.

diff --git a/lib/RT/Config.pm b/lib/RT/Config.pm
index 11d337b..e06945a 100644
--- a/lib/RT/Config.pm
+++ b/lib/RT/Config.pm
@@ -1198,7 +1198,7 @@ sub SetFromConfig {
             # if the entry has a trailing '::' then
             # it is a link to another name space
             if ( substr( $k, -2 ) eq '::') {
-                $name = $self->__GetNameByRef( $ref, $k );
+                $name = $self->__GetNameByRef( $ref, $pack eq 'main::'? $k : $pack.$k );
                 return $name if $name;
             }
 

-----------------------------------------------------------------------