From 80f4de62bddc6fa11d812567d987dde8d846b462 Mon Sep 17 00:00:00 2001
From: Jonas Smedegaard <dr@jones.dk>
Date: Mon, 28 Jul 2014 02:41:01 +0200
Subject: Fix avoid trailing space in generated package lists.

---
 bin/pkglist2preseed | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/bin/pkglist2preseed b/bin/pkglist2preseed
index c93debe..0162726 100755
--- a/bin/pkglist2preseed
+++ b/bin/pkglist2preseed
@@ -15,13 +15,13 @@ my $outdir = $outfile->parent;
 my $altinfile = path( $infile->parent, 'script.sh.in' );
 my $altoutfile = path( $outdir, 'script.sh' );
 
-my ($pkgdesc, $pkglist);
+my ($pkgdesc, @pkg);
 foreach (@pkgfiles) {
 	foreach (path($_)->lines) {
 		chomp;
 		/^[#]{2} (.*)/ and $pkgdesc .= "# $1\n";
 		/^[#]{1} (.*)/ and $pkgdesc .= "#  * $1\n";
-		/^[^#]+/ and $pkglist .= "$_ ";
+		/^[^#]+/ and push @pkg, $_;
 	};
 };
 chomp $pkgdesc;
@@ -37,6 +37,8 @@ foreach (@tweakfiles) {
 };
 chomp $tweakdesc;
 
+my $pkglist = join( ' ', @pkg );
+
 $outdir->mkpath;
 $_ = $altinfile->slurp;
 s,__PKGDESC__,$pkgdesc,;
-- 
cgit v1.2.3