[Rt-commit] rt branch, 4.0/sync-with-symbol-global-name, created. rt-4.0.10-89-gae3c499
Ruslan Zakirov
ruz at bestpractical.com
Thu Mar 14 12:29:48 EDT 2013
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;
}
-----------------------------------------------------------------------
More information about the Rt-commit
mailing list