This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/re/regexp.t: Fix to properly handle EBCDIC
authorKarl Williamson <khw@cpan.org>
Wed, 20 May 2020 20:27:10 +0000 (14:27 -0600)
committerSawyer X <xsawyerx@cpan.org>
Wed, 27 May 2020 08:09:32 +0000 (11:09 +0300)
5.31 commit 2b7f9bbf39f71c0d94db058b0110977a9470c1b2 caused this to not
work at all on EBCDIC platforms.

t/re/regexp.t

index 2448439..3081bd5 100644 (file)
@@ -132,7 +132,7 @@ sub convert_from_ascii_guts {
 
 *convert_from_ascii = (ord("A") == 65)
                       ? sub { 1; }
-                      : convert_from_ascii_guts;
+                      : \&convert_from_ascii_guts;
 
 $bang = sprintf "\\%03o", ord "!"; # \41 would not be portable.
 $ffff  = chr(0xff) x 2;