From 06d56a7d75a0691e8cdc82f75841b4fcd5d8f7c9 Mon Sep 17 00:00:00 2001
From: Vincent Pit <vpit@cpan.org>
Date: Sun, 26 Mar 2023 17:29:54 +0200
Subject: Work around test failures in t/64-uplevel-caller.t

This is probably related to the caller behaviour change re-re-introduced
with core commit f6387cf.
---
 t/64-uplevel-caller.t | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/t/64-uplevel-caller.t b/t/64-uplevel-caller.t
index 50a44d7..575ed3d 100644
--- a/t/64-uplevel-caller.t
+++ b/t/64-uplevel-caller.t
@@ -12,14 +12,18 @@ sub callstack {
  my $i = 1;
  my @stack;
  while (1) {
-  my @c = $check_args ? do { package DB; caller($i++) }
-                      : caller($i++);
+  my @c = $check_args ? do {
+   my $frame = ("$]" >= 5.037_010) ? ($i + 1) : $i;
+   package DB;
+   caller($frame)
+  } : caller($i);
   last unless @c;
   if ($check_args) {
    my $args = $c[4] ? [ @DB::args ] : undef;
    push @c, $args;
   }
   push @stack, \@c;
+  ++$i;
  }
  return \@stack;
 }
-- 
cgit v1.2.3