Fix avoid trailing space in generated package lists.

1 files 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,;