diff options
| author | Todd C. Miller <millert@cvs.openbsd.org> | 2004-08-09 17:48:49 +0000 |
|---|---|---|
| committer | Todd C. Miller <millert@cvs.openbsd.org> | 2004-08-09 17:48:49 +0000 |
| commit | 069768bdb70fb3052599d3e70898a0ed0e1c31d2 (patch) | |
| tree | 1492d59179e2c9b07cb6c6754f78a3ef6e608e68 /gnu/usr.bin/perl/win32/genmk95.pl | |
| parent | f2ebe24544ebe30f7ed499fda280dce09361f966 (diff) | |
Import of stock perl 5.8.5
Diffstat (limited to 'gnu/usr.bin/perl/win32/genmk95.pl')
| -rw-r--r-- | gnu/usr.bin/perl/win32/genmk95.pl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gnu/usr.bin/perl/win32/genmk95.pl b/gnu/usr.bin/perl/win32/genmk95.pl index 8fe4f86dbfc..cf31457ab10 100644 --- a/gnu/usr.bin/perl/win32/genmk95.pl +++ b/gnu/usr.bin/perl/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); |