Add get_cvn_flags(), which is like get_cv() but takes a length. This

allows symbolic code references with embeded NULs to work.

p4raw-id: //depot/perl@29830

1 files changed, 1 insertions, 1 deletions

diff --git a/perlio.c b/perlio.c
index 54aab1b1ab..6e2d9e1570 100644
--- a/perlio.c
+++ b/perlio.c
@@ -796,7 +796,7 @@ PerlIO_find_layer(pTHX_ const char *name, STRLEN len, int load)
 	} else {
 	    SV * const pkgsv = newSVpvs("PerlIO");
 	    SV * const layer = newSVpvn(name, len);
-	    CV * const cv    = get_cv("PerlIO::Layer::NoWarnings", FALSE);
+	    CV * const cv    = Perl_get_cvn_flags(aTHX_ STR_WITH_LEN("PerlIO::Layer::NoWarnings"), 0);
 	    ENTER;
 	    SAVEINT(PL_in_load_module);
 	    if (cv) {