mlot/alien
1
0
Fork 0
mirror of https://github.com/Project-OSS-Revival/alien.git synced 2026-04-24 14:00:17 +00:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Benjamin Cant <ben@aegis.hands.com> to make it work even if

Browse Source 
there is no space after control file lines in a debian package.
This commit is contained in:
joey
1999-09-23 18:44:53 +00:00
parent 8ba81966da
commit 503de52c45
2 changed files with 15 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
debian/changelog vendored
View File

@@ -1,3 +1,10 @@
alien (6.48) unstable; urgency=low
* Patch from Benjamin Cant <ben@aegis.hands.com> to make it work even if
there is no space after control file lines in a debian package.
-- Joey Hess <joeyh@master.debian.org> Thu, 23 Sep 1999 11:41:59 -0700
alien (6.47) unstable; urgency=low alien (6.47) unstable; urgency=low
* Now FHS compliant. But the packages it builds will probably not be.. * Now FHS compliant. But the packages it builds will probably not be..

16
lib/Fromdeb.pm
View File

@@ -37,14 +37,14 @@ sub GetFields { my ($self,$file)=@_;
while ($i<=$#control) { while ($i<=$#control) {
$_ = $control[$i]; $_ = $control[$i];
chomp; chomp;
$fields{NAME} = $1 if (/^Package: (.+)/i); $fields{NAME} = $1 if (/^Package:\s*(.+)/i);
$fields{VERSION} = $1 if (/^Version: (.+)/i); $fields{VERSION} = $1 if (/^Version:\s*(.+)/i);
$fields{ARCH} = $1 if (/^Architecture: (.+)/i); $fields{ARCH} = $1 if (/^Architecture:\s*(.+)/i);
$fields{MAINTAINER} = $1 if (/^Maintainer: (.+)/i); $fields{MAINTAINER} = $1 if (/^Maintainer:\s*(.+)/i);
$fields{DEPENDS} = $1 if (/^Depends: (.+)/i); $fields{DEPENDS} = $1 if (/^Depends:\s*(.+)/i);
$fields{REQUIRES} = $1 if (/^Requires: (.+)/i); $fields{REQUIRES} = $1 if (/^Requires:\s*(.+)/i);
$fields{GROUP} = $1 if (/^Section: (.+)/i); $fields{GROUP} = $1 if (/^Section:\s*(.+)/i);
if (/^Description: (.+)/i) { if (/^Description:\s*(.+)/i) {
$fields{SUMMARY} = "$1"; $fields{SUMMARY} = "$1";
$i++; $i++;
while (($i<=$#control) && ($control[$i])) { while (($i<=$#control) && ($control[$i])) {