diff options
Diffstat (limited to 'Master/tlpkg/etc/create_tlp_simple.pl')
-rwxr-xr-x | Master/tlpkg/etc/create_tlp_simple.pl | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/Master/tlpkg/etc/create_tlp_simple.pl b/Master/tlpkg/etc/create_tlp_simple.pl deleted file mode 100755 index 79b2f10e690..00000000000 --- a/Master/tlpkg/etc/create_tlp_simple.pl +++ /dev/null @@ -1,30 +0,0 @@ -#!/usr/bin/env perl - -$^W = 1 -use strict; - -use TLSRC; -use TLP; -use TLTREE; -use Data::Dumper; - -#our $opt_debug=1; - -my $tltree = TLTREE->new( 'svnroot' => "/src/TeX/texlive-svn/Master" ); -print "Initializing tltree start: ", `date`; -$tltree->init_from_statusfile("/src/TeX/texlive-svn/Master/svn.status"); -print "Initializing tltree stop: ", `date`; - -foreach my $f (@ARGV) { - my $tlsrc = new TLSRC; - $tlsrc->from_file($f); - print "WORKING ON $f\n"; - my $tlp = $tlsrc->make_tlp($tltree); - my $name = $tlp->name; - open(FOO,">tlp/$name.tlp"); - $tlp->writeout_simple(\*FOO); - close(FOO); -} - - -print "End of operation: ", `date`; |