#!/usr/bin/perl
-# $OpenBSD: pkg-config,v 1.20 2007/02/01 16:38:21 espie Exp $
+# $OpenBSD: pkg-config,v 1.21 2008/08/21 21:57:45 simon Exp $
#$CSK: pkgconfig.pl,v 1.39 2006/11/27 16:26:20 ckuethe Exp $
# Copyright (c) 2006 Chris Kuethe <ckuethe@openbsd.org>
sub stringize
{
my $list = shift;
+ my $sep = shift || ',';
if (defined $list) {
- return join(',', @$list)
+ return join($sep, @$list)
} else {
return '';
}
$fname = basename($f, '.pc');
printf("%${x}s %s - %s\n", $fname,
stringize($cfg->get_property('Name', $variables)),
- stringize($cfg->get_property('Description', $variables)));
+ stringize($cfg->get_property('Description', $variables),
+ ' '));
}
return $error;
}