(tl)perl 5.18.2 for windows from siep

git-svn-id: svn://tug.org/texlive/trunk@33648 c570f23f-e606-0410-a88d-b1316a301751

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;