[groff] 01/01: [devpdf]: Restore original path

[Deri James]

deri pushed a commit to branch master
in repository groff.

commit 272aaadb23f3ed44873c6acaaf42f41cdd9a11ba
Author: Deri James <deri@chuzzlewit.myzen.co.uk>
AuthorDate: Fri Jul 8 14:16:55 2022 +0100

    [devpdf]: Restore original path
    
    * font/devpdf/util/BuildFoundries.pl: Some systems store .afm
    files in a parallel directory to the Type 1 files, restore
    original path after checking for parallel directory.
---
 ChangeLog                          | 6 ++++++
 font/devpdf/util/BuildFoundries.pl | 8 +++++---
 2 files changed, 11 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 7714fb36..abde32bc 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2022-07-08  Deri James  <deri@chuzzlewit.myzen.co.uk>
+
+        * font/devpdf/util/BuildFoundries.pl: Some systems store .afm
+        files in a parallel directory to the Type 1 files, restore
+        original path after checking for parallel directory.
+
 2022-07-07  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        * font/devpdf/devpdf.am (font/devpdf/download): Call
diff --git a/font/devpdf/util/BuildFoundries.pl 
b/font/devpdf/util/BuildFoundries.pl
index a0e498e6..2ba5a7de 100644
--- a/font/devpdf/util/BuildFoundries.pl
+++ b/font/devpdf/util/BuildFoundries.pl
@@ -306,11 +306,13 @@ sub LocateFile
                 return("$p/$file");
             }
 
-            if ($tryafm and $p=~s'type1/'afm/'i)
+            my $ap=$p;
+
+            if ($tryafm and $ap=~s'type1/'afm/'i)
             {
-                if (-r "$p/$file")
+                if (-r "$ap/$file")
                 {
-                    return("$p/$file");
+                    return("$ap/$file");
                 }
             }
         }