X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FModule%2FMetadata.pm;h=6bfe11c6ac670e25fa6d196bfb1a1a9eb8d95518;hb=a48911904f968b5f66cbcc1bfe3731939f95f338;hp=fe027b799e05fdb2aa415c710c83f6fb1798ee47;hpb=3db2701705c9f302b3d08e721ff2a907c07b4f90;p=p5sagit%2FModule-Metadata.git

diff --git a/lib/Module/Metadata.pm b/lib/Module/Metadata.pm
index fe027b7..6bfe11c 100644
--- a/lib/Module/Metadata.pm
+++ b/lib/Module/Metadata.pm
@@ -21,7 +21,7 @@ BEGIN {
   if ($INC{'Log/Contextual.pm'}) {
     Log::Contextual->import('log_info');
   } else {
-    *log_info = sub { warn @_ };
+    *log_info = sub (&) { warn $_[0]->() };
   }
 }
 use File::Find qw(find);