diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-09-24 00:37:58 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-09-24 00:37:58 -0700 |
| commit | ecf05a582e3c4c0f74622847331af430479c4fcb (patch) | |
| tree | 85f4cb5bbd727d64bcbf6c173eb8731f66cb87fe /pp_ctl.c | |
| parent | 5e8814954c268f117d70c5156096c5bf7bb1cff7 (diff) | |
| download | perl-ecf05a582e3c4c0f74622847331af430479c4fcb.tar.gz | |
Add flags to cv_name; allow unqualified retval
One of the main purposes of cv_name was to provide a way for CPAN mod-
ules easily to obtain the name of a sub. As written, it was not
actually sufficient, as some modules, such as Devel::Declare, need an
unqualified name.
So I am breaking compatibility with 5.21.4 (which introduced cv_name,
but is only a dev release) by adding a flags parameter.
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1820,7 +1820,7 @@ PP(pp_caller) if (CxTYPE(cx) == CXt_SUB || CxTYPE(cx) == CXt_FORMAT) { /* So is ccstack[dbcxix]. */ if (CvHASGV(dbcx->blk_sub.cv)) { - PUSHs(cv_name(dbcx->blk_sub.cv, 0)); + PUSHs(cv_name(dbcx->blk_sub.cv, 0, 0)); PUSHs(boolSV(CxHASARGS(cx))); } else { |