simcop2387/DBD-SQLite-SQLcipher
1
0
Fork 0
mirror of https://github.com/DBD-SQLite/DBD-SQLite synced 2025-06-07 14:19:10 -04:00
Code Issues Releases Wiki Activity

use our, because we don't support perl < 5.006

Browse source
This commit is contained in:
Kenichi Ishigaki 2012-09-01 08:47:26 +00:00
parent b61c059d82
commit 65b47d0444
2 changed files with 14 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
lib/DBD/SQLite.pm
View file

@ -5,24 +5,14 @@ use strict;
use DBI 1.57 ();
use DynaLoader ();
use vars qw($VERSION @ISA);
use vars qw{$err $errstr $drh $sqlite_version $sqlite_version_number};
use vars qw{%COLLATION};
our $VERSION = '1.37';
our @ISA = 'DynaLoader';
BEGIN {
$VERSION = '1.37';
@ISA = 'DynaLoader';
# sqlite_version cache (set in the XS bootstrap)
our ($sqlite_version, $sqlite_version_number);
# Initialize errors
$err = undef;
$errstr = undef;
# Driver singleton
$drh = undef;
# sqlite_version cache
$sqlite_version = undef;
}
# not sure if we still need these...
our ($err, $errstr);
__PACKAGE__->bootstrap($VERSION);
@ -30,10 +20,12 @@ __PACKAGE__->bootstrap($VERSION);
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 {

11
t/lib/Test.pm
View file

@ -7,14 +7,15 @@ use Exporter ();
use File::Spec ();
use Test::More ();
use vars qw{$VERSION @ISA @EXPORT @CALL_FUNCS};
our $VERSION = '1.37';
our @ISA = 'Exporter';
our @EXPORT = qw/connect_ok dies dbfile @CALL_FUNCS/;
our @CALL_FUNCS;
my $parent;
my %dbfiles;
BEGIN {
$VERSION = '1.37';
@ISA = 'Exporter';
@EXPORT = qw/connect_ok dies dbfile @CALL_FUNCS/;
BEGIN {
# Allow tests to load modules bundled in /inc
unshift @INC, 'inc';