diff options
| author | Stefan Metzmacher <metze@samba.org> | 2007-05-22 12:45:58 +0000 |
|---|---|---|
| committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 14:52:48 -0500 |
| commit | dbff619f2a80d6c16a28ab803390d0658ddcfc1c (patch) | |
| tree | 17e8cfc4917996023a60b1cb5acb9bd49dbfdd82 /source4/pidl/tests/Util.pm | |
| parent | ffe21e4a7c294a71dcde099dbae10dd1769e77f0 (diff) | |
| download | samba-dbff619f2a80d6c16a28ab803390d0658ddcfc1c.tar.gz samba-dbff619f2a80d6c16a28ab803390d0658ddcfc1c.tar.bz2 samba-dbff619f2a80d6c16a28ab803390d0658ddcfc1c.zip | |
r23071: print the command on failure only
metze
(This used to be commit 65ed39172953507610b41273d4a46470725e2012)
Diffstat (limited to 'source4/pidl/tests/Util.pm')
| -rw-r--r-- | source4/pidl/tests/Util.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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"); |