I have attached a patch to the /usr/sbin/update-grace-fonts script which will provide the kludgy solution described in my original submission.

It is also inserted below

Carlo

--- /usr/sbin/update-grace-fonts~       2018-04-28 12:50:28.000000000 -0500
+++ /usr/sbin/update-grace-fonts        2019-08-14 13:31:38.934916736 -0500
@@ -12,10 +12,15 @@
     my($odir, $cdir) = @_;
     opendir(my $dh, $odir);
     my @files = readdir($dh);
+# New variable
+    my $modfilename;
     foreach (@files) {
-       next if (/^\./);
-       recursiveLink("$odir/$_", $cdir) if -d "$odir/$_";
-       symlink("$odir/$_", "$cdir/$_") if -f "$odir/$_";
+        next if (/^\./);
+        recursiveLink("$odir/$_", $cdir) if -d "$odir/$_";
+# Set file name to new variable, strip ".t1" from end of it if it's there
+        $modfilename = $_;
+        $modfilename =~ s/\.t1$//;
+        symlink("$odir/$_", "$cdir/$modfilename") if -f "$odir/$_";
     }
     closedir($dh);
 }


--
Carlo U. Segre -- Duchossois Leadership Professor of Physics
Directory, Center for Synchrotron Radiation Research and Instrumentation
Illinois Institute of Technology
Voice: 312.567.3498            Fax: 312.567.3494
se...@iit.edu   http://phys.iit.edu/~segre   se...@debian.org
--- /usr/sbin/update-grace-fonts~       2018-04-28 12:50:28.000000000 -0500
+++ /usr/sbin/update-grace-fonts        2019-08-14 13:31:38.934916736 -0500
@@ -12,10 +12,15 @@
     my($odir, $cdir) = @_;
     opendir(my $dh, $odir);
     my @files = readdir($dh);
+# New variable
+    my $modfilename;
     foreach (@files) {
-       next if (/^\./);
-       recursiveLink("$odir/$_", $cdir) if -d "$odir/$_";
-       symlink("$odir/$_", "$cdir/$_") if -f "$odir/$_";
+        next if (/^\./);
+        recursiveLink("$odir/$_", $cdir) if -d "$odir/$_";
+# Set file name to new variable, strip ".t1" from end of it if it's there
+        $modfilename = $_;
+        $modfilename =~ s/\.t1$//;
+        symlink("$odir/$_", "$cdir/$modfilename") if -f "$odir/$_";
     }
     closedir($dh);
 }

Reply via email to