This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/test.pl: Display an ESC control char as \e
authorKarl Williamson <khw@cpan.org>
Sat, 14 Dec 2019 20:46:51 +0000 (13:46 -0700)
committerKarl Williamson <khw@cpan.org>
Sat, 18 Jul 2020 04:04:08 +0000 (22:04 -0600)
t/test.pl

index c754090..eeba808 100644 (file)
--- a/t/test.pl
+++ b/t/test.pl
@@ -304,7 +304,7 @@ eval 'sub re::is_regexp { ref($_[0]) eq "Regexp" }'
 
 # keys are the codes \n etc map to, values are 2 char strings such as \n
 my %backslash_escape;
-foreach my $x (split //, 'nrtfa\\\'"') {
+foreach my $x (split //, 'enrtfa\\\'"') {
     $backslash_escape{ord eval "\"\\$x\""} = "\\$x";
 }
 # A way to display scalars containing control characters and Unicode.