Rework #16506 some more.

[perl5.git] / win32 / genmk95.pl

diff --git a/win32/genmk95.pl b/win32/genmk95.pl
index 6137ce2..8fe4f86 100644 (file)
--- a/win32/genmk95.pl
+++ b/win32/genmk95.pl
@@ -45,9 +45,12 @@ while (<$in>)
        next;
     }
     else {
-       seek ($out, -3, 2);      # no recipe, so back up and undo grouping
+       if (!/^\t/) {
+           seek ($out, -4, 2);      # no recipe, so back up and undo grouping
+                                    # should be -3, but MS has its CR/LF thing...
+           $inrec = 0;
+       }
        print $out "$_\n";
-       $inrec = 0;
        next;
     }
  }