svn commit: samba r23071 - in branches/SAMBA_4_0/source/pidl/tests: .

[metze at samba.org]

Author: metze
Date: 2007-05-22 12:45:58 +0000 (Tue, 22 May 2007)
New Revision: 23071

WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=23071

Log:
print the command on failure only

metze
Modified:
   branches/SAMBA_4_0/source/pidl/tests/Util.pm


Changeset:
Modified: branches/SAMBA_4_0/source/pidl/tests/Util.pm
===================================================================
--- branches/SAMBA_4_0/source/pidl/tests/Util.pm	2007-05-22 11:30:35 UTC (rev 23070)
+++ branches/SAMBA_4_0/source/pidl/tests/Util.pm	2007-05-22 12:45:58 UTC (rev 23071)
@@ -92,7 +92,6 @@
 
 	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 @@
 	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");