[svn:dbi] rev 230 - dbi/trunk/lib/DBD

[jzucker]

Author: jzucker
Date: Mon Mar 15 17:07:17 2004
New Revision: 230

Modified:
   dbi/trunk/lib/DBD/File.pm
Log:
Gack, bad STORE and FETCH in DBD::File

Modified: dbi/trunk/lib/DBD/File.pm
==============================================================================
--- dbi/trunk/lib/DBD/File.pm   (original)
+++ dbi/trunk/lib/DBD/File.pm   Mon Mar 15 17:07:17 2004
@@ -29,7 +29,7 @@
 
 use vars qw(@ISA $VERSION $drh $valid_attrs);
 
-$VERSION = '0.30';      # bumped from 0.22 to 0.30 with inclusion in DBI
+$VERSION = '0.31';      # bumped from 0.22 to 0.30 with inclusion in DBI
 
 $drh = undef;          # holds driver handle once initialised
 
@@ -210,7 +210,7 @@
         return $dbh->{$attrib};
     }
     # else pass up to DBI to handle
-    return $dbh->SUPER::FETCH($attrib);
+    return $dbh->DBD::_::db::STORE($attrib);
 }
 
 sub STORE ($$$) {
@@ -247,7 +247,8 @@
        $dbh->{$attrib} = $value;
        return 1;
     }
-    return $dbh->SUPER::STORE($attrib, $value);
+    # else pass up to DBI to handle
+    return $dbh->DBD::_::db::STORE($attrib, $value);
 }
 
 sub DESTROY ($) {
@@ -457,7 +458,7 @@
        return $sth->{$attrib};
     }
     # else pass up to DBI to handle
-    return $sth->SUPER::FETCH($attrib);
+    return $sth->DBD::_::db::FETCH($attrib);
 }
 
 sub STORE ($$$) {
@@ -467,7 +468,8 @@
        $sth->{$attrib} = $value;
        return 1;
     }
-    return $sth->SUPER::STORE($attrib, $value);
+    # else pass up to DBI to handle
+    return $sth->DBD::_::db::STORE($attrib, $value);
 }
 
 sub DESTROY ($) {