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

[jzucker]

Author: jzucker
Date: Fri Dec 10 16:27:35 2004
New Revision: 622

Modified:
   dbi/trunk/lib/DBD/File.pm
Log:
added ping(), bumped version #

Modified: dbi/trunk/lib/DBD/File.pm
==============================================================================
--- dbi/trunk/lib/DBD/File.pm   (original)
+++ dbi/trunk/lib/DBD/File.pm   Fri Dec 10 16:27:35 2004
@@ -29,7 +29,7 @@
 
 use vars qw(@ISA $VERSION $drh $valid_attrs);
 
-$VERSION = '0.31';      # bumped from 0.22 to 0.30 with inclusion in DBI
+$VERSION = '0.32';
 
 $drh = undef;          # holds driver handle once initialised
 
@@ -153,6 +153,8 @@
 
 $DBD::File::db::imp_data_size = 0;
 
+sub ping { return (shift->FETCH('Active')) ? 1 : 0 };
+
 sub prepare ($$;@) {
     my($dbh, $statement, @attribs)= @_;