From: Greg Matheson <lang@ms.chinmin.edu.tw>
Date: Fri, 20 Feb 2004 15:34:59 +0000 (+0800)
Subject: genmk95.pl touchup for distclean on Win98
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ab5f7a047194357ab367848e6e322b76ed830de6;p=p5sagit%2Fp5-mst-13.2.git

genmk95.pl touchup for distclean on Win98
Message-ID: <20040220153459.A30249@ms.chinmin.edu.tw>

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

diff --git a/win32/genmk95.pl b/win32/genmk95.pl
index 8fe4f86..cf31457 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);