diff -up Devel-StackTrace-2.05/t/01-basic.t.orig Devel-StackTrace-2.05/t/01-basic.t --- Devel-StackTrace-2.05/t/01-basic.t.orig 2024-07-23 14:28:23.297737233 +0200 +++ Devel-StackTrace-2.05/t/01-basic.t 2024-07-23 14:31:14.792422763 +0200 @@ -58,7 +58,7 @@ my $test_file_name = get_file_name(); Trace begun at $test_file_name line 1009 main::baz(1, 2) called at $test_file_name line 1005 main::bar(1) called at $test_file_name line 1001 -main::foo at $test_file_name line 13 +main::foo at $test_file_name line 14 EOF is( $trace->as_string, $trace_text, 'trace text' ); @@ -100,7 +100,7 @@ EOF my $trace_text = <<"EOF"; Trace begun at $test_file_name line 1009 -main::baz at $test_file_name line 99 +main::baz at $test_file_name line 100 EOF my $t = "$trace"; @@ -308,14 +308,14 @@ if ( $Exception::Class::VERSION && $Exce my $trace_text = <<"EOF"; Trace begun at $test_file_name line 1021 -main::max_arg_length('abcdefghij...') called at $test_file_name line 307 +main::max_arg_length('abcdefghij...') called at $test_file_name line 308 EOF is( $trace->as_string, $trace_text, 'trace text' ); my $trace_text_1 = <<"EOF"; Trace begun at $test_file_name line 1021 -main::max_arg_length('abc...') called at $test_file_name line 307 +main::max_arg_length('abc...') called at $test_file_name line 308 EOF is(