|
@@ -28,6 +28,8 @@ while ($line = <>) {
|
|
|
$line =~ /^Source-Makefile: \s*(.+\/([^\/]+)\/Makefile)\s*$/ and do {
|
|
$line =~ /^Source-Makefile: \s*(.+\/([^\/]+)\/Makefile)\s*$/ and do {
|
|
|
$makefile = $1;
|
|
$makefile = $1;
|
|
|
$src = $2;
|
|
$src = $2;
|
|
|
|
|
+ defined $pkg{$src} or $pkg{$src} = {};
|
|
|
|
|
+ $pkg{$src}->{src} = $src;
|
|
|
};
|
|
};
|
|
|
$line =~ /^Package: \s*(.+)\s*$/ and do {
|
|
$line =~ /^Package: \s*(.+)\s*$/ and do {
|
|
|
$name = $1;
|
|
$name = $1;
|