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