From d862e7704c86e7cdec8083932821d905a687d0b1 Mon Sep 17 00:00:00 2001
From: joey <joey>
Date: Thu, 21 Sep 2000 02:47:05 +0000
Subject: r371:    * Modified to allow no spaces between control file field
 name and value      (this appears to be logal).

---
 Debian/Debhelper/Dh_Lib.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Debian/Debhelper')

diff --git a/Debian/Debhelper/Dh_Lib.pm b/Debian/Debhelper/Dh_Lib.pm
index 42d40974..e71895e4 100644
--- a/Debian/Debhelper/Dh_Lib.pm
+++ b/Debian/Debhelper/Dh_Lib.pm
@@ -271,7 +271,7 @@ sub pkgext { my $package=shift;
 
 			# Get the package version.
 			my $version=`dpkg-parsechangelog -l$isnative_changelog`;
-			($dh{VERSION})=$version=~m/Version: (.*)/m;
+			($dh{VERSION})=$version=~m/Version:\s*(.*)/m;
 
 			# Did the changelog parse fail?
 			if (! defined $dh{VERSION}) {
@@ -371,10 +371,10 @@ sub GetPackages { my $type=shift;
 	while (<CONTROL>) {
 		chomp;
 		s/\s+$//;
-		if (/^Package:\s+(.*)/) {
+		if (/^Package:\s*(.*)/) {
 			$package=$1;
 		}
-		if (/^Architecture:\s+(.*)/) {
+		if (/^Architecture:\s*(.*)/) {
 			$arch=$1;
 		}
 		if (!$_ or eof) { # end of stanza.
-- 
cgit v1.2.3