From: Chris Nehren Date: Thu, 16 Aug 2012 04:53:31 +0000 (-0400) Subject: remove other spurious warning X-Git-Tag: release_1.0.10_003^0 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=people%2Fapeiron%2Fremove-cargoculted-warning;hp=f04672b558455494c58ad3de8d405a8a2bbe6b90;p=p5sagit%2FModule-Metadata.git remove other spurious warning --- diff --git a/Changes b/Changes index 0f7410a..338e071 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,6 @@ +1.0.10_002 2012-08-16 01:00:00 + - Remove other spurious message (APEIRON) + 1.0.10_002 2012-08-15 20:15:00 - APEIRON is an idiot (APEIRON) diff --git a/lib/Module/Metadata.pm b/lib/Module/Metadata.pm index 2147232..0348105 100644 --- a/lib/Module/Metadata.pm +++ b/lib/Module/Metadata.pm @@ -11,7 +11,7 @@ package Module::Metadata; use strict; use vars qw($VERSION); -$VERSION = '1.000010_002'; +$VERSION = '1.000010_003'; $VERSION = eval $VERSION; use Carp qw/croak/; @@ -583,12 +583,7 @@ sub _parse_fh { unless ( defined $vers{$pkg} && length $vers{$pkg} ) { $vers{$pkg} = $v; - } else { - warn <<"EOM"; -Package '$pkg' already declared with version '$vers{$pkg}' -ignoring new version '$v' on line $line_num. -EOM - } + } }