Skip to content
This repository
Browse code

Fix off-by-one in tracepoints.

  • Loading branch information...
commit 68f1a3659b098e009c4d3924ada64d420bce3d5b 1 parent e4c27f0
Jonathan Worthington authored

Showing 1 changed file with 1 addition and 1 deletion. Show diff stats Hide diff stats

  1. +1 1  lib/Debugger/UI/CommandLine.pm
2  lib/Debugger/UI/CommandLine.pm
@@ -317,7 +317,7 @@ my class DebugState {
317 317 if %tracepoints{$filename} -> @tps {
318 318 my ($from_line, $) = %sources{$filename}.line_of($from, -1, -1);
319 319 my ($to_line, $) = %sources{$filename}.line_of($to, -1, -1);
320   - @tps.grep({ $^tp.line ~~ $from_line..$to_line })>>.hit($ctx);
  320 + @tps.grep({ $^tp.line - 1 ~~ $from_line..$to_line })>>.hit($ctx);
321 321 }
322 322 }
323 323

0 comments on commit 68f1a36

Please sign in to comment.
Something went wrong with that request. Please try again.