From: gfx <gfuji@cpan.org>
Date: Thu, 3 Dec 2009 03:58:31 +0000 (+0900)
Subject: Fix XS loading code
X-Git-Tag: 0.40_09~6
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=923a04ba4adf1b79269e749b6bafba309be6335a;p=gitmo%2FMouse.git

Fix XS loading code
---

diff --git a/lib/Mouse/Util.pm b/lib/Mouse/Util.pm
index c3f1f39..783f24a 100644
--- a/lib/Mouse/Util.pm
+++ b/lib/Mouse/Util.pm
@@ -52,9 +52,9 @@ BEGIN{
         $xs = eval sprintf("#line %d %s\n", __LINE__, $hack_mouse_file) . q{
             require XSLoader;
             XSLoader::load('Mouse', $VERSION);
-
-            *Mouse::Meta::Method::Constructor::XS::meta = \&meta;
-            *Mouse::Meta::Method::Destructor::XS::meta  = \&meta;
+            Mouse::Util->import({ into => 'Mouse::Meta::Method::Constructor::XS' }, ':meta');
+            Mouse::Util->import({ into => 'Mouse::Meta::Method::Destructor::XS'  }, ':meta');
+            return 1;
         };
         #warn $@ if $@;
     }