summaryrefslogtreecommitdiff
path: root/Master/tlpkg/dev/tlpdb-read-test
blob: 30ac0d05b15160e017bf2de832878ccb79cce025 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/env perl
# Public domain.  (Originally written by Karl Berry, 2011.)
# This script does nothing but read TLPDB so we can work 
# on optimizing the inner loop, TLPOBJ::from_fh.

our $mydir;

BEGIN {
  $^W = 1;
  ($mydir = $0) =~ s,/[^/]*$,,;
  unshift (@INC, "$mydir/..");
}

use strict;
use TeXLive::TLPDB;

chomp (my $Master = `cd $mydir/../.. && pwd`);
my $tlpdb = TeXLive::TLPDB->new ("root" => $Master);