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.

1 files changed, 1 insertions, 1 deletions

diff --git a/dump.c b/dump.c
index 8fc433c912..420c486cb2 100644
--- a/dump.c
+++ b/dump.c
@@ -2277,7 +2277,7 @@ Perl_debop(pTHX_ const OP *o)
 	    assert(SvROK(cGVOPo_gv));
 	    assert(SvTYPE(SvRV(cGVOPo_gv)) == SVt_PVCV);
 	    PerlIO_printf(Perl_debug_log, "(cv ref: %s)",
-		      SvPV_nolen_const(cv_name((CV *)SvRV(cGVOPo_gv),sv)));
+		    SvPV_nolen_const(cv_name((CV *)SvRV(cGVOPo_gv),sv,0)));
 	    SvREFCNT_dec_NN(sv);
 	}
 	else