Using savesvpv() here is terser and produces smaller object code.

p4raw-id: //depot/perl@24167

1 files changed, 1 insertions, 4 deletions

diff --git a/doio.c b/doio.c
index e9effd95b6..26079cb4ae 100644
--- a/doio.c
+++ b/doio.c
@@ -219,7 +219,6 @@ Perl_do_openn(pTHX_ GV *gv, register char *name, I32 len, int as_raw,
 
 	if (num_svs) {
 	    /* New style explicit name, type is just mode and layer info */
-	    STRLEN l = 0;
 #ifdef USE_STDIO
 	    if (SvROK(*svp) && !strchr(name,'&')) {
 		if (ckWARN(WARN_IO))
@@ -229,9 +228,7 @@ Perl_do_openn(pTHX_ GV *gv, register char *name, I32 len, int as_raw,
 		goto say_false;
 	    }
 #endif /* USE_STDIO */
-	    name = SvOK(*svp) ? SvPV(*svp, l) : "";
-	    len = (I32)l;
-	    name = savepvn(name, len);
+	    name = SvOK(*svp) ? savesvpv (*svp) : savepvn ("", 0);
 	    SAVEFREEPV(name);
 	}
 	else {