svn commit: samba r19862 - in branches/SAMBA_4_0/source/script: .

[jelmer at samba.org]

Author: jelmer
Date: 2006-11-23 17:50:47 +0000 (Thu, 23 Nov 2006)
New Revision: 19862

WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=19862

Log:
Fix list concatenation

Modified:
   branches/SAMBA_4_0/source/script/pkg-config


Changeset:
Modified: branches/SAMBA_4_0/source/script/pkg-config
===================================================================
--- branches/SAMBA_4_0/source/script/pkg-config	2006-11-23 17:27:04 UTC (rev 19861)
+++ branches/SAMBA_4_0/source/script/pkg-config	2006-11-23 17:50:47 UTC (rev 19862)
@@ -92,27 +92,27 @@
 {
 	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 = ();