X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FUtil.pm;h=cd6297a83f1fe3e6b623848dcc9edb8ec2851b3d;hp=edcd193889de24c4525c3bd084e7e04af549ff24;hb=637d4f17e6965551c032a3115dcbbb4d8e01fbf5;hpb=4bc73e4760435ee34876be28bf4522e9e7eaf519 diff --git a/lib/Mouse/Util.pm b/lib/Mouse/Util.pm index edcd193..cd6297a 100644 --- a/lib/Mouse/Util.pm +++ b/lib/Mouse/Util.pm @@ -244,12 +244,12 @@ sub _try_load_one_class { return undef if $is_class_loaded_cache{$class} ||= is_class_loaded($class); - my $file = $class . '.pm'; - $file =~ s{::}{/}g; + $class =~ s{::}{/}g; + $class .= '.pm'; return do { local $@; - eval { require($file) }; + eval { require $class }; $@; }; } @@ -260,7 +260,7 @@ sub load_class { my $e = _try_load_one_class($class); Carp::confess "Could not load class ($class) because : $e" if $e; - return 1; + return $class; } sub is_class_loaded;