From: David Mitchell <davem@iabyn.com>
Date: Sat, 26 Mar 2011 20:12:57 +0000 (+0000)
Subject: Benchmark.t: note line# of check_graph_consistency
X-Git-Tag: upstream/5.16.3~4591
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=ca55f23289d5d73ca175891901d155fa326fd7e8;p=platform%2Fupstream%2Fperl.git

Benchmark.t: note line# of check_graph_consistency

This function is called 6 times, each each call puts out about
15 tests, with the same set of descriptions, so output a note
at the start of each call showing where we're called from.
---

diff --git a/lib/Benchmark.t b/lib/Benchmark.t
index 973d84797e..c29ed1ae88 100644
--- a/lib/Benchmark.t
+++ b/lib/Benchmark.t
@@ -303,6 +303,7 @@ sub check_graph_consistency {
         $slowr, $slowratet, $slowslow, $slowfastt,
         $fastr, $fastratet, $fastslowt, $fastfast)
         = @_;
+    note("calling check_graph_consistency from line " . (caller(1))[2]);
     my $all_passed = 1;
     $all_passed
       &= is ($slowc, $slowr, "left col tag should be top row tag");