Match revision separator only if preceded by a newline.
authorSascha Wildner <swildner@dragonflybsd.org>
Mon, 10 Jul 2006 23:07:45 +0000 (23:07 +0000)
committerSascha Wildner <swildner@dragonflybsd.org>
Mon, 10 Jul 2006 23:07:45 +0000 (23:07 +0000)
This prevents the script from choking on

CVS ----------------------------------------------------------------------

lines accidentally left in commit messages.

perl-clue: corecode

tools/tools/commitsdb/make_commit_db

index 078b5c4..67b42d8 100644 (file)
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 # $FreeBSD: src/tools/tools/commitsdb/make_commit_db,v 1.2 2002/10/17 16:29:26 joe Exp $
-# $DragonFly: src/tools/tools/commitsdb/make_commit_db,v 1.3 2006/07/10 20:34:47 swildner Exp $
+# $DragonFly: src/tools/tools/commitsdb/make_commit_db,v 1.4 2006/07/10 23:07:45 swildner Exp $
 
 # This script walks the tree from the current directory
 # and spits out a database generated by md5'ing the cvs log
@@ -65,7 +65,7 @@ sub parse_log_message {
        close LOG;
 
        # Split the log into revisions.
-       my @entries = split /----------------------------\n/, $log;
+       my @entries = split /(?<=\n)----------------------------\n/, $log;
 
        # Throw away the first entry.
        shift @entries;