sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2025-01-26 10:04:02 +03:00
Code

r19862: Fix list concatenation

Browse Source
This commit is contained in:
Jelmer Vernooij 2006-11-23 17:50:47 +00:00 committed by Gerald (Jerry) Carter
parent a42220c356
commit a26da5182e
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
source/script/pkg-config
View File

@ -92,27 +92,27 @@ sub Cflags($)
{
my $name = shift;
my $fields = Parse($name);
my $cflags = $fields->{Cflags};
my @cflags = split(/ /, $fields->{Cflags});
foreach (split(/[, ]/, $fields->{Requires})) {
$cflags .= " ".Cflags($_);
push (@cflags, Cflags($_));
}
return split(/ /, $cflags);
return @cflags;
}
sub Libs($)
{
my $name = shift;
my $fields = Parse($name);
my $libs = $fields->{Libs};
my @libs = split(/ /, $fields->{Libs});
foreach (split(/[, ]/, $fields->{Requires})) {
$libs .= " ".Libs($_);
push (@libs, Libs($_));
}
if ($opt_static) {
foreach (split(/[ ,]/, $fields->{"Requires.private"})) {
$libs .= " ".Libs($_);
push (@libs, Libs($_));
}
}
return split(/ /, $libs);
return @libs;
}
my @out = ();