summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/place
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/bin/place')
-rwxr-xr-xMaster/tlpkg/bin/place30
1 files changed, 14 insertions, 16 deletions
diff --git a/Master/tlpkg/bin/place b/Master/tlpkg/bin/place
index 421ab4137b1..e4e1e2c6186 100755
--- a/Master/tlpkg/bin/place
+++ b/Master/tlpkg/bin/place
@@ -61,16 +61,16 @@ if ($Root eq 'texmf-doc') {
}
# initialize TLPDB
-my $tlpdb = new TeXLive::TLPDB ( root => "$M" );
+my $tlpdb = new TeXLive::TLPDB ('root' => $M);
# create TLTREE from stuff in cooked/$pkg
-my $tltree = TeXLive::TLTREE->new( 'svnroot' => "$cooked/$package" );
+#$::LOGLEVELTERMINAL = $::LOG_DDDEBUG;
+my $tltree = TeXLive::TLTREE->new ('svnroot' => "$cooked/$package");
$tltree->init_from_files;
# get package from TLPDB;
-my $tlpold = $tlpdb->get_package("$package");
+my $tlpold = $tlpdb->get_package ($package);
if (defined($tlpold)) {
- # what to do with binfiles, but they are not place-ed!!!
- foreach ($tlpold->srcfiles, $tlpold->runfiles, $tlpold->docfiles) {
+ foreach ($tlpold->all_files) {
$Old{$_} = 1;
}
} else {
@@ -79,16 +79,18 @@ if (defined($tlpold)) {
# create new tlpsrc and tlpobj
my $tlpsrc = TeXLive::TLPSRC;
-if (! -r "$M/tlpkg/tlpsrc/$package.tlpsrc") {
- $tlpsrc->name("$package");
+my $tlpsrcfile = "$M/tlpkg/tlpsrc/$package.tlpsrc";
+if (! -r $tlpsrcfile) {
+ $tlpsrc->name($package);
$tlpsrc->category($Type);
if (!$chicken) {
- open TMP, ">$M/tlpkg/tlpsrc/$package.tlpsrc" or die "Cannot open tlpsrc file!";
+ $TMP = ">$tlpsrcfile";
+ open (TMP) || die "open($TMP) failed: $!";
$tlpsrc->writeout(\*TMP);
- close TMP
+ close TMP;
}
} else {
- $tlpsrc->from_file("$M/tlpkg/tlpsrc/$package.tlpsrc");
+ $tlpsrc->from_file($tlpsrcfile);
}
my $tlpnew = $tlpsrc->make_tlpobj($tltree);
@@ -101,17 +103,13 @@ if (!defined($tlpold)) {
} else {
print "new vs. present $package\n";
my @oldfiles;
- push @oldfiles, $tlpold->srcfiles;
- push @oldfiles, $tlpold->runfiles;
- push @oldfiles, $tlpold->docfiles;
+ push @oldfiles, $tlpold->all_files;
`rm -f $TMP/tlplace.old`;
foreach (sort @oldfiles) {
`echo $_ >> $TMP/tlplace.old`;
}
my @newfiles;
- push @newfiles, $tlpnew->srcfiles;
- push @newfiles, $tlpnew->runfiles;
- push @newfiles, $tlpnew->docfiles;
+ push @newfiles, $tlpnew->all_files;
`rm -f $TMP/tlplace.new`;
foreach (sort @newfiles) {
`echo $_ >> $TMP/tlplace.new`;