Add get_cvs() as a shortcut for STR_WITH_LEN() and Perl_get_cvn_flags(), and

use it where possible.

1 files changed, 1 insertions, 2 deletions

diff --git a/op.c b/op.c
index e32cbdb4c6..5103efb215 100644
--- a/op.c
+++ b/op.c
@@ -2338,8 +2338,7 @@ Perl_newPROG(pTHX_ OP *o)
 
 	/* Register with debugger */
 	if (PERLDB_INTER) {
-	    CV * const cv
-		= Perl_get_cvn_flags(aTHX_ STR_WITH_LEN("DB::postponed"), 0);
+	    CV * const cv = get_cvs("DB::postponed", 0);
 	    if (cv) {
 		dSP;
 		PUSHMARK(SP);