From 42d9b98d3f03094883cfc4bb765785a6d4396077 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 8 Nov 2005 21:37:52 +0000
Subject: Eliminate some unnecessary strlen()s

p4raw-id: //depot/perl@26050
---
 doio.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'doio.c')

diff --git a/doio.c b/doio.c
index 76a632a003..be67c6e466 100644
--- 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(newSVpvn(oname,strlen(oname)));
+	namesv = sv_2mortal(newSVpv(oname,0));
 	num_svs = 1;
 	svp = &namesv;
         type = Nullch;
-- 
cgit v1.2.1