From: gfx <gfuji@cpan.org>
Date: Mon, 17 Aug 2009 04:36:07 +0000 (+0900)
Subject: Tiny tweaks in Package.xs
X-Git-Tag: 0.92_01~22
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=29d0da04e79d02db647c932668fa35bfa8ad6e69;p=gitmo%2FClass-MOP.git

Tiny tweaks in Package.xs
---

diff --git a/xs/Package.xs b/xs/Package.xs
index 4e7087d..1086e21 100644
--- a/xs/Package.xs
+++ b/xs/Package.xs
@@ -98,6 +98,8 @@ mop_deconstruct_variable_name(pTHX_ SV* const variable,
 static GV*
 mop_get_gv(pTHX_ SV* const self, svtype const type, const char* const var_name, I32 const var_name_len, I32 const flags){
     SV* package_name;
+    STRLEN len;
+    const char* pv;
 
     if(!(flags & ~GV_NOADD_MASK)){ /* for shortcut fetching */
         SV* const ns = mop_call0(aTHX_ self, mop_namespace);
@@ -117,7 +119,9 @@ mop_get_gv(pTHX_ SV* const self, svtype const type, const char* const var_name,
         croak("name() did not return a defined value");
     }
 
-    return gv_fetchpv(Perl_form(aTHX_ "%"SVf"::%s", package_name, var_name), flags, type);
+    pv = SvPV_const(package_name, len);
+
+    return gv_fetchpvn_flags(Perl_form(aTHX_ "%s::%s", pv, var_name), (len + var_name_len + 2), flags, type);
 }
 
 static SV*