perf/scripts: Fix bug in Util.pm
authorTom Zanussi <tzanussi@gmail.com>
Wed, 27 Jan 2010 08:27:53 +0000 (02:27 -0600)
committerFrederic Weisbecker <fweisbec@gmail.com>
Tue, 23 Feb 2010 19:34:45 +0000 (20:34 +0100)
Fix bogus calculation.

Signed-off-by: Tom Zanussi <tzanussi@gmail.com>
Cc: Ingo Molnar <mingo@elte.hu>
Cc: Steven Rostedt <rostedt@goodmis.org>
Cc: Keiichi KII <k-keiichi@bx.jp.nec.com>
Cc: Peter Zijlstra <a.p.zijlstra@chello.nl>
Cc: Paul Mackerras <paulus@samba.org>
Cc: Arnaldo Carvalho de Melo <acme@redhat.com>
LKML-Reference: <1264580883-15324-3-git-send-email-tzanussi@gmail.com>
Signed-off-by: Frederic Weisbecker <fweisbec@gmail.com>
tools/perf/scripts/perl/Perf-Trace-Util/lib/Perf/Trace/Util.pm

index 052f132..f869c48 100644 (file)
@@ -44,7 +44,7 @@ sub nsecs_secs {
 sub nsecs_nsecs {
     my ($nsecs) = @_;
 
-    return $nsecs - nsecs_secs($nsecs);
+    return $nsecs % $NSECS_PER_SEC;
 }
 
 sub nsecs_str {