This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Benchmark.t: note line# of check_graph_consistency
[perl5.git] / lib / Benchmark.t
index 973d847..c29ed1a 100644 (file)
@@ -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");