This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In Perl_do_openn() we know the length of oname, so use it when creating
authorNicholas Clark <nick@ccl4.org>
Sat, 20 Oct 2007 16:16:56 +0000 (16:16 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 20 Oct 2007 16:16:56 +0000 (16:16 +0000)
an SV.

p4raw-id: //depot/perl@32151

doio.c

diff --git a/doio.c b/doio.c
index 1c7eb52..fbd1910 100644 (file)
--- a/doio.c
+++ b/doio.c
@@ -176,7 +176,7 @@ Perl_do_openn(pTHX_ GV *gv, register const char *oname, I32 len, int as_raw,
 
         IoTYPE(io) = PerlIO_intmode2str(rawmode, &mode[ix], &writing);
 
-       namesv = sv_2mortal(newSVpv(oname,0));
+       namesv = sv_2mortal(newSVpvn(oname,len));
        num_svs = 1;
        svp = &namesv;
        type = NULL;