Deprecate above \xFF in bitwise string ops

[perl5.git] / t / op / smartkve.t

diff --git a/t/op/smartkve.t b/t/op/smartkve.t
index f092a8c..818cbf3 100644 (file)
--- a/t/op/smartkve.t
+++ b/t/op/smartkve.t
@@ -8,7 +8,7 @@ BEGIN {
 use strict;
 use warnings;
 no warnings 'experimental::refaliasing';
-use vars qw($data $array $values $hash $errpat);
+our ($data, $array, $values, $hash, $errpat);
 
 plan 'no_plan';
 
@@ -19,8 +19,9 @@ sub set_errpat {
     # yyerror for the error, rather than croak.  yyerror is preferable for
     # compile-time errors.
     $errpat =
-       qr/Experimental $_[0] on scalar is now forbidden .* line 1,(?x:
-         ).*Type of arg 1 to $_[0] must be hash or array \(not /s;
+       qr/Experimental $_[0] on scalar is now forbidden .* line 1\.(?x:
+         ).*Type of arg 1 to $_[0] must be hash or array \(not (?x:
+         ).*line 1,/s;
 }
 
 # Keys -- errors