t/pragma/warn/1global

   1 Check existing $^W functionality
   2
   3
   4 __END__
   5
   6 # warnable code, warnings disabled
   7 $a =+ 3 ;
   8 EXPECT
   9
  10 ########
  11 -w
  12 # warnable code, warnings enabled via command line switch
  13 $a =+ 3 ;
  14 EXPECT
  15 Reversed += operator at - line 3.
  16 ########
  17 #! perl -w
  18 # warnable code, warnings enabled via #! line
  19 $a =+ 3 ;
  20 EXPECT
  21 Reversed += operator at - line 3.
  22 ########
  23
  24 # warnable code, warnings enabled via compile time $^W
  25 BEGIN { $^W = 1 }
  26 $a =+ 3 ;
  27 EXPECT
  28 Reversed += operator at - line 4.
  29 ########
  30
  31 # compile-time warnable code, warnings enabled via runtime $^W
  32 # so no warning printed.
  33 $^W = 1 ;
  34 $a =+ 3 ;
  35 EXPECT
  36
  37 ########
  38
  39 # warnable code, warnings enabled via runtime $^W
  40 $^W = 1 ;
  41 my $b ; chop $b ;
  42 EXPECT
  43 Use of uninitialized value at - line 4.
  44 ########
  45
  46 # warnings enabled at compile time, disabled at run time
  47 BEGIN { $^W = 1 }
  48 $^W = 0 ;
  49 my $b ; chop $b ;
  50 EXPECT
  51
  52 ########
  53
  54 # warnings disabled at compile time, enabled at run time
  55 BEGIN { $^W = 0 }
  56 $^W = 1 ;
  57 my $b ; chop $b ;
  58 EXPECT
  59 Use of uninitialized value at - line 5.
  60 ########
  61 -w
  62 --FILE-- abcd
  63 my $b ; chop $b ;
  64 1 ;
  65 --FILE--
  66 require "./abcd";
  67 EXPECT
  68 Use of uninitialized value at ./abcd line 1.
  69 ########
  70
  71 --FILE-- abcd
  72 my $b ; chop $b ;
  73 1 ;
  74 --FILE--
  75 #! perl -w
  76 require "./abcd";
  77 EXPECT
  78 Use of uninitialized value at ./abcd line 1.
  79 ########
  80
  81 --FILE-- abcd
  82 my $b ; chop $b ;
  83 1 ;
  84 --FILE--
  85 $^W =1 ;
  86 require "./abcd";
  87 EXPECT
  88 Use of uninitialized value at ./abcd line 1.
  89 ########
  90
  91 --FILE-- abcd
  92 $^W = 0;
  93 my $b ; chop $b ;
  94 1 ;
  95 --FILE--
  96 $^W =1 ;
  97 require "./abcd";
  98 EXPECT
  99
 100 ########
 101
 102 --FILE-- abcd
 103 $^W = 1;
 104 1 ;
 105 --FILE--
 106 $^W =0 ;
 107 require "./abcd";
 108 my $b ; chop $b ;
 109 EXPECT
 110 Use of uninitialized value at - line 3.
 111 ########
 112
 113 $^W = 1;
 114 eval 'my $b ; chop $b ;' ;
 115 print $@ ;
 116 EXPECT
 117 Use of uninitialized value at (eval 1) line 1.
 118 ########
 119
 120 eval '$^W = 1;' ;
 121 print $@ ;
 122 my $b ; chop $b ;
 123 EXPECT
 124 Use of uninitialized value at - line 4.
 125 ########
 126
 127 eval {$^W = 1;} ;
 128 print $@ ;
 129 my $b ; chop $b ;
 130 EXPECT
 131 Use of uninitialized value at - line 4.
 132 ########
 133
 134 {
 135     local ($^W) = 1;
 136 }
 137 my $b ; chop $b ;
 138 EXPECT
 139
 140 ########
 141
 142 my $a ; chop $a ;
 143 {
 144     local ($^W) = 1;
 145     my $b ; chop $b ;
 146 }
 147 my $c ; chop $c ;
 148 EXPECT
 149 Use of uninitialized value at - line 5.
 150 ########
 151 -w
 152 -e undef
 153 EXPECT
 154 Use of uninitialized value at - line 2.
 155 ########
 156
 157 $^W = 1 + 2 ;
 158 EXPECT
 159
 160 ########
 161
 162 $^W = $a ;
 163 EXPECT
 164
 165 ########
 166
 167 sub fred {}
 168 $^W = fred() ;
 169 EXPECT
 170
 171 ########
 172
 173 sub fred { my $b ; chop $b ;}
 174 { local $^W = 0 ;
 175   fred() ;
 176 }
 177 EXPECT
 178
 179 ########
 180
 181 sub fred { my $b ; chop $b ;}
 182 { local $^W = 1 ;
 183   fred() ;
 184 }
 185 EXPECT
 186 Use of uninitialized value at - line 2.