Thanks, applied.
Tim.
On Sat, Apr 09, 2005 at 12:12:36PM +0100, Avis, Ed wrote:
> DBI has a warning about multiple copies of Driver.xst found in @INC, but
> this warning also fires when @INC has the same directory in it twice,
> which isn't something to worry about. This patch quietens the warning
> in that case.
>
> diff -ru DBI-1.48/lib/DBI/DBD.pm DBI-1.48-new/lib/DBI/DBD.pm
> --- DBI-1.48/lib/DBI/DBD.pm 2005-01-31 14:03:56.000000000 +0000
> +++ DBI-1.48-new/lib/DBI/DBD.pm 2005-04-09 12:06:29.000000000 +0100
> @@ -2849,7 +2849,8 @@
> _inst_checks();
> return '$(INST_ARCHAUTODIR)' if $is_dbi;
> my $dbidir = dbd_dbi_dir();
> - my @try = map { vmsify( unixify($_) . "/auto/DBI/" ) } @INC;
> + my %seen;
> + my @try = grep { not $seen{$_}++ } map { vmsify( unixify($_) .
> "/auto/DBI/" ) } @INC;
> my @xst = grep { -f vmsify( unixify($_) . "/Driver.xst" ) } @try;
> Carp::croak("Unable to locate Driver.xst in @try") unless @xst;
> Carp::carp( "Multiple copies of Driver.xst found in: @xst") if @xst > 1;
>
> --
> Ed Avis <[EMAIL PROTECTED]>
