[groff] 18/40: font/devpdf/util/BuildFoundries.pl: Fix code nits.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 93816091f3d8d0c7c8c0893155ac887613fa59a0
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Wed Nov 9 02:18:14 2022 -0600

    font/devpdf/util/BuildFoundries.pl: Fix code nits.
    
    * font/devpdf/util/BuildFoundries.pl (LoadFoundry): Stop capitalizing
      beginning of diagnostic message (per GNU Coding Standards).  Drop
      ellipsis from end since no further diagnostics relevant to that
      message are expected.  Trim trailing slashes from font path elements.
---
 ChangeLog                          | 8 ++++++++
 font/devpdf/util/BuildFoundries.pl | 5 +++--
 2 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index b675bd35b..a94b9d03c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2022-11-09  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       * font/devpdf/util/BuildFoundries.pl (LoadFoundry): Stop
+       capitalizing beginning of diagnostic message (per GNU Coding
+       Standards).  Drop ellipsis from end since no further diagnostics
+       relevant to that message are expected.  Trim trailing slashes
+       from font path elements.
+
 2022-11-08  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        * font/devps/devps.am: Refactor.  Turn two identical target
diff --git a/font/devpdf/util/BuildFoundries.pl 
b/font/devpdf/util/BuildFoundries.pl
index 03f5eeebf..1e7c416cb 100644
--- a/font/devpdf/util/BuildFoundries.pl
+++ b/font/devpdf/util/BuildFoundries.pl
@@ -141,7 +141,7 @@ sub LoadFoundry
                            unlink $gfont;
                        }
                    }
-                   Notice("Copied grops font $gfont...") if $gotf;
+                   Notice("copied grops font $gfont") if $gotf;
 
                }
                else
@@ -169,7 +169,7 @@ sub LoadFoundry
                    }
                    else
                    {
-                       Notice("Generated $gfont...");
+                       Notice("generated $gfont");
                    }
                }
                else
@@ -266,6 +266,7 @@ sub LocateFile
         next if !defined($p) or $p eq ';' or $p eq ':';
         $p=~s/^\s+//;
         $p=~s/\s+$//;
+        $p=~s@/+$@@;
 
         next if $p=~m/^\%rom\%/;       # exclude %rom% paths (from (gs))