Yet more diagnostics for t/30-scope.t

diff --git a/t/30-scope.t b/t/30-scope.t
index 20eeebbde73ff50d4c13a2ab519b280af4d399c6..2546dee6a954bac24e34c41f89d567d4e35d0205 100644 (file)
--- a/t/30-scope.t
+++ b/t/30-scope.t
@@ -17,14 +17,15 @@ sub expect {
 
 {
  my $code = do { local $/; <DATA> };
- my (%res, @left);
+ my (%res, $num, @left);
  {
   local $SIG{__WARN__} = sub {
+   ++$num;
    my $w = join '', 'warn:', @_;
    if ($w =~ /"P(\d+)"/ and not exists $res{$1}) {
     $res{$1} = $w;
    } else {
-    push @left, $w;
+    push @left, "[$num] $w";
    }
   };
   eval "die qq{ok\\n}; $code";