#!/usr/bin/env perl -w use strict; use TLSRC; use TLP; use TLDB; use TLTREE; #our $opt_debug=1; my $tldb = new TLDB; my $tltree = TLTREE->new( 'svnroot' => "/src/TeX/texlive-svn/new-infra" ); $tltree->init_from_svn; foreach my $f (@ARGV) { my $tlsrc = new TLSRC; $tlsrc->from_file($f); my $tlp = $tlsrc->make_tlp($tltree); $tldb->add_tlp($tlp); } $tldb->location("test.tldb"); $tldb->save; print "=========================\n"; my $tldbnew = new TLDB; $tldbnew->from_file("test.tldb"); $tldbnew->writeout;