Gentoo Websites Logo
Go to: Gentoo Home Documentation Forums Lists Bugs Planet Store Wiki Get Gentoo!
View | Details | Raw Unified | Return to bug 134650 | Differences between
and this patch

Collapse All | Expand All

(-)perl-5.8.8.orig/lib/ExtUtils/MM_Unix.pm (+13 lines)
Lines 1597-1602 Link Here
1597
	$self->{PERL_LIB}     ||= $Config{privlibexp};
1597
	$self->{PERL_LIB}     ||= $Config{privlibexp};
1598
	$self->{PERL_ARCHLIB} ||= $Config{archlibexp};
1598
	$self->{PERL_ARCHLIB} ||= $Config{archlibexp};
1599
	$self->{PERL_INC}     = $self->catdir("$self->{PERL_ARCHLIB}","CORE"); # wild guess for now
1599
	$self->{PERL_INC}     = $self->catdir("$self->{PERL_ARCHLIB}","CORE"); # wild guess for now
1600
	# Check for environment override so we'll find the headers in the correct place
1601
        if (defined $ENV{PERL_LIB})
1602
        {
1603
            $self->{PERL_LIB} = $ENV{PERL_LIB};
1604
        }
1605
        if (defined $ENV{PERL_ARCHLIB})
1606
        {
1607
            $self->{PERL_ARCHLIB} = $ENV{PERL_ARCHLIB};
1608
        }
1609
        if (defined $ENV{PERL_INC})
1610
        {
1611
            $self->{PERL_INC} = $ENV{PERL_INC};
1612
        }
1600
	my $perl_h;
1613
	my $perl_h;
1601
1614
1602
	if (not -f ($perl_h = $self->catfile($self->{PERL_INC},"perl.h"))
1615
	if (not -f ($perl_h = $self->catfile($self->{PERL_INC},"perl.h"))

Return to bug 134650