X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=op.c;h=5103efb21537ee635765ff1c44e5785d9f8e753f;hb=08d0d8ab11be611f4baf746cfb6ff7791962f494;hp=e32cbdb4c640fa834ba42745c06b365f627eceda;hpb=def18e4c9fd5eb589bbb50de256bb350e973ea47;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/op.c b/op.c
index e32cbdb..5103efb 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);