Author: timbo
Date: Mon Jan 24 04:21:58 2011
New Revision: 14652
Modified:
dbi/trunk/Changes
dbi/trunk/DBI.pm
Log:
Removed old code that was an inneffective attempt to detect people doing
DBI->{Attrib}.
Modified: dbi/trunk/Changes
==============================================================================
--- dbi/trunk/Changes (original)
+++ dbi/trunk/Changes Mon Jan 24 04:21:58 2011
@@ -6,6 +6,11 @@
=cut
+=head2 Changes in DBI 1.617 (svn rXXX)
+
+ Removed old code that was an inneffective attempt to detect
+ people doing DBI->{Attrib}.
+
=head2 Changes in DBI 1.616 (svn r14616) 30th December 2010
Fixed spurious dbi_profile lines written to the log when
Modified: dbi/trunk/DBI.pm
==============================================================================
--- dbi/trunk/DBI.pm (original)
+++ dbi/trunk/DBI.pm Mon Jan 24 04:21:58 2011
@@ -308,13 +308,6 @@
sub DBI::var::TIESCALAR{ my $var = $_[1]; bless \$var, 'DBI::var'; }
sub DBI::var::STORE { Carp::croak("Can't modify \$DBI::${$_[0]} special
variable") }
-{ # used to catch DBI->{Attrib} mistake
- sub DBI::DBI_tie::TIEHASH { bless {} }
- sub DBI::DBI_tie::STORE { Carp::carp("DBI->{$_[1]} is invalid syntax
(you probably want \$h->{$_[1]})");}
- *DBI::DBI_tie::FETCH = \&DBI::DBI_tie::STORE;
-}
-tie %DBI::DBI => 'DBI::DBI_tie';
-
# --- Driver Specific Prefix Registry ---
my $dbd_prefix_registry = {
