(set_dir_defaults): don't assume /tex-archive.

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

1 files changed, 5 insertions, 4 deletions

diff --git a/Build/cdbuild/ctan2tds.pl b/Build/cdbuild/ctan2tds.pl
index 1c93e677b9a..6a38904e94f 100755
--- a/Build/cdbuild/ctan2tds.pl
+++ b/Build/cdbuild/ctan2tds.pl
@@ -1047,6 +1047,7 @@ $standardbib='\.bib$'; # $ so we don't find README.bibtex in IEEEtran
 %specialbib= (
  'active-conf',	'NULL',
  'aguplus',	'NULL',
+ 'amsrefs',	'ams.*bib', # not jr.bib
  'babelbib',	'NULL',
  'classicthesis','NULL',
  'dlfltxb',	'NULL', # don't install doc.
@@ -1239,19 +1240,19 @@ sub set_dir_defaults
   my ($ctan_dir) = @_;
   my $guess = "";
   
-  if ($ctan_dir =~ m!/tex-archive/graphics/metapost/!) {
+  if ($ctan_dir =~ m!/graphics/metapost/!) {
     $standarddocfmt = $standardsourcefmt = "metapost";
     $guess = "$standarddocfmt for docfmt/srcfmt";
 
-  } elsif ($ctan_dir =~ m!/tex-archive/macros/xetex/latex/!) {
+  } elsif ($ctan_dir =~ m!/macros/xetex/latex/!) {
     $standarddocfmt = $standardsourcefmt = $standardfmt = "xelatex";
     $guess = "$standarddocfmt for fmt/docfmt/srcfmt";
 
-  } elsif ($ctan_dir =~ m!/tex-archive/fonts/!) {
+  } elsif ($ctan_dir =~ m!/fonts/!) {
     $standarddocfmt = $standardsourcefmt = "fonts";
     $guess = "$standarddocfmt for docfmt/srcfmt";
 
-  } elsif ($ctan_dir =~ m!/tex-archive/info/!) {
+  } elsif ($ctan_dir =~ m!/info/!) {
     $standarddest = "texmf-doc";
     $guess = "$standarddest for dest";