1__END__
2# doop.c
3use utf8 ;
4$_ = "\x80  \xff" ;
5chop ;
6EXPECT
7########
8# NAME vec with above ff code points is deprecated
9my $foo = "\x{100}" . "\xff\xfe";
10eval { vec($foo, 1, 8) };
11no warnings 'deprecated';
12eval { vec($foo, 1, 8) };
13EXPECT
14Use of strings with code points over 0xFF as arguments to vec is deprecated. This will be a fatal error in Perl 5.32 at - line 2.
15