make -i'*suffix' work too

p4raw-id: //depot/perl@1378

1 files changed, 2 insertions, 0 deletions

diff --git a/doio.c b/doio.c
index f74f0ea5f5..3a365bfbf4 100644
--- a/doio.c
+++ b/doio.c
@@ -430,6 +430,8 @@ nextargv(register GV *gv)
 			    sv_catpvn(sv, oldname, oldlen);
 			    begin = ++star;
 			} while ((star = strchr(begin, '*')));
+			if (*begin)
+			    sv_catpv(sv,begin);
 		    }
 		    else {
 			sv_catpv(sv,inplace);