make fallback actually work

diff --git a/lib/Module/Metadata.pm b/lib/Module/Metadata.pm
index fe027b7..6bfe11c 100644 (file)
--- 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);