t/lib/warnings/pad

   1   pad.c         AOK
   2
   3      "my" variable %s masks earlier declaration in same scope
   4         my $x;
   5         my $x ;
   6
   7      Variable "%s" may be unavailable
   8         sub x {
   9             my $x;
  10             sub y {
  11                 $x
  12             }
  13         }
  14
  15      Variable "%s" will not stay shared
  16         sub x {
  17             my $x;
  18             sub y {
  19                 sub { $x }
  20             }
  21         }
  22     "our" variable %s redeclared        (Did you mean "local" instead of "our"?)
  23         our $x;
  24         {
  25             our $x;
  26         }
  27
  28     %s never introduced         [pad_leavemy]   TODO
  29
  30 __END__
  31 # pad.c
  32 use warnings 'misc' ;
  33 my $x ;
  34 my $x ;
  35 my $y = my $y ;
  36 no warnings 'misc' ;
  37 my $x ;
  38 my $y ;
  39 EXPECT
  40 "my" variable $x masks earlier declaration in same scope at - line 4.
  41 "my" variable $y masks earlier declaration in same statement at - line 5.
  42 ########
  43 # pad.c
  44 use warnings 'closure' ;
  45 sub x {
  46       my $x;
  47       sub y {
  48          $x
  49       }
  50    }
  51 EXPECT
  52 Variable "$x" will not stay shared at - line 7.
  53 ########
  54 # pad.c
  55 no warnings 'closure' ;
  56 sub x {
  57       my $x;
  58       sub y {
  59          $x
  60       }
  61    }
  62 EXPECT
  63
  64 ########
  65 # pad.c
  66 use warnings 'closure' ;
  67 sub x {
  68       our $x;
  69       sub y {
  70          $x
  71       }
  72    }
  73 EXPECT
  74
  75 ########
  76 # pad.c
  77 use warnings 'closure' ;
  78 sub x {
  79       my $x;
  80       sub y {
  81          sub { $x }
  82       }
  83    }
  84 EXPECT
  85 Variable "$x" may be unavailable at - line 6.
  86 ########
  87 # pad.c
  88 no warnings 'closure' ;
  89 sub x {
  90       my $x;
  91       sub y {
  92          sub { $x }
  93       }
  94    }
  95 EXPECT
  96
  97 ########
  98 use warnings 'misc' ;
  99 our $x;
 100 {
 101     our $x;
 102 }
 103 EXPECT
 104 "our" variable $x redeclared at - line 4.
 105         (Did you mean "local" instead of "our"?)