From dbff619f2a80d6c16a28ab803390d0658ddcfc1c Mon Sep 17 00:00:00 2001
From: Stefan Metzmacher <metze@samba.org>
Date: Tue, 22 May 2007 12:45:58 +0000
Subject: r23071: print the command on failure only

metze
(This used to be commit 65ed39172953507610b41273d4a46470725e2012)
---
 source4/pidl/tests/Util.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'source4/pidl/tests')

diff --git a/source4/pidl/tests/Util.pm b/source4/pidl/tests/Util.pm
index d4cdd72205..897e848440 100644
--- a/source4/pidl/tests/Util.pm
+++ b/source4/pidl/tests/Util.pm
@@ -92,7 +92,6 @@ SKIP: {
 
 	my $cmd = "$cc $cflags -x c - -o $outfile $flags $ldflags";
 	$cmd =~ s/\n//g;
-print "cmd: $cmd\n";
 	open CC, "|$cmd";
 	print CC "#define uint_t unsigned int\n";
 	print CC "#define _GNU_SOURCE\n";
@@ -120,6 +119,7 @@ print "cmd: $cmd\n";
 	ok(-f $outfile, "($name) compile");
 
 	my $ret = system($outfile, ()) >> 8;
+	print "# cmd: $cmd\n" if ($ret != 0);
 	print "# return code: $ret\n" if ($ret != 0);
 
 	ok($ret == 0, "($name) run");
-- 
cgit