$sep .= "\\\n\t";
foreach $key (qw(LIB LIBPERL_A LINKTYPE PREFIX OPTIMIZE INC DEFINE)) {
- push @pasthru, "$key=\"\$($key)\"";
+ if ($key eq 'INC') {
+ # For INC we need to prepend parent directory but
+ # only iff the parent directory is not absolute.
+ my $inc = $self->{INC};
+ my ($o, $i) = $Is_VMS ? ('/Include=', 'i') : ('-I', '');
+ $inc =~ s!(?$i)$o(.+?)!$o.($self->file_name_is_absolute($1)?$1:$self->catdir($self->updir,$1))!eg;
+ push @pasthru, "INC=\"$inc\"";
+ } else {
+ push @pasthru, "$key=\"\$($key)\"";
+ }
}
# PASTHRU_DEFINE and PASTHRU_INC are defined explicitly