diff options
| author | joey <joey> | 2000-09-21 02:47:05 +0000 |
|---|---|---|
| committer | joey <joey> | 2000-09-21 02:47:05 +0000 |
| commit | d862e7704c86e7cdec8083932821d905a687d0b1 (patch) | |
| tree | 488633b6727730fce99037f758c767cf03c70ef9 /Debian/Debhelper | |
| parent | c9e08fed467c2ff1a0ed92b49c54cfd6ca72cd02 (diff) | |
r371: * Modified to allow no spaces between control file field name and value
(this appears to be logal).
Diffstat (limited to 'Debian/Debhelper')
| -rw-r--r-- | Debian/Debhelper/Dh_Lib.pm | 6 |
1 files changed, 3 insertions, 3 deletions
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. |