make -i'*suffix' work too

p4raw-id: //depot/perl@1378

diff --git a/doio.c b/doio.c
index f74f0ea..3a365bf 100644 (file)
--- 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);