Temporary workaround.

[p5sagit/p5-mst-13.2.git] / t / lib / warnings / op

diff --git a/t/lib/warnings/op b/t/lib/warnings/op
index 2f847ad..2c2c3f5 100644 (file)
--- a/t/lib/warnings/op
+++ b/t/lib/warnings/op
@@ -103,6 +103,9 @@
         fred() ; sub fred ($$) {}
 
 
+     Use of "package" with no arguments is deprecated
+       package;
+
     Mandatory Warnings 
     ------------------
     Prototype mismatch:                [cv_ckproto]
@@ -926,3 +929,13 @@ unshift(@x);
 EXPECT
 Useless use of push with no values at - line 4.
 Useless use of unshift with no values at - line 5.
+########
+# op.c
+use warnings 'deprecated' ;
+package;
+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.