symlink makeglossaries script

git-svn-id: svn://tug.org/texlive/trunk@6881 c570f23f-e606-0410-a88d-b1316a301751

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`;