diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CPANPLUS/Internals/Source/SQLite.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/CPANPLUS/Internals/Source/SQLite.pm | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/Master/tlpkg/tlperl/lib/CPANPLUS/Internals/Source/SQLite.pm b/Master/tlpkg/tlperl/lib/CPANPLUS/Internals/Source/SQLite.pm index 47bdbebfd77..50f82f485c9 100644 --- a/Master/tlpkg/tlperl/lib/CPANPLUS/Internals/Source/SQLite.pm +++ b/Master/tlpkg/tlperl/lib/CPANPLUS/Internals/Source/SQLite.pm @@ -1,4 +1,5 @@ package CPANPLUS::Internals::Source::SQLite; +use deprecate; use strict; use warnings; @@ -16,6 +17,9 @@ use DBD::SQLite; use Params::Check qw[allow check]; use Locale::Maketext::Simple Class => 'CPANPLUS', Style => 'gettext'; +use vars qw[$VERSION]; +$VERSION = "0.9135"; + use constant TXN_COMMIT => 1000; =head1 NAME @@ -240,7 +244,6 @@ CPANPLUS::Internals::Source::SQLite - SQLite implementation *$sub = sub { my $self = shift; my %hash = @_; - my $dbh = $self->__sqlite_dbh; my($list,$type); my $tmpl = { @@ -256,9 +259,15 @@ CPANPLUS::Internals::Source::SQLite - SQLite implementation ### we aliased 'module' to 'name', so change that here too $type = 'module' if $type eq 'name'; + my $meth = $table .'_tree'; + + { + my $throw = $self->$meth; + } + + my $dbh = $self->__sqlite_dbh; my $res = $dbh->query( "SELECT * from $table" ); - my $meth = $table .'_tree'; my @rv = map { $self->$meth( $_->{$key} ) } grep { allow( $_->{$type} => $list ) } $res->hashes; |