diff options
-rwxr-xr-x | Master/tlpkg/bin/tlpdb-check (renamed from Master/tlpkg/bin/tlpdbcheck) | 0 | ||||
-rwxr-xr-x | Master/tlpkg/bin/tlpobj2tlpdb | 83 |
2 files changed, 0 insertions, 83 deletions
diff --git a/Master/tlpkg/bin/tlpdbcheck b/Master/tlpkg/bin/tlpdb-check index bbc5b4bc814..bbc5b4bc814 100755 --- a/Master/tlpkg/bin/tlpdbcheck +++ b/Master/tlpkg/bin/tlpdb-check diff --git a/Master/tlpkg/bin/tlpobj2tlpdb b/Master/tlpkg/bin/tlpobj2tlpdb deleted file mode 100755 index c5bcb8328ce..00000000000 --- a/Master/tlpkg/bin/tlpobj2tlpdb +++ /dev/null @@ -1,83 +0,0 @@ -#!/usr/bin/env perl -# -# tlpobj2tlpdb -# convert a set of tlpobj files (given as arguments) into a tlpdb -# Copyright 2007 Norbert Preining -# -# This file is licensed under the GNU General Public Licence version 2 -# or any later version -# - -BEGIN { - $^W = 1; - ($mydir = $0) =~ s,/[^/]*$,,; - unshift (@INC, "$mydir/.."); -} - -use strict; - -use TeXLive::TLPOBJ; -use TeXLive::TLPDB; -use Getopt::Long; -use Pod::Usage; -use File::Path; - -our $opt_debug = 0; -my $man = 0; -my $help = 0; - -GetOptions("debug!", 'help|?' => \$help, man => \$man) or pod2usage(2); - -pod2usage(1) if $help; -pod2usage(-exitstatus => 0, -verbose => 2) if $man; - -my $tldb = TeXLive::TLPDB->new; -foreach my $f (@ARGV) { - my $tlp = new TeXLive::TLPOBJ; - $tlp->from_file($f); - $tldb->add_tlp($tlp); -} -$tldb->writeout; - - -__END__ - -=head1 NAME - -tlpobj2tlpdb - Converting tlp files into a tldb file - -=head1 SYNOPSIS - -tlpobj2tlpdb [options] [tlpobj-files ...] - - Options: - -help brief help message - -man full documentation - -debug get debug messages from TL* modules - - -=head1 OPTIONS - -=over 8 - -=item B<-help> - -Print a brief help message and exits. - -=item B<-man> - -Prints the manual page and exits. - -=item B<-debug> - -Give debug messages from the TeX Live modules - -=back - -=head1 DESCRIPTION - -B<tlpobj2tlpdb> converts TeX Live Object Package files (tlpobj) files -into TeX Live Package Database (tlpdb). - -=cut - |