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 (file)
--- 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);