Fix RT#83267
authorTyler Riddle <t.riddle@shadowcat.co.uk>
Tue, 12 Feb 2013 04:25:06 +0000 (20:25 -0800)
committerArthur Axel 'fREW' Schmidt <frioux@gmail.com>
Wed, 13 Feb 2013 15:36:55 +0000 (09:36 -0600)
commite0e3c3d08aedbba70fc2468ee6bfe31cd50a0944
treef1aadeb85a0a4be1d89ea4b1be58a03c8cca6f87
parent8ccaf9fb72ff9d1cf0e011ac0106fbeff8a97cc5
Fix RT#83267

The following code from Module::Metadata 1.000011 exposed the bug

   BEGIN {
     if ($INC{'Log/Contextual.pm'}) {
       Log::Contextual->import('log_info');
     } else {
       *log_info = sub (&) { warn $_[0]->() };
     }
   }
lib/Log/Contextual.pm
t/regression_83267.t [new file with mode: 0644]