On Tue, Dec 03, 2002 at 11:02:37PM -0600, Craig A. Berry wrote:
> Almost. Here's what ended up working:
>
> --- lib/ExtUtils/MM_Unix.pm;-0 Mon Dec 2 12:04:41 2002
> +++ lib/ExtUtils/MM_Unix.pm Tue Dec 3 17:38:01 2002
> @@ -1763,10 +1763,11 @@
> # Lets look at $self->{LIBS} carefully: It may be an anon array, a string or
> # undefined. In any case we turn it into an anon array:
>
> + $self->{LIBS}=[$self->{LIBS}] unless ref $self->{LIBS};
> +
> # May check $Config{libs} too, thus not empty.
> - $self->{LIBS}=[''] unless $self->{LIBS};
> + $self->{LIBS}=[''] unless @{$self->{LIBS}} && defined ${$self->{LIBS}}[0];
>
> - $self->{LIBS}=[$self->{LIBS}] if ref \$self->{LIBS} eq 'SCALAR';
Ahh, I see where that undef is coming from:
$self->{LIBS} = [$self->{LIBS}] if defined $self->{LIBS} &&
!ref $self->{LIBS};
$self->{LIBS} = [''] unless @{$self->{LIBS}};
I'll patch it like that.
> While I was chasing this I noticed and fixed some typos in Liblist::Kid:
>
> --- lib/ExtUtils/Liblist/Kid.pm;-0 Sat Nov 30 16:40:42 2002
> +++ lib/ExtUtils/Liblist/Kid.pm Sun Dec 1 15:02:50 2002
> @@ -366,7 +366,7 @@
> my($self, $potential_libs,$verbose,$give_libs) = @_;
> my(@crtls,$crtlstr);
> my($dbgqual) = $self->{OPTIMIZE} || $Config{'optimize'} ||
> - $self->{CCFLAS} || $Config{'ccflags'};
> + $self->{CCFLAGS} || $Config{'ccflags'};
> @crtls = ( ($dbgqual =~ m-/Debug-i ? $Config{'dbgprefix'} : '')
> . 'PerlShr/Share' );
> push(@crtls, grep { not /\(/ } split /\s+/, $Config{'perllibs'});
Wow, that's been in there a while.
--
Michael G. Schwern <[EMAIL PROTECTED]> http://www.pobox.com/~schwern/
Perl Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
We have returned to claim the pyramids.
