A proof of the dangers of package; ?

p4raw-id: //depot/perl@11262

diff --git a/t/lib/warnings/op b/t/lib/warnings/op
index d3a2d54..2018596 100644 (file)
--- a/t/lib/warnings/op
+++ b/t/lib/warnings/op
@@ -969,3 +969,5 @@ no warnings 'deprecated' ;
 package;
 EXPECT
 Use of "package" with no arguments is deprecated at - line 3.
+Global symbol "BEGIN" requires explicit package name at - line 4.
+BEGIN not safe after errors--compilation aborted at - line 4.