diff options
author | Rafael Garcia-Suarez <rgs@consttype.org> | 2009-10-08 15:13:18 +0200 |
---|---|---|
committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2009-10-08 15:13:18 +0200 |
commit | 1665bca07dc555ad9940968da9d6f7b158ac2a47 (patch) | |
tree | a2448eb5d47fd2fddb17fd959f688edca6fb03a1 /op.c | |
parent | 8e3247042c02fd16ad4031fefd53fa013b28bc29 (diff) | |
parent | e92f586bd3fd45336a351e251027401d8d4a7135 (diff) | |
download | perl-1665bca07dc555ad9940968da9d6f7b158ac2a47.tar.gz |
Merge branch 'feature/package-name-version' into blead
Diffstat (limited to 'op.c')
-rw-r--r-- | op.c | 9 |
1 files changed, 9 insertions, 0 deletions
@@ -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 |