X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=blobdiff_plain;f=t%2F30-scope.t;h=2546dee6a954bac24e34c41f89d567d4e35d0205;hp=20eeebbde73ff50d4c13a2ab519b280af4d399c6;hb=fdc979b79c21fcaa1fdd8e9a465756510ed26e88;hpb=63332507705bd3614900bdcacb6f0265dc91a9de

diff --git a/t/30-scope.t b/t/30-scope.t
index 20eeebb..2546dee 100644
--- 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";