Skip to content

$data->{IMPORTS} is dereferenced even when undefined. #49

@benkasminbullock

Description

@benkasminbullock

On line 153 of ExtUtils::Mksymlists.pm, there is a dereference of $data->{IMPORTS}:

if (%{$data->{IMPORTS}}) {

This causes an error if $data->{IMPORTS} is not defined:

Can't use an undefined value as a HASH reference at C:/strawberry/perl/lib/ExtUtils/Mksymlists.pm line 153.

I am not sure whether or not this must be defined in order to compile properly. If not, I would suggest altering it to

if ($data->{IMPORTS} && %{$data->{IMPORTS}}) {

Similarly for the other use of this function.

Metadata

Metadata

Assignees

No one assigned

    Labels

    Type

    No type

    Projects

    No projects

    Milestone

    No milestone

    Relationships

    None yet

    Development

    No branches or pull requests

    Issue actions