summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgs@consttype.org>2009-10-08 15:13:18 +0200
committerRafael Garcia-Suarez <rgs@consttype.org>2009-10-08 15:13:18 +0200
commit1665bca07dc555ad9940968da9d6f7b158ac2a47 (patch)
treea2448eb5d47fd2fddb17fd959f688edca6fb03a1 /op.c
parent8e3247042c02fd16ad4031fefd53fa013b28bc29 (diff)
parente92f586bd3fd45336a351e251027401d8d4a7135 (diff)
downloadperl-1665bca07dc555ad9940968da9d6f7b158ac2a47.tar.gz
Merge branch 'feature/package-name-version' into blead
Diffstat (limited to 'op.c')
-rw-r--r--op.c9
1 files changed, 9 insertions, 0 deletions
diff --git a/op.c b/op.c
index 4d85e23eb4..64331ee526 100644
--- a/op.c
+++ b/op.c
@@ -3816,6 +3816,15 @@ Perl_package(pTHX_ OP *o)
#endif
}
+void
+Perl_package_version( pTHX_ OP *v )
+{
+ dVAR;
+ PERL_ARGS_ASSERT_PACKAGE_VERSION;
+ sv_setsv( GvSV(gv_fetchpvs("VERSION", GV_ADDMULTI, SVt_PV)), cSVOPx(v)->op_sv );
+ op_free(v);
+}
+
#ifdef PERL_MAD
OP*
#else