t/lib/warnings/gv

   1   gv.c AOK
   2
   3      Can't locate package %s for @%s::ISA
   4         @ISA = qw(Fred); joe()
   5
   6      Use of inherited AUTOLOAD for non-method %s::%.*s() is deprecated
   7         sub Other::AUTOLOAD { 1 } sub Other::fred {}
   8         @ISA = qw(Other) ;
   9         fred() ;
  10
  11      $# is no longer supported
  12      $* is no longer supported
  13
  14         $a = ${"#"} ;
  15         $a = ${"*"} ;
  16
  17      Name "main::a" used only once: possible typo
  18
  19   Mandatory Warnings ALL TODO
  20   ------------------
  21
  22     Had to create %SVf unexpectedly             [gv_fetchpv]
  23     Attempt to free unreferenced glob pointers  [gp_free]
  24
  25 __END__
  26 # gv.c
  27 use warnings 'syntax' ;
  28 @ISA = qw(Fred); joe()
  29 EXPECT
  30 Can't locate package Fred for @main::ISA at - line 3.
  31 Undefined subroutine &main::joe called at - line 3.
  32 ########
  33 # gv.c
  34 no warnings 'syntax' ;
  35 @ISA = qw(Fred); joe()
  36 EXPECT
  37 Undefined subroutine &main::joe called at - line 3.
  38 ########
  39 # gv.c
  40 sub Other::AUTOLOAD { 1 } sub Other::fred {}
  41 @ISA = qw(Other) ;
  42 use warnings 'deprecated' ;
  43 fred() ;
  44 EXPECT
  45 Use of inherited AUTOLOAD for non-method main::fred() is deprecated at - line 5.
  46 ########
  47 # gv.c
  48 use utf8;
  49 use open qw( :utf8 :std );
  50 sub Oᕞʀ::AUTOLOAD { 1 } sub Oᕞʀ::fᕃƌ {}
  51 @ISA = qw(Oᕞʀ) ;
  52 use warnings 'deprecated' ;
  53 fᕃƌ() ;
  54 EXPECT
  55 Use of inherited AUTOLOAD for non-method main::fᕃƌ() is deprecated at - line 7.
  56 ########
  57 # gv.c
  58 $a = ${"#"};
  59 $a = ${"*"};
  60 no warnings 'deprecated' ;
  61 $a = ${"#"};
  62 $a = ${"*"};
  63 EXPECT
  64 $# is no longer supported at - line 2.
  65 $* is no longer supported at - line 3.
  66 ########
  67 # gv.c
  68 $a = ${#};
  69 $a = ${*};
  70 no warnings 'deprecated' ;
  71 $a = ${#};
  72 $a = ${*};
  73 EXPECT
  74 $# is no longer supported at - line 2.
  75 $* is no longer supported at - line 3.
  76 ########
  77 # gv.c
  78 $a = $#;
  79 $a = $*;
  80 $# = $a;
  81 $* = $a;
  82 $a = \$#;
  83 $a = \$*;
  84 no warnings 'deprecated' ;
  85 $a = $#;
  86 $a = $*;
  87 $# = $a;
  88 $* = $a;
  89 $a = \$#;
  90 $a = \$*;
  91 EXPECT
  92 $# is no longer supported at - line 2.
  93 $* is no longer supported at - line 3.
  94 $# is no longer supported at - line 4.
  95 $* is no longer supported at - line 5.
  96 $# is no longer supported at - line 6.
  97 $* is no longer supported at - line 7.
  98 ########
  99 # gv.c
 100 @a = @#;
 101 @a = @*;
 102 $a = $#;
 103 $a = $*;
 104 EXPECT
 105 $# is no longer supported at - line 4.
 106 $* is no longer supported at - line 5.
 107 ########
 108 # gv.c
 109 $a = $#;
 110 $a = $*;
 111 @a = @#;
 112 @a = @*;
 113 EXPECT
 114 $# is no longer supported at - line 2.
 115 $* is no longer supported at - line 3.
 116 ########
 117 # gv.c
 118 use warnings 'syntax' ;
 119 use utf8;
 120 use open qw( :utf8 :std );
 121 package Ｙ;
 122 @ISA = qw(Fred); joe()
 123 EXPECT
 124 Can't locate package Fred for @Ｙ::ISA at - line 6.
 125 Undefined subroutine &Ｙ::joe called at - line 6.
 126 ########
 127 # gv.c
 128 use warnings;
 129 $x = 1;
 130 if ($x) {
 131     print $y;
 132 }
 133 $a++; # These two should
 134 $b++; # be exempt.
 135 $Foo::a++;
 136 $Foo::b++;
 137 EXPECT
 138 Name "main::y" used only once: possible typo at - line 5.
 139 Use of uninitialized value $y in print at - line 5.
 140 ########
 141 # gv.c
 142 use warnings;
 143 $x = 1;
 144 if ($x) {
 145     $x++;
 146     print $y;
 147 }
 148 EXPECT
 149 Name "main::y" used only once: possible typo at - line 6.
 150 Use of uninitialized value $y in print at - line 6.
 151 ########
 152 # gv.c
 153 use warnings;
 154 $x = 0;
 155 if ($x) {
 156     print "1\n";
 157 } elsif (!$x) {
 158     print $y;
 159 } else {
 160     print "0\n";
 161 }
 162 EXPECT
 163 Name "main::y" used only once: possible typo at - line 7.
 164 Use of uninitialized value $y in print at - line 7.
 165 ########
 166 # gv.c
 167 use warnings;
 168 $x = 0;
 169 if ($x) {
 170     print "1\n";
 171 } elsif (!$x) {
 172     $x++;
 173     print $y;
 174 } else {
 175     print "0\n";
 176 }
 177 EXPECT
 178 Name "main::y" used only once: possible typo at - line 8.
 179 Use of uninitialized value $y in print at - line 8.
 180 ########
 181 # gv.c
 182 use utf8;
 183 use open qw( :utf8 :std );
 184 use warnings;
 185 $ㄒ = 1;
 186 if ($ㄒ) {
 187     print $ʎ;
 188 }
 189 EXPECT
 190 Name "main::ʎ" used only once: possible typo at - line 7.
 191 Use of uninitialized value $ʎ in print at - line 7.
 192 ########
 193 # gv.c
 194 use utf8;
 195 use open qw( :utf8 :std );
 196 use warnings;
 197 $ㄒ = 1;
 198 if ($ㄒ) {
 199     $ㄒ++;
 200     print $ʎ;
 201 }
 202 EXPECT
 203 Name "main::ʎ" used only once: possible typo at - line 8.
 204 Use of uninitialized value $ʎ in print at - line 8.
 205 ########
 206 # gv.c
 207 use utf8;
 208 use open qw( :utf8 :std );
 209 use warnings;
 210 $ㄒ = 0;
 211 if ($ㄒ) {
 212     print "1\n";
 213 } elsif (!$ㄒ) {
 214     print $ʎ;
 215 } else {
 216     print "0\n";
 217 }
 218 EXPECT
 219 Name "main::ʎ" used only once: possible typo at - line 9.
 220 Use of uninitialized value $ʎ in print at - line 9.
 221 ########
 222 # gv.c
 223 use utf8;
 224 use open qw( :utf8 :std );
 225 use warnings;
 226 $ㄒ = 0;
 227 if ($ㄒ) {
 228     print "1\n";
 229 } elsif (!$ㄒ) {
 230     $ㄒ++;
 231     print $ʎ;
 232 } else {
 233     print "0\n";
 234 }
 235 EXPECT
 236 Name "main::ʎ" used only once: possible typo at - line 10.
 237 Use of uninitialized value $ʎ in print at - line 10.
 238 ########
 239 # gv.c
 240 use utf8;
 241 use open qw( :utf8 :std );
 242 use warnings;
 243 package 팣칵ぇ;
 244 $ㄒ = 1;
 245 if ($ㄒ) {
 246     print $ʎ;
 247 }
 248 EXPECT
 249 Name "팣칵ぇ::ʎ" used only once: possible typo at - line 8.
 250 Use of uninitialized value $팣칵ぇ::ʎ in print at - line 8.
 251 ########
 252 # gv.c
 253 use utf8;
 254 use open qw( :utf8 :std );
 255 use warnings;
 256 package 팣칵ぇ;
 257 $ㄒ = 1;
 258 if ($ㄒ) {
 259     $ㄒ++;
 260     print $ʎ;
 261 }
 262 EXPECT
 263 Name "팣칵ぇ::ʎ" used only once: possible typo at - line 9.
 264 Use of uninitialized value $팣칵ぇ::ʎ in print at - line 9.
 265 ########
 266 # gv.c
 267 use utf8;
 268 use open qw( :utf8 :std );
 269 use warnings;
 270 package 팣칵ぇ;
 271 $ㄒ = 0;
 272 if ($ㄒ) {
 273     print "1\n";
 274 } elsif (!$ㄒ) {
 275     print $ʎ;
 276 } else {
 277     print "0\n";
 278 }
 279 EXPECT
 280 Name "팣칵ぇ::ʎ" used only once: possible typo at - line 10.
 281 Use of uninitialized value $팣칵ぇ::ʎ in print at - line 10.
 282 ########
 283 # gv.c
 284 use utf8;
 285 use open qw( :utf8 :std );
 286 use warnings;
 287 package 팣칵ぇ;
 288 $ㄒ = 0;
 289 if ($ㄒ) {
 290     print "1\n";
 291 } elsif (!$ㄒ) {
 292     $ㄒ++;
 293     print $ʎ;
 294 } else {
 295     print "0\n";
 296 }
 297 EXPECT
 298 Name "팣칵ぇ::ʎ" used only once: possible typo at - line 11.
 299 Use of uninitialized value $팣칵ぇ::ʎ in print at - line 11.