if (not -f ($perl_h = $self->catfile($self->{PERL_INC},"perl.h"))
to
if(0)