Fix deparsing of transliterations with unprintable characters.

RT #132405

Signed-off-by: Nicolas R <atoomic@cpan.org>

diff --git a/lib/B/Deparse.pm b/lib/B/Deparse.pm
index 35d305f..7609d63 100644 (file)
--- a/lib/B/Deparse.pm
+++ b/lib/B/Deparse.pm
@@ -5632,7 +5632,7 @@ sub pchr { # ASCII
     } elsif ($n == ord "\r") {
        return '\\r';
     } elsif ($n >= ord("\cA") and $n <= ord("\cZ")) {
-       return '\\c' . unctrl{chr $n};
+       return '\\c' . $unctrl{chr $n};
     } else {
 #      return '\x' . sprintf("%02x", $n);
        return '\\' . sprintf("%03o", $n);

diff --git a/lib/B/Deparse.t b/lib/B/Deparse.t
index b75a162..d94d7f6 100644 (file)
--- a/lib/B/Deparse.t
+++ b/lib/B/Deparse.t
@@ -2851,3 +2851,8 @@ $x = `$a-$b`;
 # multiconcat within qr//
 my($r, $a, $b);
 $r = qr/abc\Q$a-$b\Exyz/;
+####
+# tr with unprintable characters
+my $str;
+$str = 'foo';
+$str =~ tr/\cA//;