Fix XS loading code
gfx [Thu, 3 Dec 2009 03:58:31 +0000 (12:58 +0900)]
lib/Mouse/Util.pm

index c3f1f39..783f24a 100644 (file)
@@ -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 $@;
     }