This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update feature hint bit twiddling test for widened HINT_FEATURE_MASK
[perl5.git] / t / lib / feature / bundle
index d12c791..5c70063 100644 (file)
@@ -103,7 +103,8 @@ EXPECT
 Assigning non-zero to $[ is no longer possible at - line 3.
 ########
 # NAME $^H accidentally enabling all features
-eval 'BEGIN { $^H |= 0x1c020000 } $_ = evalbytes 12345';
+# HINT_FEATURE_MASK | HINT_LOCALIZE_HH
+eval 'BEGIN { $^H |= 0x3c020000 } $_ = evalbytes 12345';
 print $_||$@;
 EXPECT
 Number found where operator expected at (eval 1) line 1, near "evalbytes 12345"