disabled 0ˆl–Ým_Jõ2ÛR‚YP-ÜWò˜´oÁ „y—Ÿ{_‹uÐb &=LV[(ÁÀ?÷package DBD::SQLite; use 5.006; use strict; use DBI 1.57 (); use DynaLoader (); our $VERSION = '1.39'; our @ISA = 'DynaLoader'; # sqlite_version cache (set in the XS bootstrap) our ($sqlite_version, $sqlite_version_number); # not sure if we still need these... our ($err, $errstr); __PACKAGE__->bootstrap($VERSION); # New or old API? use constant NEWAPI => ($DBI::VERSION >= 1.608); # global registry of collation functions, initialized with 2 builtins our %COLLATION; tie %COLLATION, 'DBD::SQLite::_WriteOnceHash'; $COLLATION{perl} = sub { $_[0] cmp $_[1] }; $COLLATION{perllocale} = sub { use locale; $_[0] cmp $_[1] }; our $drh; my $methods_are_installed = 0; sub driver { return $drh if $drh; if (!$methods_are_installed && DBD::SQLite::NEWAPI ) { DBI->setup_driver('DBD::SQLite'); DBD::SQLite::db->install_method('sqlite_last_insert_rowid'); DBD::SQLite::db->install_method('sqlite_busy_timeout'); DBD::SQLite::db->install_method('sqlite_create_function'); DBD::SQLite::db->install_method('sqlite_create_aggregate'); DBD::SQLite::db->install_method('sqlite_create_collation'); DBD::SQLite::db->install_method('sqlite_collation_needed'); DBD::SQLite::db->install_method('sqlite_progress_handler'); DBD::SQLite::db->install_method('sqlite_commit_hook'); DBD::SQLite::db->install_method('sqlite_rollback_hook'); DBD::SQLite::db->install_method('sqlite_update_hook'); DBD::SQLite::db->install_method('sqlite_set_authorizer'); DBD::SQLite::db->install_method('sqlite_backup_from_file'); DBD::SQLite::db->install_method('sqlite_backup_to_file'); DBD::SQLite::db->install_method('sqlite_enable_load_extension'); DBD::SQLite::db->install_method('sqlite_load_extension'); DBD::SQLite::db->install_method('sqlite_register_fts3_perl_tokenizer'); DBD::SQLite::db->install_method('sqlite_trace', { O => 0x0004 }); DBD::SQLite::db->install_method('sqlite_profile', { O => 0x0004 }); DBD::SQLite::db->install_method('sqlite_table_column_metadata', { O => 0x0004 }); DBD::SQLite::db->install_method('sqlite_db_filename', { O => 0x0004 }); DBD::SQLite::db->install_method('sqlite_db_status', { O => 0x0004 }); DBD::SQLite::st->install_method('sqlite_st_status', { O => 0x0004 }); $methods_are_installed++; } $drh = DBI::_new_drh( "$_[0]::dr", { Name => 'SQLite', Version => $VERSION, Attribution => 'DBD::SQLite by Matt Sergeant et al', } ); return $drh; } sub CLONE { undef $drh; } package DBD::SQLite::dr; sub connect { my ($drh, $dbname, $user, $auth, $attr) = @_; # Default PrintWarn to the value of $^W # unless ( defined $attr->{PrintWarn} ) { # $attr->{PrintWarn} = $^W ? 1 : 0; # } my $dbh = DBI::_new_dbh( $drh, { Name => $dbname, } ); my $real = $dbname; if ( $dbname =~ /=/ ) { foreach my $attrib ( split(/;/, $dbname) ) { my ($key, $value) = split(/=/, $attrib, 2); if ( $key =~ /^(?:db(?:name)?|database)$/ ) { $real = $value; } else { $attr->{$key} = $value; } } } # To avoid unicode and long file name problems on Windows, # convert to the shortname if the file (or parent directory) exists. if ( $^O =~ /MSWin32/ and $real ne ':memory:' and $real ne '') { require Win32; require File::Basename; my ($file, $dir, $suffix) = File::Basename::fileparse($real); my $short = Win32::GetShortPathName($real); if ( $short && -f $short ) { # Existing files will work directly. $real = $short; } elsif ( -d $dir ) { # We are creating a new file. # Does the directory it's in at least exist? $real = join '', grep { defined } Win32::GetShortPathName($dir), $file, $suffix;