[Rt-commit] rt branch, 4.0/global-vars-name-lookup, created. rt-4.0.10-89-g8d9fe38

[Ruslan Zakirov]

The branch, 4.0/global-vars-name-lookup has been created
        at  8d9fe3881ff51791d946441caff504b91a0432d3 (commit)

- Log -----------------------------------------------------------------
commit 8d9fe3881ff51791d946441caff504b91a0432d3
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

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;
             }
 

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