diff options
author | Karl Berry <karl@freefriends.org> | 2008-02-05 19:45:38 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2008-02-05 19:45:38 +0000 |
commit | f7c83f3af0702bc48b556a62f56f9bd1d0ddce5a (patch) | |
tree | a2f40b0c884f057cef2e81ae70770158b58a8862 /Master/tlpkg/etc | |
parent | 208b4e0cc96ff0d8307f7b59cb66d52527123029 (diff) |
move installer stuff to installer directory, update README
git-svn-id: svn://tug.org/texlive/trunk@6509 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/etc')
-rwxr-xr-x | Master/tlpkg/etc/tlpdb-install-test.pl | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/Master/tlpkg/etc/tlpdb-install-test.pl b/Master/tlpkg/etc/tlpdb-install-test.pl new file mode 100755 index 00000000000..6a9a27fe1f2 --- /dev/null +++ b/Master/tlpkg/etc/tlpdb-install-test.pl @@ -0,0 +1,39 @@ +#!/usr/bin/env perl +# Copyright 2007 Norbert Preining +# This file is licensed under the GNU General Public License version 2 +# or any later version. +# +# Create list files from tlpdb. + +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; + + +my $tlpdb = new TeXLive::TLPDB; +$tlpdb->location("/tmp/texlive-test/texlive.tlpdb"); + +my @archs = qw/win32 i386-linux/; + +$tlpdb->add_tlpcontainer("a0poster", "./zip", \@archs); +$tlpdb->add_tlpcontainer("automata", "./zip", \@archs); +$tlpdb->add_tlpcontainer("bin-afm2pl", "./zip", \@archs); + +$tlpdb->save; + +### Local Variables: +### perl-indent-level: 2 +### tab-width: 2 +### indent-tabs-mode: nil +### End: +# vim:set tabstop=2: # |