Minor bug fix.

diff --git a/sccs2rcs b/sccs2rcs
index 705693291c44bda592ced201c4dc12a1d633d48b..09fa971f6a7c448939c7dc0d9b2751abb0b50c18 100755 (executable)
--- a/sccs2rcs
+++ b/sccs2rcs
@@ -68,6 +68,9 @@
 # of RCS workfiles corresponding to SCCS workfiles present when started.
 # Lifting of VC mode snapshot info.  Initial-comments file.
 #
+# 1.5: Bug fix in comment extraction from Peter Grandcourt and Frederic
+# G. Marand.
+#
 # Eric S. Raymond <esr@thyrsus.com>
 #
 # $Id$
@@ -313,8 +316,10 @@ if __name__ == '__main__':
                     deltalines.pop(0)
                     if line.startswith("COMMENTS"):
                         break
-                while not deltalines[0].strip():
-                    deltalines.pop(0)
+                # Strip ;eading blank lines if present.
+                if deltalines != ['', '']:
+                    while not deltalines[0].strip():
+                        deltalines.pop(0)
                 deltamsg = "\n".join(deltalines)
                 cmd = 'ci -f -r%s -d"%s" -w%s %s' % (rev, rcsdate, author, stem)
                 # FIXME: output of this command isn't logged