From: Rafael Garcia-Suarez <rgs@consttype.org>
Date: Thu, 8 Oct 2009 18:11:41 +0000 (+0200)
Subject: Disable strictures while setting $VERSION in a "package" statement
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=458818ec6f31dcd80a048d863a867a74ad384d02;p=p5sagit%2Fp5-mst-13.2.git

Disable strictures while setting $VERSION in a "package" statement
---

diff --git a/op.c b/op.c
index 64331ee..e341b08 100644
--- a/op.c
+++ b/op.c
@@ -3820,8 +3820,11 @@ void
 Perl_package_version( pTHX_ OP *v )
 {
     dVAR;
+    U32 savehints = PL_hints;
     PERL_ARGS_ASSERT_PACKAGE_VERSION;
+    PL_hints &= ~HINT_STRICT_VARS;
     sv_setsv( GvSV(gv_fetchpvs("VERSION", GV_ADDMULTI, SVt_PV)), cSVOPx(v)->op_sv );
+    PL_hints = savehints;
     op_free(v);
 }