--- DBI-1.46/DBI.pm~	2004-11-16 12:23:38 +0000

+++ DBI-1.46/DBI.pm	2004-12-19 15:00:53 +0000

@@ -235,6 +235,7 @@

 $DBI::dbi_debug = 0;

 $DBI::neat_maxlen = 400;

+=for comment

 # If you get an error here like "Can't find loadable object ..."

 # then you haven't installed the DBI correctly. Read the README

 # then install it again.

@@ -246,6 +247,10 @@

 else {

     bootstrap DBI;

 }

+

+=cut # (ALT) disabled DBI::PurePerl

+

+bootstrap DBI;

 $EXPORT_TAGS{preparse_flags} = [ grep { /^DBIpp_\w\w_/ } keys %{__PACKAGE__."::"} ];