[Pkg-haskell-commits] [package-plan] 286/457: Pass flags first, it seems we are running out of command length limits
Joachim Breitner
nomeata at moszumanska.debian.org
Mon Apr 14 20:05:38 UTC 2014
This is an automated email from the git hooks/post-receive script.
nomeata pushed a commit to branch master
in repository package-plan.
commit d2cc675bc9d472c12fa8d7f1b27b2fc0ba9b1d7d
Author: Joachim Breitner <mail at joachim-breitner.de>
Date: Tue Dec 3 22:24:09 2013 +0000
Pass flags first, it seems we are running out of command length limits
---
test-packages.pl | 12 +++++++-----
1 file changed, 7 insertions(+), 5 deletions(-)
diff --git a/test-packages.pl b/test-packages.pl
index fe8ee27..b5b3db2 100644
--- a/test-packages.pl
+++ b/test-packages.pl
@@ -11,6 +11,7 @@ use File::Slurp;
use Text::Patch;
use IPC::Run qw( run );
use Getopt::Long;
+use List::MoreUtils qw(uniq);
my %packages;
my %versions;
@@ -196,7 +197,11 @@ for my $pkg (sort keys %versions) {
close CABAL;
chmod 0444, "all-packages.cabal";
-my @params = ("cabal", "--config-file", "$sandboxdir/config", "install", "--dry-run", "--force-reinstall", "--enable-tests");
+my @params = ("cabal", "-v", "--config-file", "$sandboxdir/config", "install", "--dry-run", "--force-reinstall", "--enable-tests");
+
+ at flags = uniq(@flags);
+push @params, @flags;
+printf "Using flags: %s\n", join " ", @flags;
for my $pkg (sort keys %versions) {
next if (exists $comments{$pkg});
@@ -207,15 +212,12 @@ for my $pkg (sort keys %versions) {
next if (exists $notest{$pkg});
push @params, sprintf "%s", $pkg;
}
-push @params, @flags;
-
-printf "Using flags: %s\n", join ", ", @flags;
print "Running cabal-install...\n";
my $out;
my $err;
if (run \@params, \"", \$out, \$err) {
- my $count;
+ my $count=0;
while ($out =~ m!^([a-zA-H0-9-]+)-([0-9.]+)$!gm) {
my ($pkg, $version) = ($1, $2);
unless (exists $versions{$pkg}) {
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-haskell/package-plan.git
More information about the Pkg-haskell-commits
mailing list