… | |
… | |
43 | use DBI (); |
43 | use DBI (); |
44 | |
44 | |
45 | BEGIN { |
45 | BEGIN { |
46 | use base qw(Exporter DynaLoader); |
46 | use base qw(Exporter DynaLoader); |
47 | |
47 | |
48 | $VERSION = 0.12; |
48 | $VERSION = 0.121; |
49 | @EXPORT = qw( |
49 | @EXPORT = qw( |
50 | sql_exec sql_fetch sql_fetchall sql_exists sql_insertid $sql_exec |
50 | sql_exec sql_fetch sql_fetchall sql_exists sql_insertid $sql_exec |
51 | ); |
51 | ); |
52 | @EXPORT_OK = qw( |
52 | @EXPORT_OK = qw( |
53 | connect_cached |
53 | connect_cached |
… | |
… | |
299 | =cut |
299 | =cut |
300 | |
300 | |
301 | sub reinitialize { |
301 | sub reinitialize { |
302 | cachesize cachesize 0; |
302 | cachesize cachesize 0; |
303 | for (values %dbcache) { |
303 | for (values %dbcache) { |
304 | eval { $_->disconnect }; |
304 | eval { $_->{InactiveDestroy} = 1 }; |
305 | } |
305 | } |
306 | undef %dbcache; |
306 | undef %dbcache; |
307 | } |
307 | } |
308 | |
308 | |
309 | =back |
309 | =back |