(runmf): don't mv *.mf unless we have some.

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

1 files changed, 17 insertions, 14 deletions

diff --git a/Build/cdbuild/ctan2tds.pl b/Build/cdbuild/ctan2tds.pl
index 4a77b31520a..0cd078f3f1c 100755
--- a/Build/cdbuild/ctan2tds.pl
+++ b/Build/cdbuild/ctan2tds.pl
@@ -1132,9 +1132,8 @@ sub doxmt{
 
 sub domf {
 # build the font files
-   $mfpatt = $specialmf{$package};
-   if ($mfpatt eq "") { $mfpatt=$standardmf; }
-   &runmf($mfpatt);
+   $mfpatt = $specialmf{$package} || $standardmf;
+   &runmf ($mfpatt);
 }
 
 sub rundvi {
@@ -1145,7 +1144,7 @@ sub rundvi {
        else { $TEX=$whichformat; }
    }
    if ($TEX eq "generic") { $TEX="pdflatex"; }
-   print "\t MAKEDVI $thispatt, $TEX, @filenames\n";
+   print "\t MAKEDVI $thispatt using $TEX (@filenames)\n";
    for (grep(/$thispatt/,@filenames)) { 
      ($FileBase,$Filepath,$Filesuffix) = fileparse($_,"\.[A-z]*");
      print "found $FileBase\n";
@@ -1166,7 +1165,7 @@ sub rundvi {
       }
       &runjob("$TEX '\\nonstopmode\\input $FileBase$Filesuffix'");
    }
-   print "DVI over\n";
+   print "\t MAKEDVI done\n";
 }
 #
 # run a &SYSTEM job, and append stderr output to log file
@@ -1204,21 +1203,25 @@ sub buildfilelist {
 }
 
 sub runmf {
-   local($mfpatt) = @_;
-   $needdir=1;
+   my ($mfpatt) = @_;
+   my $needdir=0;
    print "\t Make fonts for $package ($mfpatt)\n";
    for (grep(/$mfpatt/,@filenames)) { 
       $needdir=1;
       print "\t\t Make TFM from $_\n";
       ($FileBase,$Filepath,$Filesuffix) = fileparse($_,"\.[A-z]*");
-    if (-e "$FileBase.tfm") { }
-    else {
-      &runjob("mktextfm --destdir=`pwd` $FileBase.tfm");
-	} 
+      if (! -e "$FileBase.tfm") {
+        &runjob("mktextfm --destdir=`pwd` $FileBase.tfm");
+      }
    }
-  &SYSTEM("mkdir -p $DEST/fonts/source/$Foundry/$package");
-  &runjob("$MV *.mf $DEST/fonts/source/$Foundry/$package");
-  &SYSTEM("rm -f *pk");  # not worth the space
+  if ($needdir) {
+    &SYSTEM("mkdir -p $DEST/fonts/source/$Foundry/$package");
+    # don't use $mfpatt since that's only the tfm-able mf files.
+    &runjob("$MV *.mf $DEST/fonts/source/$Foundry/$package");
+    &SYSTEM("rm -f *pk");  # not worth the space
+  } else {
+    print "\t (no $mfpatt)\n";
+  }
 }
 
 sub runfonts {