Eliminate some unnecessary strlen()s

p4raw-id: //depot/perl@26050

1 files changed, 1 insertions, 1 deletions

diff --git a/util.c b/util.c
index b558f7a121..4b115d28c8 100644
--- a/util.c
+++ b/util.c
@@ -3759,7 +3759,7 @@ Perl_getcwd_sv(pTHX_ register SV *sv)
 	 * size from the heap if they are given a NULL buffer pointer.
 	 * The problem is that this behaviour is not portable. */
 	if (getcwd(buf, sizeof(buf) - 1)) {
-	    sv_setpvn(sv, buf, strlen(buf));
+	    sv_setpv(sv, buf);
 	    return TRUE;
 	}
 	else {