From: Daisuke Maki Date: Wed, 3 Dec 2008 08:26:28 +0000 (+0000) Subject: put a hack around in there X-Git-Tag: 0.19~136^2~51 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3f8f481dfc754a3ff44205c9f0747dc861705ac1;p=gitmo%2FMouse.git put a hack around in there --- diff --git a/lib/Mouse/Util.pm b/lib/Mouse/Util.pm index 77cbb2a..9d87d5a 100644 --- a/lib/Mouse/Util.pm +++ b/lib/Mouse/Util.pm @@ -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