X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/d1d50e3e86916d266355a8fe5c5374460f7aa033..71622e40793536aa4f2ace7ffc704cc78151fd26:/t/lib/feature/bundle?ds=sidebyside

diff --git a/t/lib/feature/bundle b/t/lib/feature/bundle
index a5a6784..b9facc0 100644
--- a/t/lib/feature/bundle
+++ b/t/lib/feature/bundle
@@ -117,3 +117,11 @@ EXPECT
 Use of assignment to $[ is deprecated at - line 2.
 Assigning non-zero to $[ is no longer possible at - line 5.
 b
+########
+# NAME $^H accidentally enabling all features
+eval 'BEGIN { $^H |= 0x1c020000 } $_ = evalbytes 12345';
+print $_||$@;
+EXPECT
+Number found where operator expected at (eval 1) line 1, near "evalbytes 12345"
+	(Do you need to predeclare evalbytes?)
+syntax error at (eval 1) line 1, near "evalbytes 12345"