put a hack around in there
Daisuke Maki [Wed, 3 Dec 2008 08:26:28 +0000 (08:26 +0000)]
lib/Mouse/Util.pm

index 77cbb2a..9d87d5a 100644 (file)
@@ -20,7 +20,9 @@ our %EXPORT_TAGS = (
 # We only have to do this nastiness if we haven't loaded XS version of
 # Mouse.pm, so check if we're running under PurePerl or not
 BEGIN {
-    if ($Mouse::PurePerl) {
+    # Checking for undefinedness will ensure that our functions are
+    # properly loaded without loading Mouse, but this is kind of ugly
+    if ($Mouse::PurePerl || ! defined $Mouse::PurePerl) {
         my %dependencies = (
             'Scalar::Util' => {
     #       VVVVV   CODE TAKEN FROM SCALAR::UTIL   VVVVV