summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/CPANPLUS/Internals/Source/SQLite.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CPANPLUS/Internals/Source/SQLite.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/CPANPLUS/Internals/Source/SQLite.pm13
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;