From: Matt S Trout <matthewt@hercule.scsys.co.uk>
Date: Sun, 21 Mar 2010 12:36:54 +0000 (+0000)
Subject: make fallback actually work
X-Git-Tag: release_1.0.0~6
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e6ddd76509b1b36e888c88848f78f6f829cc9c1e;p=p5sagit%2FModule-Metadata.git

make fallback actually work
---

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);