From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 8 Jul 1998 20:17:43 +0000 (+0000)
Subject: make -i'*suffix' work too
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3d66d7bbcb640a64506c070858513969e07f7fc1;p=p5sagit%2Fp5-mst-13.2.git

make -i'*suffix' work too

p4raw-id: //depot/perl@1378
---

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