__END__
# doop.c
use utf8 ;
$_ = "\x80  \xff" ;
chop ;
EXPECT
########
# NAME vec with above ff code points is deprecated
my $foo = "\x{100}" . "\xff\xfe";
eval { vec($foo, 1, 8) };
no warnings 'deprecated';
eval { vec($foo, 1, 8) };
EXPECT
Use 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.
