Allow multiple consecutive empty lines

diff --git a/ChangeLog b/ChangeLog
index 1a1f68552eac55db32bfcf0272238595da75282c..b85759374aea61637890f4158217e6a7842fb8ab 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Sun Apr 14 00:49:09 CEST 2002 Wichert Akkerman <wichert@deephackmode.org>
+
+  * scripts/controlllib.pl: accept multilpe consectucive empty lines
+
 Sat Apr 13 22:59:25 CEST 2002 Wichert Akkerman <wichert@deephackmode.org>
 
   * man/en/deb-control.5.sgml: DocBook version of deb-control manpage

diff --git a/scripts/controllib.pl b/scripts/controllib.pl
index b737d740b1248b51595e27619b014ae440dd465d..69e2ecf50e27a4b62a0b120a90089d3a75e9f4f1 100755 (executable)
--- a/scripts/controllib.pl
+++ b/scripts/controllib.pl
@@ -177,10 +177,12 @@ sub parsecdata {
     # many=0: ordinary control data like output from dpkg-parsechangelog
     # many=1: many paragraphs like in source control file
     # many=-1: single paragraph of control data optionally signed
-    local ($index,$cf);
-    $index=''; $cf='';
+    local ($index,$cf,$paraborder);
+    $index=''; $cf=''; $paraborder=1;
     while (<CDATA>) {
         s/\s*\n$//;
+       if (m/^$/) and $paraborder) next;
+       $paraborder=0;
         if (m/^(\S+)\s*:\s*(.*)$/) {
             $cf=$1; $v=$2;
             $cf= &capit($cf);
@@ -194,6 +196,7 @@ sub parsecdata {
             while (<CDATA>) { last if m/^$/; }
             $many= -2;
         } elsif (m/^$/) {
+           $paraborder = 1;
             if ($many>0) {
                 $index++; $cf='';
             } elsif ($many == -2) {