[svn:dbi] r14652 - dbi/trunk

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 = {