This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
PATCH: [perl #134067] heap buffer overflow in lexing
[perl5.git] / t / op / tr_latin1.t
1 # Tests for tr, but the test file is not utf8.
2
3 BEGIN {
4     chdir 't' if -d 't';
5     require './test.pl';
6     set_up_inc('../lib');
7 }
8
9 plan tests => 1;
10
11 { # This test is malloc senstive.  Right now on some platforms anyway, space
12   # for the final \xff needs to be mallocd, and that's what caused the
13   # problem, because the '-' had already been parsed and was later added
14   # without making space for it
15     fresh_perl_is('print "\x8c" =~ y o\x{100}Ä\8cÿÿ\80\80-ÿoo', "1", { },
16                     'RT #134067 heap-buffer-overflow in S_scan_const');
17
18 }
19
20 1;