diff options
| author | Greg Matheson <lang@ms.chinmin.edu.tw> | 2004-02-20 23:34:59 +0800 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-02-20 10:23:51 +0000 |
| commit | ab5f7a047194357ab367848e6e322b76ed830de6 (patch) | |
| tree | b376d8ef07dae99da00933fe3aad629801713d25 | |
| parent | 2e589669eafeeb5926172d4cb6ac6bed09c991ce (diff) | |
| download | perl-ab5f7a047194357ab367848e6e322b76ed830de6.tar.gz | |
genmk95.pl touchup for distclean on Win98
Message-ID: <20040220153459.A30249@ms.chinmin.edu.tw>
p4raw-id: //depot/perl@22346
| -rw-r--r-- | win32/genmk95.pl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/win32/genmk95.pl b/win32/genmk95.pl index 8fe4f86dbf..cf31457ab1 100644 --- a/win32/genmk95.pl +++ b/win32/genmk95.pl @@ -64,6 +64,7 @@ while (<$in>) if (/^(.*?)(&&|\|\|)(.*)$/) # two commands separated by && or || { my ($one, $sep, $two) = ($1, $2, $3); + $one =~ s/^\t(?:-(?!-))?\@?(.*?)$/\t$1/; # no -,@ in group recipes LINE_CONT: if ($two =~ /\\\s*$/) { @@ -77,6 +78,7 @@ LINE_CONT: next; } # fall through - no need for special handling + s/^\t(?:-(?!-))?\@?(.*?)$/\t$1/; # no -,@ in group recipes print $out "$_\n"; } print $out "]\n" if ($inrec); |