perlio.c: misuse of SvPV_nolen_const

SvPV_nolen_const takes only one argument and does not return
a length.

1 files changed, 1 insertions, 1 deletions

diff --git a/perlio.c b/perlio.c
index c2cc3197ce..cf29586e1c 100644
--- a/perlio.c
+++ b/perlio.c
@@ -313,7 +313,7 @@ PerlIO_openn(pTHX_ const char *layers, const char *mode, int fd,
 	    return PerlIO_tmpfile();
 	else {
             STRLEN len;
-	    const char *name = SvPV_nolen_const(*args, len);
+	    const char *name = SvPV_const(*args, len);
             if (!IS_SAFE_PATHNAME(name, len, "open"))
                 return NULL;