===================================================================
RCS file: /cvsrepo/anoncvs/cvs/src/usr.bin/pkg-config/pkg-config,v
retrieving revision 1.20
retrieving revision 1.21
diff -c -r1.20 -r1.21
*** src/usr.bin/pkg-config/pkg-config	2007/02/01 16:38:21	1.20
--- src/usr.bin/pkg-config/pkg-config	2008/08/21 21:57:45	1.21
***************
*** 1,5 ****
  #!/usr/bin/perl
! # $OpenBSD: pkg-config,v 1.20 2007/02/01 16:38:21 espie Exp $
  
  #$CSK: pkgconfig.pl,v 1.39 2006/11/27 16:26:20 ckuethe Exp $
  # Copyright (c) 2006 Chris Kuethe <ckuethe@openbsd.org>
--- 1,5 ----
  #!/usr/bin/perl
! # $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>
***************
*** 323,331 ****
  sub stringize
  {
  	my $list = shift;
  
  	if (defined $list) {
! 		return join(',', @$list)
  	} else {
  		return '';
  	}
--- 323,332 ----
  sub stringize
  {
  	my $list = shift;
+ 	my $sep = shift || ',';
  
  	if (defined $list) {
! 		return join($sep, @$list)
  	} else {
  		return '';
  	}
***************
*** 449,455 ****
  		$fname = basename($f, '.pc');
  		printf("%${x}s %s - %s\n", $fname, 
  		    stringize($cfg->get_property('Name', $variables)), 
! 		    stringize($cfg->get_property('Description', $variables)));
  	}
  	return $error;
  }
--- 450,457 ----
  		$fname = basename($f, '.pc');
  		printf("%${x}s %s - %s\n", $fname, 
  		    stringize($cfg->get_property('Name', $variables)), 
! 		    stringize($cfg->get_property('Description', $variables),
! 		    ' '));
  	}
  	return $error;
  }