Change 20509 by [EMAIL PROTECTED] on 2003/08/05 18:42:33

        Integrate:
        [ 20508]
        Continue #20506.

Affected files ...

... //depot/maint-5.8/perl/lib/ExtUtils/MM_Unix.pm#18 integrate

Differences ...

==== //depot/maint-5.8/perl/lib/ExtUtils/MM_Unix.pm#18 (text) ====
Index: perl/lib/ExtUtils/MM_Unix.pm
--- perl/lib/ExtUtils/MM_Unix.pm#17~20507~      Tue Aug  5 11:01:26 2003
+++ perl/lib/ExtUtils/MM_Unix.pm        Tue Aug  5 11:42:33 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