From 46fd623bcb3dd2d045f0f591e4c47a50a244165c Mon Sep 17 00:00:00 2001
From: Matthew Wall <mwall>
Date: Fri, 15 Feb 2013 13:22:50 +0000
Subject: [PATCH] added comments to changelog generator

---
 pkg/mkchangelog.pl | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/pkg/mkchangelog.pl b/pkg/mkchangelog.pl
index ce9116e5..531109bb 100755
--- a/pkg/mkchangelog.pl
+++ b/pkg/mkchangelog.pl
@@ -2,8 +2,12 @@
 # $Id$
 # Copyright Matthew Wall
 #
-# Convert the changelog to various formats.  When no format is specified, the
-# input is adjusted to 80-column.
+# Convert the changelog to various formats, or create a changelog stub suitable
+# for inclusion in debian or redhat packaging.  Username and email are
+# required.  This script uses gpg to guess username and email, since packages
+# must be signed by gpg credentials with the username and email in the package
+# changelog.
+#
 #
 # input format:
 #
@@ -230,8 +234,10 @@ sub dumpsection {
         # unescape the fixed spacing lines
         @lines = ();
         foreach my $line (split('\n',$p)) {
-            $line =~ s/~/ /g;
-            $line =~ s/=//g;
+            if ($line =~ /~/) {
+                $line =~ s/~/ /g;
+                $line =~ s/=//g;
+            }
             push @lines, $line;
         }
         # print out the result