Leont/libperl--

Error in PL.pm: Can't use an undefined value as an ARRAY reference

frankfranks opened this issue · 1 comments

read_config returns an empty hash reference on my machine, as I have no modulebuildrc file. This leads to a fatal dereference of a null value. Suggest attached change.

--- a/inc/Library/Build/PL.pm
+++ b/inc/Library/Build/PL.pm
@@ -22,11 +22,13 @@ my %registries = (
 
 sub new {
    my ($class, @args) = @_;
    my %args = (
        argv   => \@ARGV,
-       config => [ map { @{$_} } @{Library::Build::Config::read_config('Build_PL')}{'*', 'Build_PL'} ],
+       config => [ map { @{$_} } grep { $_ } @{Library::Build::Config::read_config('Build_PL')}{'*', 'Build_PL'} ],
        @args
    );
    return bless \%args, $class;
 }

Oops. Fixed it…