|
From: <sv...@va...> - 2007-02-02 23:23:11
|
Author: njn
Date: 2007-02-02 23:23:01 +0000 (Fri, 02 Feb 2007)
New Revision: 6569
Log:
Simplify some Perl.
Modified:
trunk/perf/vg_perf.in
Modified: trunk/perf/vg_perf.in
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
--- trunk/perf/vg_perf.in 2007-02-02 02:36:30 UTC (rev 6568)
+++ trunk/perf/vg_perf.in 2007-02-02 23:23:01 UTC (rev 6569)
@@ -240,9 +240,9 @@
die "\n*** Command returned non-zero ($retval)"
. "\n*** See perf.{cmd,stdout,stderr} to determine what we=
nt wrong.\n";
my $out =3D `cat perf.stderr`;
- ($out =3D~ /[Uu]ser([ ]+)([\d\.]+)/) or=20
+ ($out =3D~ /[Uu]ser +([\d\.]+)/) or=20
die "\n*** missing usertime in perf.stderr\n";
- $tmin =3D $2 if ($2 < $tmin);
+ $tmin =3D $1 if ($1 < $tmin);
}
# Avoid divisions by zero!
return (0 =3D=3D $tmin ? 0.01 : $tmin);
|