In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/c9930541bfa04399c3b648e83c9b750cee1154fb?hp=c2123ae380a372d506d1b6938667bd785fd8728b>
- Log -----------------------------------------------------------------
commit c9930541bfa04399c3b648e83c9b750cee1154fb
Author: Tony Cook <t...@develop-help.com>
Date: Thu Dec 3 10:20:09 2009 +0100
[perl #70802] -i'*' refuses to work
-----------------------------------------------------------------------
Summary of changes:
doio.c | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
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;
--
Perl5 Master Repository
