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);
|