cpet/openbsd-ports
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

p5-PDF-API2: add upstream patch, "Fix encoding of \n in string with

Browse Source 
non-printable chars"
This commit is contained in:
sthen 2021-04-07 09:06:32 +00:00
parent 0f587a49ac
commit 7c6ab46529
2 changed files with 34 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
textproc/p5-PDF-API2/Makefile
View File

@ -1,4 +1,4 @@
# $OpenBSD: Makefile,v 1.32 2021/03/06 15:31:12 sthen Exp $
# $OpenBSD: Makefile,v 1.33 2021/04/07 09:06:32 sthen Exp $
COMMENT = create PDF documents with perl
@ -6,6 +6,7 @@ MODULES = cpan
PKG_ARCH = *
DISTNAME = PDF-API2-2.039
REVISION = 0
CATEGORIES = textproc

32
textproc/p5-PDF-API2/patches/patch-lib_PDF_API2_Basic_PDF_String_pm Normal file
View File

@ -0,0 +1,32 @@
$OpenBSD: patch-lib_PDF_API2_Basic_PDF_String_pm,v 1.1 2021/04/07 09:06:32 sthen Exp $
From 3d9787d0c17f7b54af56024a0509f49cd77a54d4 Mon Sep 17 00:00:00 2001
From: Steve Simms <steve@deefs.net>
Date: Tue, 6 Apr 2021 20:09:31 -0400
Subject: [PATCH] [RT #134957] Fix encoding of \n in string with non-printable
chars
From c63a96f0ccc79a335801466a0b1e963084dd6e8a Mon Sep 17 00:00:00 2001
From: Steve Simms <steve@deefs.net>
Date: Tue, 6 Apr 2021 20:13:15 -0400
Subject: [PATCH] Remove unnecessary regex flags
Index: lib/PDF/API2/Basic/PDF/String.pm
--- lib/PDF/API2/Basic/PDF/String.pm.orig
+++ lib/PDF/API2/Basic/PDF/String.pm
@@ -191,12 +191,12 @@ sub as_pdf {
return "<FEFF$str>";
}
else {
- if ($str =~ m/[^\n\r\t\b\f\040-\176\200-\377]/oi) {
- $str =~ s/(.)/sprintf('%02X', ord($1))/oge;
+ if ($str =~ m/[^\n\r\t\b\f\040-\176\200-\377]/) {
+ $str =~ s/(.)/sprintf('%02X', ord($1))/sge;
return "<$str>";
}
else {
- $str =~ s/([\n\r\t\b\f\\()])/\\$out_trans{$1}/ogi;
+ $str =~ s/([\n\r\t\b\f\\()])/\\$out_trans{$1}/g;
return "($str)";
}
}