diff options
author | njn <njn@a5019735-40e9-0310-863c-91ae7b9d1cf9> | 2007-02-02 23:23:01 +0000 |
---|---|---|
committer | njn <njn@a5019735-40e9-0310-863c-91ae7b9d1cf9> | 2007-02-02 23:23:01 +0000 |
commit | ae7f6823ea8b22963463a683786e0f503479facc (patch) | |
tree | 4edf857d47bc1caa659b09d60cf8b8735ce83b3c /perf/vg_perf.in | |
parent | e516100a1b3f9bdf3422391e48d05b1e74d59ee5 (diff) | |
download | valgrind-ae7f6823ea8b22963463a683786e0f503479facc.tar.gz |
Simplify some Perl.
git-svn-id: svn://svn.valgrind.org/valgrind/trunk@6569 a5019735-40e9-0310-863c-91ae7b9d1cf9
Diffstat (limited to 'perf/vg_perf.in')
-rw-r--r-- | perf/vg_perf.in | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perf/vg_perf.in b/perf/vg_perf.in index b4625ec65..0f3e44882 100644 --- a/perf/vg_perf.in +++ b/perf/vg_perf.in @@ -240,9 +240,9 @@ sub time_prog($$) die "\n*** Command returned non-zero ($retval)" . "\n*** See perf.{cmd,stdout,stderr} to determine what went wrong.\n"; my $out = `cat perf.stderr`; - ($out =~ /[Uu]ser([ ]+)([\d\.]+)/) or + ($out =~ /[Uu]ser +([\d\.]+)/) or die "\n*** missing usertime in perf.stderr\n"; - $tmin = $2 if ($2 < $tmin); + $tmin = $1 if ($1 < $tmin); } # Avoid divisions by zero! return (0 == $tmin ? 0.01 : $tmin); |