diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ExtUtils/MakeMaker.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/ExtUtils/MakeMaker.pm b/lib/ExtUtils/MakeMaker.pm index 36afa91afe..6bc0f6cc67 100644 --- a/lib/ExtUtils/MakeMaker.pm +++ b/lib/ExtUtils/MakeMaker.pm @@ -439,7 +439,10 @@ sub ExtUtils::MakeMaker::new { unless $self->file_name_is_absolute($self->{$key}) || ($^O eq 'VMS' and ($key =~ /PERL$/ && $self->{$key} =~ /^[\w\-\$]+$/)); } - $self->{PARENT}->{CHILDREN}->{$newclass} = $self if $self->{PARENT}; + if ($self->{PARENT}) { + $self->{PARENT}->{CHILDREN}->{$newclass} = $self; + $self->{CAPI} = $self->{PARENT}->{CAPI}; + } } else { parse_args($self,split(' ', $ENV{PERL_MM_OPT} || ''),@ARGV); } |