From: Nicholas Nethercote <njn@valgrind.org>
Date: Fri, 2 Feb 2007 23:23:01 +0000 (+0000)
Subject: Simplify some Perl.
X-Git-Tag: svn/VALGRIND_3_3_0~395
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a01fea1a7abb5b24b7e23d520e2d2b402f6b241d;p=thirdparty%2Fvalgrind.git

Simplify some Perl.



git-svn-id: svn://svn.valgrind.org/valgrind/trunk@6569
---

diff --git a/perf/vg_perf.in b/perf/vg_perf.in
index b4625ec65b..0f3e44882f 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);