1 files changed, 8 insertions, 1 deletions
diff --git a/dgit b/dgit
index cdf1670..def2c34 100755
--- a/dgit
+++ b/dgit
@@ -1843,7 +1843,14 @@ END
 	local $ENV{GIT_AUTHOR_EMAIL} = $authline[1];
 	local $ENV{GIT_AUTHOR_DATE} =  $authline[2];
 
-	runcmd shell_cmd 'exec >/dev/null', @gbp, qw(pq import);
+	eval {
+	    runcmd shell_cmd 'exec >/dev/null 2>../../gbp-pq-output',
+		@gbp, qw(pq import);
+	};
+	if ($@) {
+	    { local $@; eval { runcmd qw(cat ../../gbp-pq-output); }; }
+	    die $@;
+	}
 
 	my $gapplied = git_rev_parse('HEAD');
 	my $gappliedtree = cmdoutput @git, qw(rev-parse HEAD:);