[perl #70802] -i'*' refuses to work
authorTony Cook <tony@develop-help.com>
Thu, 3 Dec 2009 09:20:09 +0000 (10:20 +0100)
committerRafael Garcia-Suarez <rgs@consttype.org>
Thu, 3 Dec 2009 09:23:04 +0000 (10:23 +0100)
doio.c

diff --git a/doio.c b/doio.c
index cd470c4..168c10e 100644 (file)
--- 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;