| … | |
… | |
| 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 |
