Change 20508 by [EMAIL PROTECTED] on 2003/08/05 18:36:38

        Continue #20506.

Affected files ...

... //depot/perl/lib/ExtUtils/MM_Unix.pm#185 edit

Differences ...

==== //depot/perl/lib/ExtUtils/MM_Unix.pm#185 (text) ====
Index: perl/lib/ExtUtils/MM_Unix.pm
--- perl/lib/ExtUtils/MM_Unix.pm#184~20506~     Tue Aug  5 10:58:01 2003
+++ perl/lib/ExtUtils/MM_Unix.pm        Tue Aug  5 11:36:38 2003
@@ -3111,10 +3111,9 @@
     $sep .= "\\\n\t";
 
     foreach $key (qw(LIB LIBPERL_A LINKTYPE PREFIX OPTIMIZE INC DEFINE)) {
-       if ($key eq 'INC') {
+       if ($key eq 'INC' && defined(my $inc = $self->{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\"";
End of Patch.

Reply via email to