X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FScope-Upper.git;a=blobdiff_plain;f=t%2F64-uplevel-caller.t;fp=t%2F64-uplevel-caller.t;h=575ed3d52db494ed3ff3eb89f68d05fb49543b74;hp=50a44d7a63ad97170ee5d1263fd1e349020e3312;hb=06d56a7d75a0691e8cdc82f75841b4fcd5d8f7c9;hpb=2a6c48705317d18cf843a0a538e89f7a9e5d6ba2

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;
 }