deri pushed a commit to branch master
in repository groff.
commit 9b8b3e2a508d7df0b661c9042b5f5d5e7a0688da
Author: Deri James <d...@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))
{
_______________________________________________
Groff-commit mailing list
Groff-commit@gnu.org
https://lists.gnu.org/mailman/listinfo/groff-commit
