From: Steve Peters <steve@fisharerojo.org>
Date: Fri, 6 Jan 2006 13:04:44 +0000 (+0000)
Subject: Replacing broken call to savepvn() with savepvs() to get threaded
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c86a4f2e37a2a05a9cad736617540ad66d32fda9;p=p5sagit%2Fp5-mst-13.2.git

Replacing broken call to savepvn() with savepvs() to get threaded
Cygwin to compile again.

p4raw-id: //depot/perl@26671
---

diff --git a/perl.c b/perl.c
index f378578..2c8ddbc 100644
--- a/perl.c
+++ b/perl.c
@@ -3053,7 +3053,7 @@ Perl_moreswitches(pTHX_ char *s)
 	Safefree(PL_inplace);
 #if defined(__CYGWIN__) /* do backup extension automagically */
 	if (*(s+1) == '\0') {
-	PL_inplace = savepvn(STR_WITH_LEN(".bak"));
+	PL_inplace = savepvs(".bak");
 	return s+1;
 	}
 #endif /* __CYGWIN__ */