Permalink
Browse files

allow supervisors (such as valgrind) to be specified

git-svn-id: http://kazuho.31tools.com/svn/incline/trunk@252 4d3e2a30-9d6d-0410-bc8c-dac56cff10b3
  • Loading branch information...
1 parent 499d52d commit d5b5cf1cbad8c90a7ed7799563bf246d4ce85b11 kazuho committed Nov 4, 2009
Showing with 7 additions and 3 deletions.
  1. +7 −3 t/InclineTest.pm
View
@@ -70,9 +70,13 @@ sub push_bench {
sub exec_cmd {
my @args = @_;
- if ($ENV{USE_GDB}) {
- print STDERR "*** running: ", join(' ', @args), "\n";
- exec('gdb', shift @args);
+ if ($ENV{CMD_PREFIX}) {
+ if ($ENV{CMD_PREFIX} eq 'gdb') {
+ print STDERR "*** running: ", join(' ', @args), "\n";
+ exec('gdb', shift @args);
+ } else {
+ exec((split /\s+/, $ENV{CMD_PREFIX}), @args);
+ }
} else {
exec @args;
}

0 comments on commit d5b5cf1

Please sign in to comment.