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