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");
