From: Tony Cook <tony@develop-help.com>
Date: Thu, 3 Dec 2009 09:20:09 +0000 (+0100)
Subject: [perl #70802] -i'*' refuses to work
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c9930541bfa04399c3b648e83c9b750cee1154fb;p=p5sagit%2Fp5-mst-13.2.git

[perl #70802] -i'*' refuses to work
---

diff --git a/doio.c b/doio.c
index cd470c4..168c10e 100644
--- a/doio.c
+++ b/doio.c
@@ -764,7 +764,7 @@ Perl_nextargv(pTHX_ register GV *gv)
 		    do_close(gv,FALSE);
 		    continue;
 		}
-		if (*PL_inplace) {
+		if (*PL_inplace && strNE(PL_inplace, "*")) {
 		    const char *star = strchr(PL_inplace, '*');
 		    if (star) {
 			const char *begin = PL_inplace;