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]>
