From: Chris Nehren Date: Tue, 12 Feb 2013 17:01:14 +0000 (-0500) Subject: Remove prototype causing warnings X-Git-Tag: 1.008006^0 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2Flocal-lib.git;a=commitdiff_plain;h=refs%2Ftags%2F1.008006 Remove prototype causing warnings ... also it's a prototype. --- diff --git a/Changes b/Changes index e32c0bc..2e37cc7 100644 --- a/Changes +++ b/Changes @@ -1,5 +1,9 @@ Revision history for local::lib -1.NEXT +1.008006 2013-02-12 + + - Remove prototype on private function + +1.008005 2013-02-11 - Avoid issue where PERL5LIB Carp is older than local::lib one diff --git a/lib/local/lib.pm b/lib/local/lib.pm index 9945da3..8533b1c 100644 --- a/lib/local/lib.pm +++ b/lib/local/lib.pm @@ -10,7 +10,7 @@ use File::Spec (); use File::Path (); use Config; -our $VERSION = '1.008004'; # 1.8.4 +our $VERSION = '1.008006'; # 1.8.6 our @KNOWN_FLAGS = qw(--self-contained --deactivate --deactivate-all); @@ -375,7 +375,7 @@ my %ENV_LIST_VALUE_DEFAULTS = ( filter => sub { 1 }, empty => undef, ); -sub _env_list_value(%@) { +sub _env_list_value { my $options = shift; die(sprintf "unknown option '$_' at %s line %u\n", (caller)[1..2]) for grep { !exists $ENV_LIST_VALUE_DEFAULTS{$_} } keys %$options;