[groff] 04/05: Remove artifacts from using stringhex.

[Deri James]

deri pushed a commit to branch master
in repository groff.

commit 9b8b3e2a508d7df0b661c9042b5f5d5e7a0688da
Author: Deri James <deri@chuzzlewit.myzen.co.uk>
AuthorDate: Tue Jan 30 18:02:13 2024 +0000

    Remove artifacts from using stringhex.
    
    Introduced in commit #e62b188aacb, betraying its origin
    from my deri-gropdf-ng branch which uses .stringhex.
    
    * src/devices/gropdf/gropdf.pl: minor fixes
---
 src/devices/gropdf/gropdf.pl | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/devices/gropdf/gropdf.pl b/src/devices/gropdf/gropdf.pl
index f0b04909a..f7fc229cd 100644
--- a/src/devices/gropdf/gropdf.pl
+++ b/src/devices/gropdf/gropdf.pl
@@ -2063,10 +2063,9 @@ sub UTFName
 
     $s=substr($s,1);
     my $s1=$s;
-    $s1=~s/([[:xdigit:]]{2})/chr(hex($1))/eg;
     my $s2=utf16($s1,1);
 #    return "/".MakeLabel((substr($s2,0,1) eq '/')?$s:$s2);
-    my $s3='/'.join '', map { MakeLabel($_) } unpack('C*',(substr($s2,0,1) eq 
'\\')?$s:$s2);
+    my $s3='/'.join '', map { MakeLabel($_) } unpack('C*',$s2);
     return $s3;
 
 }
@@ -2854,7 +2853,7 @@ sub ParsePDFValue
        return(ParsePDFArray($pdfwds));
     }
 
-    if ($wd=~m/(.*?)(\(.*)$/)
+    if ($wd=~m/(.*?)(\(.*)$/ and substr($wd,0,1) ne '/')
     {
        if (defined($1) and length($1))
        {