|
 |
34484a |
From abd17348111a99642da217c45d836f2df5713594 Mon Sep 17 00:00:00 2001
|
|
|
34484a |
From: John Lightsey <lightsey@debian.org>
|
|
|
34484a |
Date: Tue, 31 Oct 2017 18:12:26 -0500
|
|
|
34484a |
Subject: [PATCH] Fix deparsing of transliterations with unprintable
|
|
|
34484a |
characters.
|
|
|
34484a |
MIME-Version: 1.0
|
|
|
34484a |
Content-Type: text/plain; charset=UTF-8
|
|
|
34484a |
Content-Transfer-Encoding: 8bit
|
|
|
34484a |
|
|
|
34484a |
RT #132405
|
|
|
34484a |
|
|
|
34484a |
Signed-off-by: Nicolas R <atoomic@cpan.org>
|
|
|
34484a |
Petr Písař: Port to 5.26.1.
|
|
|
34484a |
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
|
|
34484a |
---
|
|
|
34484a |
lib/B/Deparse.pm | 2 +-
|
|
|
34484a |
lib/B/Deparse.t | 5 +++++
|
|
|
34484a |
2 files changed, 6 insertions(+), 1 deletion(-)
|
|
|
34484a |
|
|
|
34484a |
diff --git a/lib/B/Deparse.pm b/lib/B/Deparse.pm
|
|
|
34484a |
index 3166415..cc74552 100644
|
|
|
34484a |
--- a/lib/B/Deparse.pm
|
|
|
34484a |
+++ b/lib/B/Deparse.pm
|
|
|
34484a |
@@ -5200,7 +5200,7 @@ sub pchr { # ASCII
|
|
|
34484a |
} elsif ($n == ord "\r") {
|
|
|
34484a |
return '\\r';
|
|
|
34484a |
} elsif ($n >= ord("\cA") and $n <= ord("\cZ")) {
|
|
|
34484a |
- return '\\c' . unctrl{chr $n};
|
|
|
34484a |
+ return '\\c' . $unctrl{chr $n};
|
|
|
34484a |
} else {
|
|
|
34484a |
# return '\x' . sprintf("%02x", $n);
|
|
|
34484a |
return '\\' . sprintf("%03o", $n);
|
|
|
34484a |
diff --git a/lib/B/Deparse.t b/lib/B/Deparse.t
|
|
|
34484a |
index 7eeb4f8..eae9c49 100644
|
|
|
34484a |
--- a/lib/B/Deparse.t
|
|
|
34484a |
+++ b/lib/B/Deparse.t
|
|
|
34484a |
@@ -2610,3 +2610,8 @@ sub ($a, $=) {
|
|
|
34484a |
$a;
|
|
|
34484a |
}
|
|
|
34484a |
;
|
|
|
34484a |
+####
|
|
|
34484a |
+# tr with unprintable characters
|
|
|
34484a |
+my $str;
|
|
|
34484a |
+$str = 'foo';
|
|
|
34484a |
+$str =~ tr/\cA//;
|
|
|
34484a |
--
|
|
|
34484a |
2.13.6
|
|
|
34484a |
|