In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/9b7098c1c609d4628b5baab6f2c82660c2f29aef?hp=c42fde619a5536f7365e04b0ea569a21881b92ee>
- Log ----------------------------------------------------------------- commit 9b7098c1c609d4628b5baab6f2c82660c2f29aef Author: Karl Williamson <[email protected]> Date: Sun Mar 8 09:15:44 2015 -0600 t/test.pl: Actually change the code Commit c42fde619a5536f7365e04b0ea569a21881b92ee claimed to do what this commit actually does. I forgot to merge the two commits before pushing. ----------------------------------------------------------------------- Summary of changes: t/test.pl | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/t/test.pl b/t/test.pl index de82e94..ef33e88 100644 --- a/t/test.pl +++ b/t/test.pl @@ -303,7 +303,12 @@ sub display { $y = $y . $backslash_escape{$c}; } else { my $z = chr $c; # Maybe we can get away with a literal... - if ($z =~ /[[:^print:]]/a) { + + if ($z !~ /[^[:^print:][:^ascii:]]/) { + # The pattern above is equivalent (by de Morgan's + # laws) to: + # $z !~ /(?[ [:print:] & [:ascii:] ])/ + # or, $z is not an ascii printable character # Use octal for characters with small ordinals that # are traditionally expressed as octal: the controls -- Perl5 Master Repository
