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

16
lib/Fromdeb.pm
View File

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