No reason to do a string eval here
Shawn M Moore [Sat, 7 Mar 2009 00:14:22 +0000 (00:14 +0000)]
lib/Mouse/Util.pm

index 1bb4d41..53af4cf 100644 (file)
@@ -20,7 +20,7 @@ BEGIN {
     } else {
         my $loaded = do {
             local $SIG{__DIE__} = 'DEFAULT';
-            eval "require MRO::Compat; 1";
+            eval { require MRO::Compat; 1 };
         };
         if ($loaded) {
             $impl = \&mro::get_linear_isa;