t/lib/warnings/9uninit

   1 DAPM 4/2004.
   2
   3 Test the appearance of variable names in "Use of uninitialized value"
   4 warnings.
   5
   6 The following ops aren't tested, mainly because they do IO or non-portable
   7 stuff:
   8
   9     send recv bind conect listen accept shutdown chdir chown chroot unlink
  10     chmod utime rename link symlink readlink mkdir rmdir opendir seekdir
  11     system exec kill getpgrp alarm sleep dofile require gethostbyname
  12     gethostbyaddr getnetbyname getnetbyaddr getprotobyname getprotobynumber
  13     getservbyname getservbyport sethostent setnetent setprotoent setservent
  14     getpwnam getpwuid getgrnam getgrgid waitpid setpgrp setpriority
  15     getpriority syscall dbmopen ioctl fcntl truncate getsockopt setsockopt
  16     semctl semop semget msgget msgctl msgsnd msgrcv shmget shmctl shmread
  17     shmwrite
  18
  19     ---------------------------------------------------
  20
  21
  22 __END__
  23 use warnings 'uninitialized';
  24 my ($m1, $m2, $v);
  25
  26 $v = $m1 + 10;
  27 $v = 22 + $m2;
  28 $v = $m1 + $m2;
  29 EXPECT
  30 Use of uninitialized value $m1 in addition (+) at - line 4.
  31 Use of uninitialized value $m2 in addition (+) at - line 5.
  32 Use of uninitialized value $m2 in addition (+) at - line 6.
  33 Use of uninitialized value $m1 in addition (+) at - line 6.
  34 ########
  35 use warnings 'uninitialized';
  36 use utf8;
  37 use open qw( :utf8 :std );
  38
  39 $v = $à1 + 10;
  40 $v = 22 + $ａ2;
  41 $v = $à1 + $ａ2;
  42 EXPECT
  43 Use of uninitialized value $à1 in addition (+) at - line 5.
  44 Use of uninitialized value $ａ2 in addition (+) at - line 6.
  45 Use of uninitialized value $ａ2 in addition (+) at - line 7.
  46 Use of uninitialized value $à1 in addition (+) at - line 7.
  47 ########
  48 use warnings 'uninitialized';
  49 my ($m1, $v);
  50 our ($g1, $g2);
  51
  52 $v = $g1 + 21;
  53 $v = 31 + $g2;
  54 $v = $g1 + $g2;
  55 $v = $m1 + $g2;
  56 EXPECT
  57 Use of uninitialized value $g1 in addition (+) at - line 5.
  58 Use of uninitialized value $g2 in addition (+) at - line 6.
  59 Use of uninitialized value $g2 in addition (+) at - line 7.
  60 Use of uninitialized value $g1 in addition (+) at - line 7.
  61 Use of uninitialized value $g2 in addition (+) at - line 8.
  62 Use of uninitialized value $m1 in addition (+) at - line 8.
  63 ########
  64 use warnings 'uninitialized';
  65 my ($m1, @ma, $v);
  66
  67 $v = $ma[5] + 45;
  68 $v = 56 + $ma[6];
  69 $v = $ma[7] + $m1;
  70 $v = $ma[8] + $ma[9];
  71 $v = $ma[-1] + $ma[-2];
  72 EXPECT
  73 Use of uninitialized value $ma[5] in addition (+) at - line 4.
  74 Use of uninitialized value $ma[6] in addition (+) at - line 5.
  75 Use of uninitialized value $m1 in addition (+) at - line 6.
  76 Use of uninitialized value in addition (+) at - line 6.
  77 Use of uninitialized value in addition (+) at - line 7.
  78 Use of uninitialized value in addition (+) at - line 7.
  79 Use of uninitialized value in addition (+) at - line 8.
  80 Use of uninitialized value in addition (+) at - line 8.
  81 ########
  82 use warnings 'uninitialized';
  83 my ($v);
  84 my @mau = (undef) x 258;
  85 my %mhu = ('foo', undef, 'bar', undef);
  86
  87 $v = $mau[5] + 23;
  88 $v = $mau[-5] + 45;
  89 $v = 56 + $mau[6];
  90 $v = 78 + $mau[-6];
  91 $v = $mau[7] + $mau[8];
  92 $v = $mau[256] + $mau[257];
  93 $v = $mau[-1] + $mau[-2];
  94 $v = $mhu{foo} + $mhu{bar};
  95 EXPECT
  96 Use of uninitialized value $mau[5] in addition (+) at - line 6.
  97 Use of uninitialized value $mau[-5] in addition (+) at - line 7.
  98 Use of uninitialized value $mau[6] in addition (+) at - line 8.
  99 Use of uninitialized value $mau[-6] in addition (+) at - line 9.
 100 Use of uninitialized value $mau[8] in addition (+) at - line 10.
 101 Use of uninitialized value $mau[7] in addition (+) at - line 10.
 102 Use of uninitialized value $mau[257] in addition (+) at - line 11.
 103 Use of uninitialized value $mau[256] in addition (+) at - line 11.
 104 Use of uninitialized value $mau[-2] in addition (+) at - line 12.
 105 Use of uninitialized value $mau[-1] in addition (+) at - line 12.
 106 Use of uninitialized value $mhu{"bar"} in addition (+) at - line 13.
 107 Use of uninitialized value $mhu{"foo"} in addition (+) at - line 13.
 108 ########
 109 use warnings 'uninitialized';
 110 my ($v);
 111 our (@ga);
 112
 113 $v = $ga[8] + 21;
 114 $v = $ga[-8] + 46;
 115 $v = 57 + $ga[9];
 116 $v = 58 + $ga[-9];
 117 $v = $ga[10] + $ga[11];
 118 $v = $ga[-10] + $ga[-11];
 119 EXPECT
 120 Use of uninitialized value $ga[8] in addition (+) at - line 5.
 121 Use of uninitialized value $ga[-8] in addition (+) at - line 6.
 122 Use of uninitialized value $ga[9] in addition (+) at - line 7.
 123 Use of uninitialized value $ga[-9] in addition (+) at - line 8.
 124 Use of uninitialized value in addition (+) at - line 9.
 125 Use of uninitialized value in addition (+) at - line 9.
 126 Use of uninitialized value in addition (+) at - line 10.
 127 Use of uninitialized value in addition (+) at - line 10.
 128 ########
 129 use warnings 'uninitialized';
 130 my ($v);
 131 our @gau = (undef) x 258;
 132 our %ghu = ('foo', undef, 'bar', undef);
 133
 134 $v = $gau[8] + 46;
 135 $v = $gau[-8] + 47;
 136 $v = 57 + $gau[9];
 137 $v = 57 + $gau[-9];
 138 $v = $gau[10] + $gau[11];
 139 $v = $gau[256] + $gau[257];
 140 $v = $gau[-1] + $gau[-2];
 141 $v = $ghu{foo} + $ghu{bar};
 142 EXPECT
 143 Use of uninitialized value $gau[8] in addition (+) at - line 6.
 144 Use of uninitialized value $gau[-8] in addition (+) at - line 7.
 145 Use of uninitialized value $gau[9] in addition (+) at - line 8.
 146 Use of uninitialized value $gau[-9] in addition (+) at - line 9.
 147 Use of uninitialized value $gau[11] in addition (+) at - line 10.
 148 Use of uninitialized value $gau[10] in addition (+) at - line 10.
 149 Use of uninitialized value $gau[257] in addition (+) at - line 11.
 150 Use of uninitialized value $gau[256] in addition (+) at - line 11.
 151 Use of uninitialized value $gau[-2] in addition (+) at - line 12.
 152 Use of uninitialized value $gau[-1] in addition (+) at - line 12.
 153 Use of uninitialized value $ghu{"bar"} in addition (+) at - line 13.
 154 Use of uninitialized value $ghu{"foo"} in addition (+) at - line 13.
 155 ########
 156 use warnings 'uninitialized';
 157 my ($v);
 158 our @gau = (undef) x 258;
 159 our %ghu = ('foo', undef, 'bar', undef);
 160 my @mau = (undef) x 258;
 161 my %mhu = ('foo', undef, 'bar', undef);
 162
 163 my $i1 = 10;
 164 my $i2 = 20;
 165 my $i3 = 2000;
 166 my $k1 = 'foo';
 167 my $k2 = 'bar';
 168 my $k3 = 'baz';
 169 $v = $mau[$i1] + $mau[$i2];
 170 $v = $gau[$i1] + $gau[$i2];
 171 $v = $gau[$i1] + $gau[$i3];
 172 $v = $mhu{$k1} + $mhu{$k2};
 173 $v = $ghu{$k1} + $ghu{$k2};
 174 $v = $ghu{$k1} + $ghu{$k3};
 175 EXPECT
 176 Use of uninitialized value $mau[20] in addition (+) at - line 14.
 177 Use of uninitialized value $mau[10] in addition (+) at - line 14.
 178 Use of uninitialized value $gau[20] in addition (+) at - line 15.
 179 Use of uninitialized value $gau[10] in addition (+) at - line 15.
 180 Use of uninitialized value in addition (+) at - line 16.
 181 Use of uninitialized value $gau[10] in addition (+) at - line 16.
 182 Use of uninitialized value $mhu{"bar"} in addition (+) at - line 17.
 183 Use of uninitialized value $mhu{"foo"} in addition (+) at - line 17.
 184 Use of uninitialized value $ghu{"bar"} in addition (+) at - line 18.
 185 Use of uninitialized value $ghu{"foo"} in addition (+) at - line 18.
 186 Use of uninitialized value in addition (+) at - line 19.
 187 Use of uninitialized value $ghu{"foo"} in addition (+) at - line 19.
 188 ########
 189 use warnings 'uninitialized';
 190 my ($m1, $m2, @ma, %mh, $v);
 191 our ($g1, $g2, @ga, %gh);
 192
 193 $v = $ma[$m1];
 194 $v = $ma[$g1];
 195 $v = $ga[$m2];
 196 $v = $ga[$g2];
 197
 198 $v = $mh{$m1};
 199 $v = $mh{$g1};
 200 $v = $gh{$m2};
 201 $v = $gh{$g2};
 202
 203 $v = $m1+($m2-$g1);
 204 $v = $ma[$ga[3]];
 205 $v = $ga[$ma[4]];
 206 EXPECT
 207 Use of uninitialized value $m1 in array element at - line 5.
 208 Use of uninitialized value $g1 in array element at - line 6.
 209 Use of uninitialized value $m2 in array element at - line 7.
 210 Use of uninitialized value $g2 in array element at - line 8.
 211 Use of uninitialized value $m1 in hash element at - line 10.
 212 Use of uninitialized value $g1 in hash element at - line 11.
 213 Use of uninitialized value $m2 in hash element at - line 12.
 214 Use of uninitialized value $g2 in hash element at - line 13.
 215 Use of uninitialized value $g1 in subtraction (-) at - line 15.
 216 Use of uninitialized value $m2 in subtraction (-) at - line 15.
 217 Use of uninitialized value $m1 in addition (+) at - line 15.
 218 Use of uninitialized value $ga[3] in array element at - line 16.
 219 Use of uninitialized value $ma[4] in array element at - line 17.
 220 ########
 221 use warnings 'uninitialized';
 222 my (@ma, %mh, $v);
 223 our (@ga, %gh);
 224
 225 $v = sin $ga[1000];
 226 $v = sin $ma[1000];
 227 $v = sin $gh{foo};
 228 $v = sin $mh{bar};
 229
 230 $v = sin $ga[$$];
 231 $v = sin $ma[$$];
 232 $v = sin $gh{$$};
 233 $v = sin $mh{$$};
 234 EXPECT
 235 Use of uninitialized value $ga[1000] in sin at - line 5.
 236 Use of uninitialized value $ma[1000] in sin at - line 6.
 237 Use of uninitialized value $gh{"foo"} in sin at - line 7.
 238 Use of uninitialized value $mh{"bar"} in sin at - line 8.
 239 Use of uninitialized value within @ga in sin at - line 10.
 240 Use of uninitialized value within @ma in sin at - line 11.
 241 Use of uninitialized value within %gh in sin at - line 12.
 242 Use of uninitialized value within %mh in sin at - line 13.
 243 ########
 244 use warnings 'uninitialized';
 245 my (@mat, %mht, $v);
 246 sub X::TIEARRAY { bless [], 'X' }
 247 sub X::TIEHASH { bless [], 'X' }
 248 sub X::FETCH { undef }
 249 tie @mat, 'X';
 250 tie %mht, 'X';
 251 my $key1 = 'akey';
 252 my $key2 = 'bkey';
 253 my $index1 = 33;
 254 my $index2 = 55;
 255
 256 $v = sin $mat[0];
 257 $v = $mat[0] + $mat[1];
 258 $v = sin $mat[1000];
 259 $v = $mat[1000] + $mat[1001];
 260
 261 $v = sin $mat[$index1];
 262 $v = $mat[$index1] + $mat[$index2];
 263
 264 $v = sin $mht{foo};
 265 $v = $mht{foo} + $mht{bar};
 266
 267 $v = sin $mht{$key1};
 268 $v = $mht{$key1} + $mht{$key2};
 269
 270 $v = $1+1;
 271 EXPECT
 272 Use of uninitialized value $mat[0] in sin at - line 13.
 273 Use of uninitialized value in addition (+) at - line 14.
 274 Use of uninitialized value in addition (+) at - line 14.
 275 Use of uninitialized value $mat[1000] in sin at - line 15.
 276 Use of uninitialized value in addition (+) at - line 16.
 277 Use of uninitialized value in addition (+) at - line 16.
 278 Use of uninitialized value within @mat in sin at - line 18.
 279 Use of uninitialized value in addition (+) at - line 19.
 280 Use of uninitialized value in addition (+) at - line 19.
 281 Use of uninitialized value $mht{"foo"} in sin at - line 21.
 282 Use of uninitialized value in addition (+) at - line 22.
 283 Use of uninitialized value in addition (+) at - line 22.
 284 Use of uninitialized value within %mht in sin at - line 24.
 285 Use of uninitialized value in addition (+) at - line 25.
 286 Use of uninitialized value in addition (+) at - line 25.
 287 Use of uninitialized value $1 in addition (+) at - line 27.
 288 ########
 289 use warnings 'uninitialized';
 290 my ($m1);
 291 our ($g1, @ga);
 292
 293 print $ga[1000];
 294 print STDERR $ga[1000];
 295 print STDERR $m1, $g1, $ga[1],$m2;
 296 print STDERR "", $ga[1],"";
 297 EXPECT
 298 Use of uninitialized value in print at - line 5.
 299 Use of uninitialized value in print at - line 6.
 300 Use of uninitialized value $m1 in print at - line 7.
 301 Use of uninitialized value $g1 in print at - line 7.
 302 Use of uninitialized value in print at - line 7.
 303 Use of uninitialized value $m2 in print at - line 7.
 304 Use of uninitialized value in print at - line 8.
 305 ########
 306 use warnings 'uninitialized';
 307 my ($m1);
 308 our ($g1);
 309
 310 close $m1;      # exercises rv2gv
 311 close $g1;      # exercises rv2gv
 312 close undef;    # exercises rv2gv
 313 EXPECT
 314 Use of uninitialized value $m1 in ref-to-glob cast at - line 5.
 315 Use of uninitialized value $g1 in ref-to-glob cast at - line 6.
 316 Use of uninitialized value in ref-to-glob cast at - line 7.
 317 ########
 318 use warnings 'uninitialized';
 319 my ($m1, $m2, $v);
 320 our ($g1, $g2);
 321
 322 $v = $$m1;
 323 $v = $$g1;
 324
 325 $v = @$m1;
 326 $v = @$g1;
 327 $v = %$m2;
 328 $v = %$g2;
 329
 330 $v = ${"foo.bar"}+1;
 331 $v = ${"foo$m1"}+1;
 332 $v = ${"foo$g1"}+1;
 333 EXPECT
 334 Use of uninitialized value $m1 in scalar dereference at - line 5.
 335 Use of uninitialized value $g1 in scalar dereference at - line 6.
 336 Use of uninitialized value $m1 in array dereference at - line 8.
 337 Use of uninitialized value $g1 in array dereference at - line 9.
 338 Use of uninitialized value $m2 in hash dereference at - line 10.
 339 Use of uninitialized value $g2 in hash dereference at - line 11.
 340 Use of uninitialized value in addition (+) at - line 13.
 341 Use of uninitialized value $m1 in concatenation (.) or string at - line 14.
 342 Use of uninitialized value in addition (+) at - line 14.
 343 Use of uninitialized value $g1 in concatenation (.) or string at - line 15.
 344 Use of uninitialized value in addition (+) at - line 15.
 345 ########
 346 use warnings 'uninitialized';
 347 my ($m1, $v);
 348 our ($g1);
 349
 350 $v = $m1 | $m2;
 351 $v = $m1 & $m2;
 352 $v = $m1 ^ $m2;
 353 $v = ~$m1;
 354
 355 $v = $g1 | $g2;
 356 $v = $g1 & $g2;
 357 $v = $g1 ^ $g2;
 358 $v = ~$g1;
 359 EXPECT
 360 Use of uninitialized value $m1 in bitwise or (|) at - line 5.
 361 Use of uninitialized value $m2 in bitwise or (|) at - line 5.
 362 Use of uninitialized value $m1 in bitwise and (&) at - line 6.
 363 Use of uninitialized value $m2 in bitwise and (&) at - line 6.
 364 Use of uninitialized value $m1 in bitwise xor (^) at - line 7.
 365 Use of uninitialized value $m2 in bitwise xor (^) at - line 7.
 366 Use of uninitialized value $m1 in 1's complement (~) at - line 8.
 367 Use of uninitialized value $g1 in bitwise or (|) at - line 10.
 368 Use of uninitialized value $g2 in bitwise or (|) at - line 10.
 369 Use of uninitialized value $g1 in bitwise and (&) at - line 11.
 370 Use of uninitialized value $g2 in bitwise and (&) at - line 11.
 371 Use of uninitialized value $g1 in bitwise xor (^) at - line 12.
 372 Use of uninitialized value $g2 in bitwise xor (^) at - line 12.
 373 Use of uninitialized value $g1 in 1's complement (~) at - line 13.
 374 ########
 375 use warnings 'uninitialized';
 376 my ($v);
 377
 378 my  $tmp1; $v = $tmp1++; # (doesn't warn)
 379 our $tmp2; $v = $tmp2++; # (doesn't warn)
 380 my  $tmp3; $v = ++$tmp1; # (doesn't warn)
 381 our $tmp4; $v = ++$tmp2; # (doesn't warn)
 382
 383 my  $tmp5; $v = $tmp5--; # (doesn't warn)
 384 our $tmp6; $v = $tmp6--; # (doesn't warn)
 385 my  $tmp7; $v = --$tmp7; # (doesn't warn)
 386 our $tmp8; $v = --$tmp8; # (doesn't warn)
 387 EXPECT
 388 ########
 389 use warnings 'uninitialized';
 390
 391 my $s1; chomp $s1;
 392 my $s2; chop  $s2;
 393 my ($s3,$s4); chomp ($s3,$s4);
 394 my ($s5,$s6); chop  ($s5,$s6);
 395 EXPECT
 396 Use of uninitialized value $s1 in scalar chomp at - line 3.
 397 Use of uninitialized value $s2 in scalar chop at - line 4.
 398 Use of uninitialized value $s3 in chomp at - line 5.
 399 Use of uninitialized value $s4 in chomp at - line 5.
 400 Use of uninitialized value $s5 in chop at - line 6.
 401 Use of uninitialized value $s6 in chop at - line 6.
 402 ########
 403 use warnings 'uninitialized';
 404 my ($m1);
 405
 406 local $/ =\$m1;
 407 my $x = "abc";
 408 chomp $x; chop $x;
 409 my $y;
 410 chomp ($x, $y); chop ($x, $y);
 411 EXPECT
 412 Use of uninitialized value ${$/} in scalar chomp at - line 6.
 413 Use of uninitialized value ${$/} in chomp at - line 8.
 414 Use of uninitialized value ${$/} in chomp at - line 8.
 415 Use of uninitialized value $y in chomp at - line 8.
 416 Use of uninitialized value $y in chop at - line 8.
 417 ########
 418 use warnings 'uninitialized';
 419 my ($m1, @ma, %mh);
 420 our ($g1);
 421
 422 delete $ma[$m1];
 423 delete @ma[$m1, $g1];
 424 delete $mh{$m1};
 425 delete @mh{$m1, $g1};
 426 EXPECT
 427 Use of uninitialized value $m1 in delete at - line 5.
 428 Use of uninitialized value $m1 in delete at - line 6.
 429 Use of uninitialized value $g1 in delete at - line 6.
 430 Use of uninitialized value $m1 in delete at - line 7.
 431 Use of uninitialized value $m1 in delete at - line 8.
 432 Use of uninitialized value $g1 in delete at - line 8.
 433 ########
 434 use warnings 'uninitialized';
 435 my ($m1, @ma, %mh);
 436 our ($g1);
 437
 438 my @a = @ma[$m1, $g1];
 439 @a = (4,5)[$m1, $g1];
 440 @a = @mh{$m1, $g1};
 441 EXPECT
 442 Use of uninitialized value $m1 in array slice at - line 5.
 443 Use of uninitialized value $g1 in array slice at - line 5.
 444 Use of uninitialized value $m1 in list slice at - line 6.
 445 Use of uninitialized value $g1 in list slice at - line 6.
 446 Use of uninitialized value $m1 in hash slice at - line 7.
 447 Use of uninitialized value $g1 in hash slice at - line 7.
 448 ########
 449 use warnings 'uninitialized';
 450 my ($m1, @ma, %mh, $v);
 451 our ($g1, @ga, %gh);
 452
 453 $v = exists $ma[$m1];
 454 $v = exists $ga[$g1];
 455 $v = exists $mh{$m1};
 456 $v = exists $gh{$g1};
 457 EXPECT
 458 Use of uninitialized value $m1 in exists at - line 5.
 459 Use of uninitialized value $g1 in exists at - line 6.
 460 Use of uninitialized value $m1 in exists at - line 7.
 461 Use of uninitialized value $g1 in exists at - line 8.
 462 ########
 463 use warnings 'uninitialized';
 464 my ($m1, $m2);
 465 my ($v, @a);
 466 my ($t, $u) = (1, 1);
 467
 468 local $.;
 469
 470 @ma = (1   .. 2);
 471 @ma = ($t  .. 2);
 472 @ma = ($m1 .. 2);
 473 @ma = (1   .. $u);
 474 @ma = (1   .. $m2);
 475
 476 @ma = (1   ... 2);
 477 @ma = ($t  ... 2);
 478 @ma = ($m1 ... 2);
 479 @ma = (1   ... $u);
 480 @ma = (1   ... $m2);
 481
 482 $v = (1   .. 2);
 483 $v = ($t  .. 2);
 484 $v = ($m1 .. 2);
 485 $v = (1   .. $u);
 486 $v = (1   .. $m2);
 487
 488 $v = (1   ... 2);
 489 $v = ($t  ... 2);
 490 $v = ($m1 ... 2);
 491 $v = (1   ... $u);
 492 $v = (1   ... $m2);
 493 EXPECT
 494 Use of uninitialized value $m1 in range (or flop) at - line 10.
 495 Use of uninitialized value $m2 in range (or flop) at - line 12.
 496 Use of uninitialized value $m1 in range (or flop) at - line 16.
 497 Use of uninitialized value $m2 in range (or flop) at - line 18.
 498 Use of uninitialized value $. in range (or flip) at - line 20.
 499 Use of uninitialized value $. in range (or flop) at - line 21.
 500 Use of uninitialized value $. in range (or flip) at - line 23.
 501 Use of uninitialized value $. in range (or flip) at - line 24.
 502 Use of uninitialized value $. in range (or flip) at - line 26.
 503 Use of uninitialized value $. in range (or flip) at - line 29.
 504 Use of uninitialized value $. in range (or flip) at - line 30.
 505 ########
 506 use warnings 'uninitialized';
 507 my ($m1, $m2);
 508 my ($v, @a);
 509 my ($t, $u) = (1, 1);
 510
 511 @ma = ($t  .. $u);
 512 @ma = ($m1 .. $u);
 513 @ma = ($t  .. $m2);
 514 @ma = ($m1 .. $m2);
 515
 516 @ma = ($t  ... $u);
 517 @ma = ($m1 ... $u);
 518 @ma = ($t  ... $m2);
 519 @ma = ($m1 ... $m2);
 520
 521 $v = ($t  .. $u);
 522 $v = ($m1 .. $u);
 523 $v = ($t  .. $m2);
 524 $v = ($m1 .. $m2);
 525
 526 $v = ($t  ... $u);
 527 $v = ($m1 ... $u);
 528 $v = ($t  ... $m2);
 529 $v = ($m1 ... $m2);
 530 EXPECT
 531 Use of uninitialized value $m1 in range (or flop) at - line 7.
 532 Use of uninitialized value $m2 in range (or flop) at - line 8.
 533 Use of uninitialized value $m1 in range (or flop) at - line 9.
 534 Use of uninitialized value $m2 in range (or flop) at - line 9.
 535 Use of uninitialized value $m1 in range (or flop) at - line 12.
 536 Use of uninitialized value $m2 in range (or flop) at - line 13.
 537 Use of uninitialized value $m1 in range (or flop) at - line 14.
 538 Use of uninitialized value $m2 in range (or flop) at - line 14.
 539 ########
 540 use warnings 'uninitialized';
 541 my ($m1, $v);
 542 our ($g1);
 543
 544 my ($x1,$x2);
 545 $v = $x1 << $m1;
 546 $v = $x2 << $g1;
 547 EXPECT
 548 Use of uninitialized value $m1 in left bitshift (<<) at - line 6.
 549 Use of uninitialized value $x1 in left bitshift (<<) at - line 6.
 550 Use of uninitialized value $g1 in left bitshift (<<) at - line 7.
 551 Use of uninitialized value $x2 in left bitshift (<<) at - line 7.
 552 ########
 553 use warnings 'uninitialized';
 554 my ($m1, $m2, $v);
 555 our ($g1, $g2);
 556
 557 use integer;
 558 $v = $m1 + $g1;
 559 $v = $m1 - $g1;
 560 $v = $m1 * $g1;
 561 eval {$v = $m1 / $g1};
 562 $v = $m2 / 2;
 563 eval {$v = $m1 % $g1};
 564 $v = $m2 % 2;
 565 $v = $m1 < $g1;
 566 $v = $m1 > $g1;
 567 $v = $m1 <= $g1;
 568 $v = $m1 >= $g1;
 569 $v = $m1 == $g1;
 570 $v = $m1 != $g1;
 571 $v = $m1 <=> $g1;
 572 $v = -$m1;
 573 EXPECT
 574 Use of uninitialized value $g1 in integer addition (+) at - line 6.
 575 Use of uninitialized value $m1 in integer addition (+) at - line 6.
 576 Use of uninitialized value $g1 in integer subtraction (-) at - line 7.
 577 Use of uninitialized value $m1 in integer subtraction (-) at - line 7.
 578 Use of uninitialized value $g1 in integer multiplication (*) at - line 8.
 579 Use of uninitialized value $m1 in integer multiplication (*) at - line 8.
 580 Use of uninitialized value $g1 in integer division (/) at - line 9.
 581 Use of uninitialized value $m2 in integer division (/) at - line 10.
 582 Use of uninitialized value $g1 in integer modulus (%) at - line 11.
 583 Use of uninitialized value $m1 in integer modulus (%) at - line 11.
 584 Use of uninitialized value $m2 in integer modulus (%) at - line 12.
 585 Use of uninitialized value $g1 in integer lt (<) at - line 13.
 586 Use of uninitialized value $m1 in integer lt (<) at - line 13.
 587 Use of uninitialized value $g1 in integer gt (>) at - line 14.
 588 Use of uninitialized value $m1 in integer gt (>) at - line 14.
 589 Use of uninitialized value $g1 in integer le (<=) at - line 15.
 590 Use of uninitialized value $m1 in integer le (<=) at - line 15.
 591 Use of uninitialized value $g1 in integer ge (>=) at - line 16.
 592 Use of uninitialized value $m1 in integer ge (>=) at - line 16.
 593 Use of uninitialized value $g1 in integer eq (==) at - line 17.
 594 Use of uninitialized value $m1 in integer eq (==) at - line 17.
 595 Use of uninitialized value $g1 in integer ne (!=) at - line 18.
 596 Use of uninitialized value $m1 in integer ne (!=) at - line 18.
 597 Use of uninitialized value $g1 in integer comparison (<=>) at - line 19.
 598 Use of uninitialized value $m1 in integer comparison (<=>) at - line 19.
 599 Use of uninitialized value $m1 in integer negation (-) at - line 20.
 600 ########
 601 use warnings 'uninitialized';
 602 my ($m1, $m2, $v);
 603 our ($g1, $g2);
 604
 605 $v = int($g1);
 606 $v = abs($g2);
 607 EXPECT
 608 Use of uninitialized value $g1 in int at - line 5.
 609 Use of uninitialized value $g2 in abs at - line 6.
 610 ########
 611 use warnings 'uninitialized';
 612 my ($m1, $m2, $v);
 613 our ($g1);
 614
 615 $v = pack $m1;
 616 $v = pack "i*", $m2, $g1, $g2;
 617 my @unpack = unpack $m1, $m2;
 618 EXPECT
 619 Use of uninitialized value $m1 in pack at - line 5.
 620 Use of uninitialized value $m2 in pack at - line 6.
 621 Use of uninitialized value $g1 in pack at - line 6.
 622 Use of uninitialized value $g2 in pack at - line 6.
 623 Use of uninitialized value $m1 in unpack at - line 7.
 624 Use of uninitialized value $m2 in unpack at - line 7.
 625 ########
 626 use warnings 'uninitialized';
 627 my ($m1);
 628 our ($g1);
 629
 630 my @sort;
 631 @sort = sort $m1, $g1;
 632 @sort = sort {$a <=> $b} $m1, $g1;
 633 sub sortf {$a-1 <=> $b-1};
 634 @sort = sort  &sortf, $m1, $g1;
 635 @sort = sort { undef } 1, 2;
 636 sub frobnicate($$) { undef }
 637 @sort = sort frobnicate 1, 2;
 638 @sort = sort pyfg 1, 2;
 639 @sort = sort pyfgc 1, 2;
 640 no warnings;
 641 sub pyfg { undef }
 642 sub pyfgc($$) { undef }
 643 use warnings;
 644 sub dog {}
 645 sub dogwood($$) {}
 646 @sort = sort dog     1,2;
 647 @sort = sort dogwood 1,2;
 648 EXPECT
 649 Use of uninitialized value $m1 in sort at - line 6.
 650 Use of uninitialized value $g1 in sort at - line 6.
 651 Use of uninitialized value $m1 in sort at - line 6.
 652 Use of uninitialized value $g1 in sort at - line 6.
 653 Use of uninitialized value $m1 in sort at - line 7.
 654 Use of uninitialized value $g1 in sort at - line 7.
 655 Use of uninitialized value $m1 in sort at - line 7.
 656 Use of uninitialized value $g1 in sort at - line 7.
 657 Use of uninitialized value $a in subtraction (-) at - line 8.
 658 Use of uninitialized value $b in subtraction (-) at - line 8.
 659 Use of uninitialized value $m1 in sort at - line 9.
 660 Use of uninitialized value $g1 in sort at - line 9.
 661 Use of uninitialized value $m1 in sort at - line 9.
 662 Use of uninitialized value $m1 in sort at - line 9.
 663 Use of uninitialized value $g1 in sort at - line 9.
 664 Use of uninitialized value $g1 in sort at - line 9.
 665 Use of uninitialized value in sort at - line 10.
 666 Use of uninitialized value in sort at - line 12.
 667 Use of uninitialized value in sort at - line 13.
 668 Use of uninitialized value in sort at - line 14.
 669 Use of uninitialized value in sort at - line 21.
 670 Use of uninitialized value in sort at - line 22.
 671 ########
 672 my $nan = sin 9**9**9;
 673 if ($nan == $nan) {
 674     print <<EOM ;
 675 SKIPPED
 676 # No nan support
 677 EOM
 678     exit ;
 679 }
 680 use warnings 'uninitialized';
 681 # The optimised {$a<=>$b} case should behave the same way as unoptimised.
 682 @sort = sort { ($a)[0] <=> $b } 1, $nan;
 683 @sort = sort {  $a     <=> $b } 1, $nan;
 684 EXPECT
 685 Use of uninitialized value in sort at - line 11.
 686 Use of uninitialized value in sort at - line 12.
 687 ########
 688 use warnings 'uninitialized';
 689 my ($m1, $m2, $v);
 690 our ($g1);
 691
 692 eval { $v = $m1 / $g1 };
 693 $v = $m2 / 2;
 694 eval { $v = $m1 % $g1 };
 695 $v = $m2 % 2;
 696 $v = $m1 == $g1;
 697 $v = $m1 >= $g1;
 698 $v = $m1 >  $g1;
 699 $v = $m1 <= $g1;
 700 $v = $m1 <  $g1;
 701 $v = $m1 *  $g1;
 702 $v = $m1 <=>$g1;
 703 $v = $m1 != $g1;
 704 $v = $m1   -$g1;
 705 $v = $m1 ** $g1;
 706 $v = $m1 +  $g1;
 707 $v = $m1 -  $g1;
 708 EXPECT
 709 Use of uninitialized value $g1 in division (/) at - line 5.
 710 Use of uninitialized value $m1 in division (/) at - line 5.
 711 Use of uninitialized value $m2 in division (/) at - line 6.
 712 Use of uninitialized value $g1 in modulus (%) at - line 7.
 713 Use of uninitialized value $m1 in modulus (%) at - line 7.
 714 Use of uninitialized value $m2 in modulus (%) at - line 8.
 715 Use of uninitialized value $g1 in numeric eq (==) at - line 9.
 716 Use of uninitialized value $m1 in numeric eq (==) at - line 9.
 717 Use of uninitialized value $g1 in numeric ge (>=) at - line 10.
 718 Use of uninitialized value $m1 in numeric ge (>=) at - line 10.
 719 Use of uninitialized value $g1 in numeric gt (>) at - line 11.
 720 Use of uninitialized value $m1 in numeric gt (>) at - line 11.
 721 Use of uninitialized value $g1 in numeric le (<=) at - line 12.
 722 Use of uninitialized value $m1 in numeric le (<=) at - line 12.
 723 Use of uninitialized value $g1 in numeric lt (<) at - line 13.
 724 Use of uninitialized value $m1 in numeric lt (<) at - line 13.
 725 Use of uninitialized value $g1 in multiplication (*) at - line 14.
 726 Use of uninitialized value $m1 in multiplication (*) at - line 14.
 727 Use of uninitialized value $g1 in numeric comparison (<=>) at - line 15.
 728 Use of uninitialized value $m1 in numeric comparison (<=>) at - line 15.
 729 Use of uninitialized value $g1 in numeric ne (!=) at - line 16.
 730 Use of uninitialized value $m1 in numeric ne (!=) at - line 16.
 731 Use of uninitialized value $g1 in subtraction (-) at - line 17.
 732 Use of uninitialized value $m1 in subtraction (-) at - line 17.
 733 Use of uninitialized value $g1 in exponentiation (**) at - line 18.
 734 Use of uninitialized value $m1 in exponentiation (**) at - line 18.
 735 Use of uninitialized value $g1 in addition (+) at - line 19.
 736 Use of uninitialized value $m1 in addition (+) at - line 19.
 737 Use of uninitialized value $g1 in subtraction (-) at - line 20.
 738 Use of uninitialized value $m1 in subtraction (-) at - line 20.
 739 ########
 740 use warnings 'uninitialized';
 741 sub TIESCALAR{bless[]}
 742 sub FETCH { undef }
 743
 744 tie my $m1, "";
 745 my $v;
 746 $v = $m1 + $m1;
 747 $v = $m1 - $m1;
 748 no warnings;
 749 $v = $m1 + $m1;
 750 $v = $m1 - $m1;
 751 EXPECT
 752 Use of uninitialized value $m1 in addition (+) at - line 7.
 753 Use of uninitialized value $m1 in addition (+) at - line 7.
 754 Use of uninitialized value $m1 in subtraction (-) at - line 8.
 755 Use of uninitialized value $m1 in subtraction (-) at - line 8.
 756 ########
 757 use warnings 'uninitialized';
 758 my ($m1, $v);
 759 our ($g1);
 760
 761 $v = *global1{$m1};
 762 $v = prototype $g1;
 763 $v = bless [], $g1;
 764 $v = `$m1`;
 765
 766 $v = $m1 . $g1;
 767 EXPECT
 768 Use of uninitialized value $m1 in glob elem at - line 5.
 769 Use of uninitialized value $g1 in subroutine prototype at - line 6.
 770 Use of uninitialized value $g1 in bless at - line 7.
 771 Use of uninitialized value $m1 in quoted execution (``, qx) at - line 8.
 772 Use of uninitialized value $m1 in concatenation (.) or string at - line 10.
 773 Use of uninitialized value $g1 in concatenation (.) or string at - line 10.
 774 ########
 775 use warnings 'uninitialized';
 776 my ($m1);
 777 our ($g1, $g2);
 778
 779 /y/;
 780 /$m1/;
 781 /$g1/;
 782
 783 s/y/z/;         undef $_;
 784 s/$m1/z/;       undef $_;
 785 s//$g1/;        undef $_;
 786 s/$m1/$g1/;     undef $_;
 787 tr/x/y/;        undef $_;
 788 tr/x/y/r;       undef $_;
 789
 790 my $_;
 791 /y/;
 792 /$m1/;
 793 /$g1/;
 794 s/y/z/;         undef $_;
 795 s/$m1/z/;       undef $_;
 796 s//$g1/;        undef $_;
 797 s/$m1/$g1/;     undef $_;
 798 tr/x/y/;        undef $_;
 799 tr/x/y/r;       undef $_;
 800
 801 $g2 =~ /y/;
 802 $g2 =~ /$m1/;
 803 $g2 =~ /$g1/;
 804 $g2 =~ s/y/z/;          undef $g2;
 805 $g2 =~ s/$m1/z/;        undef $g2;
 806 $g2 =~ s//$g1/;         undef $g2;
 807 $g2 =~ s/$m1/$g1/;      undef $g2;
 808 $g2 =~ tr/x/y/;         undef $g2; # XXX can't extract var name yet
 809 $g2 =~ tr/x/y/r;        undef $g2; # XXX can't extract var name yet
 810
 811 my $foo = "abc";
 812 $foo =~ /$m1/;
 813 $foo =~ /$g1/;
 814 $foo =~ s/y/z/;
 815 $foo =~ s/$m1/z/;
 816 $foo =~ s//$g1/;
 817 $foo =~ s/$m1/$g1/;
 818 $foo =~ s/./$m1/e;
 819 undef $g1;
 820 $m1 = '$g1';
 821 $foo =~ s//$m1/ee;
 822 EXPECT
 823 Use of uninitialized value $_ in pattern match (m//) at - line 5.
 824 Use of uninitialized value $m1 in regexp compilation at - line 6.
 825 Use of uninitialized value $_ in pattern match (m//) at - line 6.
 826 Use of uninitialized value $g1 in regexp compilation at - line 7.
 827 Use of uninitialized value $_ in pattern match (m//) at - line 7.
 828 Use of uninitialized value $_ in substitution (s///) at - line 9.
 829 Use of uninitialized value $m1 in regexp compilation at - line 10.
 830 Use of uninitialized value $_ in substitution (s///) at - line 10.
 831 Use of uninitialized value $_ in substitution (s///) at - line 10.
 832 Use of uninitialized value $_ in substitution (s///) at - line 11.
 833 Use of uninitialized value $g1 in substitution (s///) at - line 11.
 834 Use of uninitialized value $_ in substitution (s///) at - line 11.
 835 Use of uninitialized value $g1 in substitution (s///) at - line 11.
 836 Use of uninitialized value $m1 in regexp compilation at - line 12.
 837 Use of uninitialized value $_ in substitution (s///) at - line 12.
 838 Use of uninitialized value $_ in substitution (s///) at - line 12.
 839 Use of uninitialized value $g1 in substitution iterator at - line 12.
 840 Use of uninitialized value $_ in transliteration (tr///) at - line 13.
 841 Use of uninitialized value $_ in transliteration (tr///) at - line 14.
 842 Use of uninitialized value $_ in pattern match (m//) at - line 17.
 843 Use of uninitialized value $m1 in regexp compilation at - line 18.
 844 Use of uninitialized value $_ in pattern match (m//) at - line 18.
 845 Use of uninitialized value $g1 in regexp compilation at - line 19.
 846 Use of uninitialized value $_ in pattern match (m//) at - line 19.
 847 Use of uninitialized value $_ in substitution (s///) at - line 20.
 848 Use of uninitialized value $m1 in regexp compilation at - line 21.
 849 Use of uninitialized value $_ in substitution (s///) at - line 21.
 850 Use of uninitialized value $_ in substitution (s///) at - line 21.
 851 Use of uninitialized value $_ in substitution (s///) at - line 22.
 852 Use of uninitialized value $g1 in substitution (s///) at - line 22.
 853 Use of uninitialized value $_ in substitution (s///) at - line 22.
 854 Use of uninitialized value $g1 in substitution (s///) at - line 22.
 855 Use of uninitialized value $m1 in regexp compilation at - line 23.
 856 Use of uninitialized value $_ in substitution (s///) at - line 23.
 857 Use of uninitialized value $_ in substitution (s///) at - line 23.
 858 Use of uninitialized value $g1 in substitution iterator at - line 23.
 859 Use of uninitialized value $_ in transliteration (tr///) at - line 24.
 860 Use of uninitialized value $_ in transliteration (tr///) at - line 25.
 861 Use of uninitialized value $g2 in pattern match (m//) at - line 27.
 862 Use of uninitialized value $m1 in regexp compilation at - line 28.
 863 Use of uninitialized value $g2 in pattern match (m//) at - line 28.
 864 Use of uninitialized value $g1 in regexp compilation at - line 29.
 865 Use of uninitialized value $g2 in pattern match (m//) at - line 29.
 866 Use of uninitialized value $g2 in substitution (s///) at - line 30.
 867 Use of uninitialized value $m1 in regexp compilation at - line 31.
 868 Use of uninitialized value $g2 in substitution (s///) at - line 31.
 869 Use of uninitialized value $g2 in substitution (s///) at - line 31.
 870 Use of uninitialized value $g2 in substitution (s///) at - line 32.
 871 Use of uninitialized value $g1 in substitution (s///) at - line 32.
 872 Use of uninitialized value $g2 in substitution (s///) at - line 32.
 873 Use of uninitialized value $g1 in substitution (s///) at - line 32.
 874 Use of uninitialized value $m1 in regexp compilation at - line 33.
 875 Use of uninitialized value $g2 in substitution (s///) at - line 33.
 876 Use of uninitialized value $g2 in substitution (s///) at - line 33.
 877 Use of uninitialized value $g1 in substitution iterator at - line 33.
 878 Use of uninitialized value in transliteration (tr///) at - line 34.
 879 Use of uninitialized value in transliteration (tr///) at - line 35.
 880 Use of uninitialized value $m1 in regexp compilation at - line 38.
 881 Use of uninitialized value $g1 in regexp compilation at - line 39.
 882 Use of uninitialized value $m1 in regexp compilation at - line 41.
 883 Use of uninitialized value $g1 in substitution (s///) at - line 42.
 884 Use of uninitialized value $m1 in regexp compilation at - line 43.
 885 Use of uninitialized value $g1 in substitution iterator at - line 43.
 886 Use of uninitialized value $m1 in substitution iterator at - line 44.
 887 Use of uninitialized value in substitution iterator at - line 47.
 888 ########
 889 use warnings 'uninitialized';
 890 my ($m1);
 891
 892 { my $foo = "abc"; (substr($foo,0,0)) = ($m1) }
 893 EXPECT
 894 Use of uninitialized value $m1 in list assignment at - line 4.
 895 ########
 896 use warnings 'uninitialized';
 897 our ($g1);
 898
 899 study;
 900 study $g1;
 901 EXPECT
 902 Use of uninitialized value $_ in study at - line 4.
 903 Use of uninitialized value $g1 in study at - line 5.
 904 ########
 905 use warnings 'uninitialized';
 906 my ($m1);
 907
 908 pos()=0;
 909 pos($m1)=0;
 910 EXPECT
 911 Use of uninitialized value $_ in scalar assignment at - line 4.
 912 Use of uninitialized value $m1 in scalar assignment at - line 5.
 913 ########
 914 use warnings 'uninitialized';
 915 my ($m1);
 916 our ($g1);
 917
 918 $v = pos($m1) + 1;
 919 $v = pos($g1) + 1;
 920 $m1 = 0;
 921 $g1 = "";
 922 $v = pos($m1) + 1;
 923 $v = pos($g1) + 1;
 924 EXPECT
 925 Use of uninitialized value in addition (+) at - line 5.
 926 Use of uninitialized value in addition (+) at - line 6.
 927 Use of uninitialized value in addition (+) at - line 9.
 928 Use of uninitialized value in addition (+) at - line 10.
 929 ########
 930 use warnings 'uninitialized';
 931 my ($m1);
 932
 933 { my $x = "a" x $m1 }           # NB LHS of repeat does not warn
 934 { my @x = ("a") x $m1 }
 935 EXPECT
 936 Use of uninitialized value $m1 in repeat (x) at - line 4.
 937 Use of uninitialized value $m1 in repeat (x) at - line 5.
 938 ########
 939 use warnings 'uninitialized';
 940 my ($m1, $v);
 941 our ($g1);
 942
 943 $v = "$m1";
 944
 945 $v = $m1 lt $g1;
 946 $v = $m1 le $g1;
 947 $v = $m1 gt $g1;
 948 $v = $m1 ge $g1;
 949 $v = $m1 eq $g1;
 950 $v = $m1 ne $g1;
 951 $v = $m1 cmp $g1;
 952 EXPECT
 953 Use of uninitialized value $m1 in string at - line 5.
 954 Use of uninitialized value $m1 in string lt at - line 7.
 955 Use of uninitialized value $g1 in string lt at - line 7.
 956 Use of uninitialized value $m1 in string le at - line 8.
 957 Use of uninitialized value $g1 in string le at - line 8.
 958 Use of uninitialized value $m1 in string gt at - line 9.
 959 Use of uninitialized value $g1 in string gt at - line 9.
 960 Use of uninitialized value $m1 in string ge at - line 10.
 961 Use of uninitialized value $g1 in string ge at - line 10.
 962 Use of uninitialized value $m1 in string eq at - line 11.
 963 Use of uninitialized value $g1 in string eq at - line 11.
 964 Use of uninitialized value $m1 in string ne at - line 12.
 965 Use of uninitialized value $g1 in string ne at - line 12.
 966 Use of uninitialized value $m1 in string comparison (cmp) at - line 13.
 967 Use of uninitialized value $g1 in string comparison (cmp) at - line 13.
 968 ########
 969 use warnings 'uninitialized';
 970 my ($m1, $v);
 971 our ($g1);
 972
 973 $v = atan2($m1,$g1);
 974 $v = sin $m1;
 975 $v = cos $m1;
 976 $v = rand $m1;
 977 $v = srand $m1;
 978 $v = exp $m1;
 979 $v = eval {log $m1};
 980 $v = sqrt $m1;
 981 $v = hex $m1;
 982 $v = oct $m1;
 983 $v = oct;
 984 $v = length; # does not warn
 985 EXPECT
 986 Use of uninitialized value $g1 in atan2 at - line 5.
 987 Use of uninitialized value $m1 in atan2 at - line 5.
 988 Use of uninitialized value $m1 in sin at - line 6.
 989 Use of uninitialized value $m1 in cos at - line 7.
 990 Use of uninitialized value $m1 in rand at - line 8.
 991 Use of uninitialized value $m1 in srand at - line 9.
 992 Use of uninitialized value $m1 in exp at - line 10.
 993 Use of uninitialized value $m1 in log at - line 11.
 994 Use of uninitialized value $m1 in sqrt at - line 12.
 995 Use of uninitialized value $m1 in hex at - line 13.
 996 Use of uninitialized value $m1 in oct at - line 14.
 997 Use of uninitialized value $_ in oct at - line 15.
 998 ########
 999 use warnings 'uninitialized';
1000 my ($m1, $v);
1001 our ($g1);
1002
1003 $v = substr $m1, $g1;
1004 $v = substr $m1, $g1, $m2;
1005 $v = substr $m1, $g1, $m2, $g2; undef $m1;
1006 substr($m1, $g1) = $g2;         undef $m1; # NB global2
1007 substr($m1, $g1, $m2) = $g2;    undef $m1; # isn't identified
1008
1009 $v = eval {vec ($m1, $g1, $m2)};
1010 eval {vec ($m1, $g1, $m2) = $g2};       undef $m1; # ditto
1011
1012 $v = index  $m1, $m2;
1013 $v = index  $m1, $m2, $g1;
1014 $v = rindex $m1, $m2;
1015 $v = rindex $m1, $m2, $g1;
1016 EXPECT
1017 Use of uninitialized value $g1 in substr at - line 5.
1018 Use of uninitialized value $m1 in substr at - line 5.
1019 Use of uninitialized value $m2 in substr at - line 6.
1020 Use of uninitialized value $g1 in substr at - line 6.
1021 Use of uninitialized value $m1 in substr at - line 6.
1022 Use of uninitialized value $m2 in substr at - line 7.
1023 Use of uninitialized value $g1 in substr at - line 7.
1024 Use of uninitialized value $g2 in substr at - line 7.
1025 Use of uninitialized value $m1 in substr at - line 7.
1026 Use of uninitialized value $g1 in substr at - line 8.
1027 Use of uninitialized value $g2 in substr at - line 8.
1028 Use of uninitialized value $m1 in substr at - line 8.
1029 Use of uninitialized value $m2 in substr at - line 9.
1030 Use of uninitialized value $g1 in substr at - line 9.
1031 Use of uninitialized value $g2 in substr at - line 9.
1032 Use of uninitialized value $m1 in substr at - line 9.
1033 Use of uninitialized value $m2 in vec at - line 11.
1034 Use of uninitialized value $g1 in vec at - line 11.
1035 Use of uninitialized value $m1 in vec at - line 11.
1036 Use of uninitialized value $m2 in vec at - line 12.
1037 Use of uninitialized value $g1 in vec at - line 12.
1038 Use of uninitialized value $m1 in vec at - line 12.
1039 Use of uninitialized value $m1 in index at - line 14.
1040 Use of uninitialized value $m2 in index at - line 14.
1041 Use of uninitialized value $g1 in index at - line 15.
1042 Use of uninitialized value $m1 in index at - line 15.
1043 Use of uninitialized value $m2 in index at - line 15.
1044 Use of uninitialized value $m1 in rindex at - line 16.
1045 Use of uninitialized value $m2 in rindex at - line 16.
1046 Use of uninitialized value $g1 in rindex at - line 17.
1047 Use of uninitialized value $m1 in rindex at - line 17.
1048 Use of uninitialized value $m2 in rindex at - line 17.
1049 ########
1050 use warnings 'uninitialized';
1051 my ($m1, $v);
1052 our ($g1);
1053
1054 $v = sprintf $m1;
1055 $v = sprintf '%d%d%d%d', $m1, $m2, $g1, $g2;
1056 my $m3; eval {formline $m3 };
1057 formline '@<<@<<@<<@<<', $m1, $m2, $g1, $g2;
1058 EXPECT
1059 Use of uninitialized value $m1 in sprintf at - line 5.
1060 Use of uninitialized value $m1 in sprintf at - line 6.
1061 Use of uninitialized value $m2 in sprintf at - line 6.
1062 Use of uninitialized value $g1 in sprintf at - line 6.
1063 Use of uninitialized value $g2 in sprintf at - line 6.
1064 Use of uninitialized value $m3 in formline at - line 7.
1065 Use of uninitialized value $m1 in formline at - line 8.
1066 Use of uninitialized value $m2 in formline at - line 8.
1067 Use of uninitialized value $g1 in formline at - line 8.
1068 Use of uninitialized value $g2 in formline at - line 8.
1069 ########
1070 use warnings 'uninitialized';
1071 my ($m1, $v);
1072 our ($g1);
1073
1074 $v = crypt $m1, $g1;
1075
1076 $v = ord;
1077 $v = ord $m1;
1078 $v = chr;
1079 $v = chr $m1;
1080
1081 $v = ucfirst;
1082 $v = ucfirst $m1;
1083 $v = lcfirst;
1084 $v = lcfirst $m1;
1085 $v = uc;
1086 $v = uc $m1;
1087 $v = lc;
1088 $v = lc $m1;
1089
1090 $v = quotemeta;
1091 $v = quotemeta $m1;
1092 EXPECT
1093 Use of uninitialized value $m1 in crypt at - line 5.
1094 Use of uninitialized value $g1 in crypt at - line 5.
1095 Use of uninitialized value $_ in ord at - line 7.
1096 Use of uninitialized value $m1 in ord at - line 8.
1097 Use of uninitialized value $_ in chr at - line 9.
1098 Use of uninitialized value $m1 in chr at - line 10.
1099 Use of uninitialized value $_ in ucfirst at - line 12.
1100 Use of uninitialized value $m1 in ucfirst at - line 13.
1101 Use of uninitialized value $_ in lcfirst at - line 14.
1102 Use of uninitialized value $m1 in lcfirst at - line 15.
1103 Use of uninitialized value $_ in uc at - line 16.
1104 Use of uninitialized value $m1 in uc at - line 17.
1105 Use of uninitialized value $_ in lc at - line 18.
1106 Use of uninitialized value $m1 in lc at - line 19.
1107 Use of uninitialized value $_ in quotemeta at - line 21.
1108 Use of uninitialized value $m1 in quotemeta at - line 22.
1109 ########
1110 use warnings 'uninitialized';
1111 my ($m1, $v1, $v2, $v3, $v4);
1112 our ($g1);
1113
1114 ($v1,$v2,$v3,$v4) = split;
1115 ($v1,$v2,$v3,$v4) = split $m1;
1116 ($v1,$v2,$v3,$v4) = split $m1, $m2;
1117 ($v1,$v2,$v3,$v4) = split $m1, $m2, $g1;
1118
1119 $v1 = join $m1;
1120 $v2 = join $m1, $m2;
1121 $v3 = join $m1, $m2, $m3;
1122 EXPECT
1123 Use of uninitialized value $_ in split at - line 5.
1124 Use of uninitialized value $m1 in regexp compilation at - line 6.
1125 Use of uninitialized value $_ in split at - line 6.
1126 Use of uninitialized value $m1 in regexp compilation at - line 7.
1127 Use of uninitialized value $m2 in split at - line 7.
1128 Use of uninitialized value $m1 in regexp compilation at - line 8.
1129 Use of uninitialized value $g1 in split at - line 8.
1130 Use of uninitialized value $m2 in split at - line 8.
1131 Use of uninitialized value $m1 in join or string at - line 10.
1132 Use of uninitialized value $m1 in join or string at - line 11.
1133 Use of uninitialized value $m2 in join or string at - line 11.
1134 Use of uninitialized value $m1 in join or string at - line 12.
1135 Use of uninitialized value $m2 in join or string at - line 12.
1136 Use of uninitialized value $m3 in join or string at - line 12.
1137 ########
1138 use warnings 'uninitialized';
1139 my ($m1, $m2, @ma, $v);
1140
1141 our @foo1=(1,undef); chomp @foo1;
1142 my  @foo2=(1,undef); chomp @foo2;
1143 our @foo3=(1,undef); chop  @foo3;
1144 my  @foo4=(1,undef); chop  @foo4;
1145 our @foo5=(1,undef); $v = sprintf "%s%s",@foo5;
1146 my  @foo6=(1,undef); $v = sprintf "%s%s",@foo6;
1147 our %foo7=('foo'=>'bar','baz'=>undef); $v = sprintf "%s%s",%foo7;
1148 my  %foo8=('foo'=>'bar','baz'=>undef); $v = sprintf "%s%s",%foo8;
1149 our @foo9 =(1,undef); $v = sprintf "%s%s%s%s",$m1,@foo9, $ma[2];
1150 my  @foo10=(1,undef); $v = sprintf "%s%s%s%s",$m2,@foo10,$ma[2];
1151 our %foo11=('foo'=>'bar','baz'=>undef); $v = join '', %foo11;
1152 my  %foo12=('foo'=>'bar','baz'=>undef); $v = join '', %foo12;
1153 our %foo13=(1..2000,'foo'=>'bar','baz'=>undef); $v = join '', %foo13;
1154 my  %foo14=(1..2000,'foo'=>'bar','baz'=>undef); $v = join '', %foo14;
1155 EXPECT
1156 Use of uninitialized value $foo1[1] in chomp at - line 4.
1157 Use of uninitialized value $foo2[1] in chomp at - line 5.
1158 Use of uninitialized value $foo3[1] in chop at - line 6.
1159 Use of uninitialized value $foo4[1] in chop at - line 7.
1160 Use of uninitialized value $foo5[1] in sprintf at - line 8.
1161 Use of uninitialized value $foo6[1] in sprintf at - line 9.
1162 Use of uninitialized value $foo7{"baz"} in sprintf at - line 10.
1163 Use of uninitialized value $foo8{"baz"} in sprintf at - line 11.
1164 Use of uninitialized value $m1 in sprintf at - line 12.
1165 Use of uninitialized value $foo9[1] in sprintf at - line 12.
1166 Use of uninitialized value in sprintf at - line 12.
1167 Use of uninitialized value $m2 in sprintf at - line 13.
1168 Use of uninitialized value $foo10[1] in sprintf at - line 13.
1169 Use of uninitialized value in sprintf at - line 13.
1170 Use of uninitialized value $foo11{"baz"} in join or string at - line 14.
1171 Use of uninitialized value $foo12{"baz"} in join or string at - line 15.
1172 Use of uninitialized value within %foo13 in join or string at - line 16.
1173 Use of uninitialized value within %foo14 in join or string at - line 17.
1174 ########
1175 use warnings 'uninitialized';
1176 my ($v);
1177
1178 undef $^A; $v = $^A + ${^FOO}; # should output '^A' not chr(1)
1179 *GLOB1 = *GLOB2;
1180 $v = $GLOB1 + 1;
1181 $v = $GLOB2 + 1;
1182 EXPECT
1183 Use of uninitialized value $^FOO in addition (+) at - line 4.
1184 Use of uninitialized value $^A in addition (+) at - line 4.
1185 Use of uninitialized value $GLOB1 in addition (+) at - line 6.
1186 Use of uninitialized value $GLOB2 in addition (+) at - line 7.
1187 ########
1188 use warnings 'uninitialized';
1189 my ($v);
1190
1191 # check hash key is sanitised
1192 my %h = ("\0011\002\r\n\t\f\"\\abcdefghijklmnopqrstuvwxyz", undef);
1193 $v = join '', %h;
1194 EXPECT
1195 Use of uninitialized value $h{"\0011\2\r\n\t\f\"\\abcdefghijklm"...} in join or string at - line 6.
1196 ########
1197 use warnings 'uninitialized';
1198 my ($m1, $v);
1199 our ($g1);
1200
1201 $v = eval { \&$m1 };
1202 $v = eval { \&$g1 };
1203
1204 my @a;
1205 @a = splice @a, $m1, $g1;
1206 $v = 1 + splice @a, $m1, $g1;
1207
1208 my $x = bless [], 'Z';
1209 eval { $x->$m1() };
1210
1211 eval { &$m1() };
1212 eval { &$g1() };
1213
1214 warn $m1,$g1,"foo";
1215
1216 eval { die $m1, $g1 };
1217
1218 reset $m1;
1219 reset $g1;
1220 EXPECT
1221 Use of uninitialized value $m1 in subroutine dereference at - line 5.
1222 Use of uninitialized value $g1 in subroutine dereference at - line 6.
1223 Use of uninitialized value $m1 in splice at - line 9.
1224 Use of uninitialized value $g1 in splice at - line 9.
1225 Use of uninitialized value $m1 in splice at - line 10.
1226 Use of uninitialized value $g1 in splice at - line 10.
1227 Use of uninitialized value in addition (+) at - line 10.
1228 Use of uninitialized value $m1 in method lookup at - line 13.
1229 Use of uninitialized value in subroutine entry at - line 15.
1230 Use of uninitialized value in subroutine entry at - line 16.
1231 Use of uninitialized value $m1 in warn at - line 18.
1232 Use of uninitialized value $g1 in warn at - line 18.
1233 foo at - line 18.
1234 Use of uninitialized value $m1 in die at - line 20.
1235 Use of uninitialized value $g1 in die at - line 20.
1236 Use of uninitialized value $m1 in symbol reset at - line 22.
1237 Use of uninitialized value $g1 in symbol reset at - line 23.
1238 ########
1239 use warnings 'uninitialized';
1240 my ($m1);
1241 our ($g1);
1242
1243 open FOO;               # accesses $FOO
1244 my $foo = 'FO';
1245 open($foo."O"); # accesses $FOO
1246 open my $x;             # accesses ${*$x}
1247 open $foobar;   # accesses ${*$foobar}
1248 my $y;
1249 open $y, $m1;
1250 eval { open $y, $m1, $g1 };
1251 open $y, '<', $g1;
1252
1253 sysopen $y, $m1, $m2;
1254 sysopen $y, $m1, $g1, $m2;
1255
1256 my $old = umask;
1257 umask $m1;
1258 umask $g1;
1259 umask $old;
1260
1261 binmode STDIN, $m1;
1262 EXPECT
1263 Use of uninitialized value $FOO in open at - line 5.
1264 Use of uninitialized value in open at - line 7.
1265 Use of uninitialized value in open at - line 8.
1266 Use of uninitialized value in open at - line 9.
1267 Use of uninitialized value $m1 in open at - line 11.
1268 Use of uninitialized value $m1 in open at - line 12.
1269 Use of uninitialized value $g1 in open at - line 13.
1270 Use of uninitialized value $m2 in sysopen at - line 15.
1271 Use of uninitialized value $m1 in sysopen at - line 15.
1272 Use of uninitialized value $m2 in sysopen at - line 16.
1273 Use of uninitialized value $g1 in sysopen at - line 16.
1274 Use of uninitialized value $m1 in sysopen at - line 16.
1275 Use of uninitialized value $m1 in umask at - line 19.
1276 Use of uninitialized value $g1 in umask at - line 20.
1277 Use of uninitialized value $m1 in binmode at - line 23.
1278 ########
1279 use warnings 'uninitialized';
1280 my ($m1);
1281 our ($g1);
1282
1283 eval { my $x; tie $x, $m1 };
1284
1285 eval { my $x; read    $m1, $x, $g1 };
1286 eval { my $x; read    $m1, $x, $g1, $g2 };
1287 eval { my $x; sysread $m1, $x, $g1 };
1288 eval { my $x; sysread $m1, $x, $g1, $g2 };
1289 EXPECT
1290 Use of uninitialized value $m1 in tie at - line 5.
1291 Use of uninitialized value $m1 in ref-to-glob cast at - line 7.
1292 Use of uninitialized value $g1 in read at - line 7.
1293 Use of uninitialized value $m1 in ref-to-glob cast at - line 8.
1294 Use of uninitialized value $g1 in read at - line 8.
1295 Use of uninitialized value $g2 in read at - line 8.
1296 Use of uninitialized value $m1 in ref-to-glob cast at - line 9.
1297 Use of uninitialized value $g1 in sysread at - line 9.
1298 Use of uninitialized value $m1 in ref-to-glob cast at - line 10.
1299 Use of uninitialized value $g1 in sysread at - line 10.
1300 Use of uninitialized value $g2 in sysread at - line 10.
1301 ########
1302 use warnings 'uninitialized';
1303 my ($m1);
1304 our ($g1, @ga);
1305
1306 printf $m1;
1307 printf STDERR "%d%d%d%d\n", $m1, $m2, $g1, $g2;
1308 printf $ga[1000];
1309 printf STDERR "FOO1:%s\n", $ga[1000];
1310 printf STDERR "FOO2:%s%s%s%s\n", $m1, $g1, $ga[1],$m2;
1311 printf STDERR "FOO3:%s%s%s\n", "X", $ga[1],"Y";
1312 EXPECT
1313 Use of uninitialized value $m1 in printf at - line 5.
1314 Use of uninitialized value $m1 in printf at - line 6.
1315 Use of uninitialized value $m2 in printf at - line 6.
1316 Use of uninitialized value $g1 in printf at - line 6.
1317 Use of uninitialized value $g2 in printf at - line 6.
1318 0000
1319 Use of uninitialized value in printf at - line 7.
1320 Use of uninitialized value in printf at - line 8.
1321 FOO1:
1322 Use of uninitialized value $m1 in printf at - line 9.
1323 Use of uninitialized value $g1 in printf at - line 9.
1324 Use of uninitialized value in printf at - line 9.
1325 Use of uninitialized value $m2 in printf at - line 9.
1326 FOO2:
1327 Use of uninitialized value in printf at - line 10.
1328 FOO3:XY
1329 ########
1330 use warnings 'uninitialized';
1331 my ($m1);
1332 our ($g1);
1333
1334 eval { my $x; seek    $x,$m1, $g1 };
1335 eval { my $x; sysseek $x,$m1, $g1 };
1336 eval { syswrite $m1, $g1 }; # logic changed - now won't try $g1 if $m1 is bad
1337 # eval { syswrite STDERR, $m1 };        # XXX under utf8, can give
1338 # eval { syswrite STDERR, $m1, $g1 };   # XXX different warnings
1339 # eval { syswrite STDERR, $m1, $g1, $m2 };
1340 eval { my $x; socket $x, $m1, $g1, $m2 };
1341 eval { my ($x,$y); socketpair $x, $y, $m1, $g1, $m2 };
1342 EXPECT
1343 Use of uninitialized value $x in ref-to-glob cast at - line 5.
1344 Use of uninitialized value $g1 in seek at - line 5.
1345 Use of uninitialized value $m1 in seek at - line 5.
1346 Use of uninitialized value $x in ref-to-glob cast at - line 6.
1347 Use of uninitialized value $g1 in sysseek at - line 6.
1348 Use of uninitialized value $m1 in sysseek at - line 6.
1349 Use of uninitialized value $m1 in ref-to-glob cast at - line 7.
1350 Use of uninitialized value $m2 in socket at - line 11.
1351 Use of uninitialized value $g1 in socket at - line 11.
1352 Use of uninitialized value $m1 in socket at - line 11.
1353 Use of uninitialized value $m2 in socketpair at - line 12.
1354 Use of uninitialized value $g1 in socketpair at - line 12.
1355 Use of uninitialized value $m1 in socketpair at - line 12.
1356 ########
1357 use Config;
1358 BEGIN {
1359   if ( !$Config{d_flock} &&
1360        !$Config{d_fcntl_can_lock} &&
1361        !$Config{d_lockf} ) {
1362     print <<EOM ;
1363 SKIPPED
1364 # flock not present
1365 EOM
1366     exit ;
1367   }
1368 }
1369 use warnings 'uninitialized';
1370 our ($g1);
1371
1372 eval { my $x; flock $x, $g1 };
1373 EXPECT
1374 Use of uninitialized value $x in ref-to-glob cast at - line 16.
1375 Use of uninitialized value $g1 in flock at - line 16.
1376 ########
1377 use warnings 'uninitialized';
1378 my ($m1, $v);
1379 our ($g1);
1380
1381 stat;
1382 lstat;
1383 stat $m1;
1384 lstat $g1;
1385
1386 $v = -R $m1;
1387 $v = -W $m1;
1388 $v = -X $m1;
1389 $v = -r $m1;
1390 $v = -w $m1;
1391 $v = -x $m1;
1392 $v = -e $m1;
1393 $v = -o $m1;
1394 $v = -O $m1;
1395 $v = -z $m1;
1396 $v = -s $m1;
1397 $v = -M $m1;
1398 $v = -A $m1;
1399 $v = -C $m1;
1400 $v = -S $m1;
1401 $v = -c $m1;
1402 $v = -b $m1;
1403 $v = -f $m1;
1404 $v = -d $m1;
1405 $v = -p $m1;
1406 $v = -l $m1;
1407 $v = -u $m1;
1408 $v = -g $m1;
1409 # $v = -k $m1; # XXX this is a no-op under win32
1410 $v = -t $m1;
1411 $v = -T $m1;
1412 $v = -B $m1;
1413 EXPECT
1414 Use of uninitialized value $_ in stat at - line 5.
1415 Use of uninitialized value $_ in lstat at - line 6.
1416 Use of uninitialized value $m1 in stat at - line 7.
1417 Use of uninitialized value $g1 in lstat at - line 8.
1418 Use of uninitialized value $m1 in -R at - line 10.
1419 Use of uninitialized value $m1 in -W at - line 11.
1420 Use of uninitialized value $m1 in -X at - line 12.
1421 Use of uninitialized value $m1 in -r at - line 13.
1422 Use of uninitialized value $m1 in -w at - line 14.
1423 Use of uninitialized value $m1 in -x at - line 15.
1424 Use of uninitialized value $m1 in -e at - line 16.
1425 Use of uninitialized value $m1 in -o at - line 17.
1426 Use of uninitialized value $m1 in -O at - line 18.
1427 Use of uninitialized value $m1 in -z at - line 19.
1428 Use of uninitialized value $m1 in -s at - line 20.
1429 Use of uninitialized value $m1 in -M at - line 21.
1430 Use of uninitialized value $m1 in -A at - line 22.
1431 Use of uninitialized value $m1 in -C at - line 23.
1432 Use of uninitialized value $m1 in -S at - line 24.
1433 Use of uninitialized value $m1 in -c at - line 25.
1434 Use of uninitialized value $m1 in -b at - line 26.
1435 Use of uninitialized value $m1 in -f at - line 27.
1436 Use of uninitialized value $m1 in -d at - line 28.
1437 Use of uninitialized value $m1 in -p at - line 29.
1438 Use of uninitialized value $m1 in -l at - line 30.
1439 Use of uninitialized value $m1 in -u at - line 31.
1440 Use of uninitialized value $m1 in -g at - line 32.
1441 Use of uninitialized value $m1 in -t at - line 34.
1442 Use of uninitialized value $m1 in -T at - line 35.
1443 Use of uninitialized value $m1 in -B at - line 36.
1444 ########
1445 use warnings 'uninitialized';
1446 my ($m1, $v);
1447 our ($g1);
1448
1449 $v = localtime $m1;
1450 $v = gmtime $g1;
1451 EXPECT
1452 Use of uninitialized value $m1 in localtime at - line 5.
1453 Use of uninitialized value $g1 in gmtime at - line 6.
1454 ########
1455 use warnings 'uninitialized';
1456 my ($m1, $m2, $v);
1457
1458 $v = eval;
1459 $v = eval $m1;
1460 $m2 = q($m1); $v = 1 + eval $m2;
1461 EXPECT
1462 Use of uninitialized value $_ in eval "string" at - line 4.
1463 Use of uninitialized value $m1 in eval "string" at - line 5.
1464 Use of uninitialized value in addition (+) at - line 6.
1465 ########
1466 use warnings 'uninitialized';
1467 my ($m1);
1468
1469 exit $m1;
1470 EXPECT
1471 Use of uninitialized value $m1 in exit at - line 4.
1472 ########
1473 use warnings 'uninitialized';
1474 my $undef;
1475
1476 if ($undef == 3) {
1477 } elsif ($undef == 0) {
1478 }
1479 EXPECT
1480 Use of uninitialized value $undef in numeric eq (==) at - line 4.
1481 Use of uninitialized value $undef in numeric eq (==) at - line 5.
1482 ########
1483 # TODO long standing bug - conditions of while loops
1484 use warnings;
1485
1486 my $c;
1487 my $d = 1;
1488 while ($c == 0 && $d) {
1489   # a
1490   # few
1491   # blank
1492   # lines
1493   undef $d;
1494 }
1495 EXPECT
1496 Use of uninitialized value $c in numeric eq (==) at - line 5.
1497 Use of uninitialized value $c in numeric eq (==) at - line 5.
1498 ########
1499 # TODO long standing bug - conditions of until loops
1500 use warnings;
1501
1502 my $c;
1503 my $d;
1504 until ($c == 1) {
1505   # a
1506   # few
1507   # blank
1508   # lines
1509   $c = 1 if ++$d == 2;
1510 }
1511 EXPECT
1512 Use of uninitialized value $c in numeric eq (==) at - line 5.
1513 Use of uninitialized value $c in numeric eq (==) at - line 5.
1514 ########
1515 # TODO long standing bug - conditions of for loops
1516 use warnings;
1517
1518 my $c;
1519 my $d;
1520 for ($d = 1; $c == 0 && $d; ) {
1521   # a
1522   # few
1523   # blank
1524   # lines
1525   undef $d;
1526 }
1527
1528 my $e;
1529 for ($d = 2; $d > 0; $e = !($c == 0)) {
1530   # a
1531   # few
1532   # blank
1533   # lines
1534   --$d;
1535 }
1536 EXPECT
1537 Use of uninitialized value $c in numeric eq (==) at - line 5.
1538 Use of uninitialized value $c in numeric eq (==) at - line 5.
1539 Use of uninitialized value $c in numeric eq (==) at - line 14.
1540 Use of uninitialized value $c in numeric eq (==) at - line 14.
1541 ########
1542 # TODO long standing bug - more general variant of the above problem
1543 use warnings;
1544 my $undef;
1545
1546 my $a = $undef + 1;
1547 my $b
1548   = $undef
1549   + 1;
1550 EXPECT
1551 Use of uninitialized value $undef in addition (+) at - line 4.
1552 Use of uninitialized value $undef in addition (+) at - line 7.
1553 ########
1554 use warnings 'uninitialized';
1555 my ($r1, $r2);
1556 $_ = undef;
1557 $v = reverse;
1558 $v = reverse $r1;
1559 $v = reverse "abc", $r2, "def";
1560 EXPECT
1561 Use of uninitialized value in reverse at - line 4.
1562 Use of uninitialized value $r1 in reverse at - line 5.
1563 Use of uninitialized value $r2 in reverse at - line 6.
1564 ########
1565 use warnings 'uninitialized';
1566 #
1567 # ops that can return undef for defined args
1568 # split into separate tests to diagnose the cause of daily build smoke
1569 #
1570 # *** `` not tested: Windows produces an error on STDERR
1571 # *** ditto qx()
1572 # *** pipe() not tested
1573 # *** ioctl not tested
1574 # *** socket not tested
1575 # *** socketpair not tested
1576 # *** bind not tested
1577 # *** connect not tested
1578 # *** listen not tested
1579 # *** shutdown not tested
1580 # *** setsockopt not tested
1581 # *** getpeername not tested
1582 # *** readdir not tested
1583 # *** telldir not tested
1584 # *** seekdir not tested
1585 # *** rewinddir not tested
1586 # *** closedir not tested
1587 # *** gmtime not tested
1588 # *** alarm not tested
1589 # *** semget not tested
1590 # *** getlogin not tested
1591 EXPECT
1592 ########
1593 use warnings 'uninitialized';
1594 if ($^O eq 'MSWin32') {
1595     print <<'EOM';
1596 SKIPPED
1597 # `` produces an error on STDERR on Win32
1598 EOM
1599     exit;
1600 }
1601 my $nocmd  = '/no/such/command';
1602 my $v;
1603 $v = 1 + `$nocmd`;
1604 EXPECT
1605 Use of uninitialized value in addition (+) at - line 11.
1606 ########
1607 use warnings 'uninitialized';
1608 if ($^O eq 'MSWin32') {
1609     print <<'EOM';
1610 SKIPPED
1611 # qx produces an error on STDERR on Win32
1612 EOM
1613     exit;
1614 }
1615 my $nocmd  = '/no/such/command';
1616 my $v;
1617 $v = 1 + qx($nocmd);
1618 EXPECT
1619 Use of uninitialized value in addition (+) at - line 11.
1620 ########
1621 use warnings 'uninitialized';
1622 my $nan = "NaN";
1623 if ($nan == $nan) {
1624     print <<'EOM';
1625 SKIPPED
1626 # NaN not supported here.
1627 EOM
1628     exit;
1629 }
1630 my $v;
1631 $v = 1 + ($nan <=> 1);
1632 EXPECT
1633 Use of uninitialized value in addition (+) at - line 11.
1634 ########
1635 use warnings 'uninitialized';
1636 if ($^O eq 'MSWin32') {
1637     print <<'EOM';
1638 SKIPPED
1639 # -k produces no warning on Win32
1640 EOM
1641     exit;
1642 }
1643 my $nofile = '/no/such/file';
1644 my $v;
1645 $v = 1 + -k $nofile;
1646 EXPECT
1647 Use of uninitialized value in addition (+) at - line 11.
1648 ########
1649 use warnings 'uninitialized';
1650 my $nofile = '/no/such/file';
1651 my $v;
1652 my $f = "";
1653 $v = 1 + open($f, $nofile);
1654 EXPECT
1655 Use of uninitialized value in addition (+) at - line 5.
1656 ########
1657 use warnings 'uninitialized';
1658 my $nofile = '/no/such/file';
1659 my $v;
1660 $v = 1 + fileno($nofile);
1661 EXPECT
1662 Use of uninitialized value in addition (+) at - line 4.
1663 ########
1664 use warnings 'uninitialized';
1665 my $nofile = '/no/such/file';
1666 my $v;
1667 $v = 1 + binmode($nofile);
1668 EXPECT
1669 Use of uninitialized value in addition (+) at - line 4.
1670 ########
1671 use warnings 'uninitialized';
1672 my $nofile = '/no/such/file';
1673 my $v;
1674 $v = 1 + tied($nofile);
1675 EXPECT
1676 Use of uninitialized value in addition (+) at - line 4.
1677 ########
1678 use warnings 'uninitialized';
1679 my $nofile = '/no/such/file';
1680 my $v;
1681 $v = 1 + getc($nofile);
1682 EXPECT
1683 Use of uninitialized value in addition (+) at - line 4.
1684 ########
1685 use warnings 'uninitialized';
1686 my $nofile = '/no/such/file';
1687 my $v;
1688 $v = 1 + sysread($nofile, my $buf,1);
1689 EXPECT
1690 Use of uninitialized value in addition (+) at - line 4.
1691 ########
1692 use warnings 'uninitialized';
1693 my $nofile = '/no/such/file';
1694 my $v;
1695 $v = 1 + eval { send($nofile, $buf,0) };
1696 EXPECT
1697 Use of uninitialized value in addition (+) at - line 4.
1698 ########
1699 use warnings 'uninitialized';
1700 my $nofile = '/no/such/file';
1701 my $v;
1702 my $fh = "";
1703 $v = 1 + eval { accept($fh, $nofile) };
1704 EXPECT
1705 Use of uninitialized value in addition (+) at - line 5.
1706 ########
1707 use warnings 'uninitialized';
1708 my $nofile = '/no/such/file';
1709 my $v;
1710 $v = 1 + (-r $nofile);
1711 EXPECT
1712 Use of uninitialized value in addition (+) at - line 4.
1713 ########
1714 use warnings 'uninitialized';
1715 my $nofile = '/no/such/file';
1716 my $v;
1717 $v = 1 + (-w $nofile);
1718 EXPECT
1719 Use of uninitialized value in addition (+) at - line 4.
1720 ########
1721 use warnings 'uninitialized';
1722 my $nofile = '/no/such/file';
1723 my $v;
1724 $v = 1 + (-x $nofile);
1725 EXPECT
1726 Use of uninitialized value in addition (+) at - line 4.
1727 ########
1728 use warnings 'uninitialized';
1729 my $nofile = '/no/such/file';
1730 my $v;
1731 $v = 1 + (-o $nofile);
1732 EXPECT
1733 Use of uninitialized value in addition (+) at - line 4.
1734 ########
1735 use warnings 'uninitialized';
1736 my $nofile = '/no/such/file';
1737 my $v;
1738 $v = 1 + (-R $nofile);
1739 EXPECT
1740 Use of uninitialized value in addition (+) at - line 4.
1741 ########
1742 use warnings 'uninitialized';
1743 my $nofile = '/no/such/file';
1744 my $v;
1745 $v = 1 + (-W $nofile);
1746 EXPECT
1747 Use of uninitialized value in addition (+) at - line 4.
1748 ########
1749 use warnings 'uninitialized';
1750 my $nofile = '/no/such/file';
1751 my $v;
1752 $v = 1 + (-X $nofile);
1753 EXPECT
1754 Use of uninitialized value in addition (+) at - line 4.
1755 ########
1756 use warnings 'uninitialized';
1757 my $nofile = '/no/such/file';
1758 my $v;
1759 $v = 1 + (-O $nofile);
1760 EXPECT
1761 Use of uninitialized value in addition (+) at - line 4.
1762 ########
1763 use warnings 'uninitialized';
1764 my $nofile = '/no/such/file';
1765 my $v;
1766 $v = 1 + (-e $nofile);
1767 EXPECT
1768 Use of uninitialized value in addition (+) at - line 4.
1769 ########
1770 use warnings 'uninitialized';
1771 my $nofile = '/no/such/file';
1772 my $v;
1773 $v = 1 + (-z $nofile);
1774 EXPECT
1775 Use of uninitialized value in addition (+) at - line 4.
1776 ########
1777 use warnings 'uninitialized';
1778 my $nofile = '/no/such/file';
1779 my $v;
1780 $v = 1 + (-s $nofile);
1781 EXPECT
1782 Use of uninitialized value in addition (+) at - line 4.
1783 ########
1784 use warnings 'uninitialized';
1785 my $nofile = '/no/such/file';
1786 my $v;
1787 $v = 1 + (-f $nofile);
1788 EXPECT
1789 Use of uninitialized value in addition (+) at - line 4.
1790 ########
1791 use warnings 'uninitialized';
1792 my $nofile = '/no/such/file';
1793 my $v;
1794 $v = 1 + (-d $nofile);
1795 EXPECT
1796 Use of uninitialized value in addition (+) at - line 4.
1797 ########
1798 use warnings 'uninitialized';
1799 my $nofile = '/no/such/file';
1800 my $v;
1801 $v = 1 + (-l $nofile);
1802 EXPECT
1803 Use of uninitialized value in addition (+) at - line 4.
1804 ########
1805 use warnings 'uninitialized';
1806 my $nofile = '/no/such/file';
1807 my $v;
1808 $v = 1 + (-p $nofile);
1809 EXPECT
1810 Use of uninitialized value in addition (+) at - line 4.
1811 ########
1812 use warnings 'uninitialized';
1813 my $nofile = '/no/such/file';
1814 my $v;
1815 $v = 1 + (-S $nofile);
1816 EXPECT
1817 Use of uninitialized value in addition (+) at - line 4.
1818 ########
1819 use warnings 'uninitialized';
1820 my $nofile = '/no/such/file';
1821 my $v;
1822 $v = 1 + (-b $nofile);
1823 EXPECT
1824 Use of uninitialized value in addition (+) at - line 4.
1825 ########
1826 use warnings 'uninitialized';
1827 my $nofile = '/no/such/file';
1828 my $v;
1829 $v = 1 + (-c $nofile);
1830 EXPECT
1831 Use of uninitialized value in addition (+) at - line 4.
1832 ########
1833 use warnings 'uninitialized';
1834 my $nofile = '/no/such/file';
1835 my $v;
1836 $v = 1 + (-t $nofile);
1837 EXPECT
1838 Use of uninitialized value in addition (+) at - line 4.
1839 ########
1840 use warnings 'uninitialized';
1841 my $nofile = '/no/such/file';
1842 my $v;
1843 $v = 1 + (-u $nofile);
1844 EXPECT
1845 Use of uninitialized value in addition (+) at - line 4.
1846 ########
1847 use warnings 'uninitialized';
1848 my $nofile = '/no/such/file';
1849 my $v;
1850 $v = 1 + (-g $nofile);
1851 EXPECT
1852 Use of uninitialized value in addition (+) at - line 4.
1853 ########
1854 use warnings 'uninitialized';
1855 my $nofile = '/no/such/file';
1856 my $v;
1857 $v = 1 + (-T $nofile);
1858 EXPECT
1859 Use of uninitialized value in addition (+) at - line 4.
1860 ########
1861 use warnings 'uninitialized';
1862 my $nofile = '/no/such/file';
1863 my $v;
1864 $v = 1 + (-B $nofile);
1865 EXPECT
1866 Use of uninitialized value in addition (+) at - line 4.
1867 ########
1868 use warnings 'uninitialized';
1869 my $nofile = '/no/such/file';
1870 my $v;
1871 $v = 1 + (-M $nofile);
1872 EXPECT
1873 Use of uninitialized value in addition (+) at - line 4.
1874 ########
1875 use warnings 'uninitialized';
1876 my $nofile = '/no/such/file';
1877 my $v;
1878 $v = 1 + (-A $nofile);
1879 EXPECT
1880 Use of uninitialized value in addition (+) at - line 4.
1881 ########
1882 use warnings 'uninitialized';
1883 my $nofile = '/no/such/file';
1884 my $v;
1885 $v = 1 + (-C $nofile);
1886 EXPECT
1887 Use of uninitialized value in addition (+) at - line 4.
1888 ########
1889 use warnings 'uninitialized';
1890 my $nofile = '/no/such/file';
1891 my $v;
1892 $v = 1 + eval { readlink $nofile };
1893 EXPECT
1894 Use of uninitialized value in addition (+) at - line 4.
1895 ########
1896 use warnings 'uninitialized';
1897 my $nofile = '/no/such/file';
1898 my $v;
1899 $v = 1 + opendir($f, $nofile);
1900 EXPECT
1901 Use of uninitialized value in addition (+) at - line 4.
1902 ########
1903 use warnings 'uninitialized';
1904 my $nofile = '/no/such/file';
1905 my $v;
1906 $v = 1 + undef;
1907 EXPECT
1908 Use of uninitialized value in addition (+) at - line 4.
1909 ########
1910 use warnings 'uninitialized';
1911 my $nofile = '/no/such/file';
1912 my $v;
1913 my $x = 1; $v = 1 + undef($x);
1914 EXPECT
1915 Use of uninitialized value in addition (+) at - line 4.
1916 ########
1917 use warnings 'uninitialized';
1918 my $v;
1919 my $emptys = "";
1920 $v = 1 + substr($emptys,2,1);
1921 EXPECT
1922 Use of uninitialized value in addition (+) at - line 4.
1923 ########
1924 use warnings 'uninitialized';
1925 my $v;
1926 my @emptya;
1927 $v = 1 + each @emptya;
1928 EXPECT
1929 Use of uninitialized value in addition (+) at - line 4.
1930 ########
1931 use warnings 'uninitialized';
1932 my $v;
1933 my %emptyh;
1934 $v = 1 + each %emptyh;
1935 EXPECT
1936 Use of uninitialized value in addition (+) at - line 4.
1937 ########
1938 use warnings 'uninitialized';
1939 my $v;
1940 my @emptya;
1941 $v = 1 + sort @emptya;
1942 EXPECT
1943 Use of uninitialized value in addition (+) at - line 4.
1944 ########
1945 use warnings 'uninitialized';
1946 my $v;
1947 my $zero = 0; $v = 1 + caller($zero);
1948 EXPECT
1949 Use of uninitialized value in addition (+) at - line 3.
1950 ########
1951 use warnings 'uninitialized';
1952 my $nofile = '/no/such/file';
1953 my $v;
1954 $v = 1 + do $nofile;
1955 EXPECT
1956 Use of uninitialized value in addition (+) at - line 4.
1957 ########
1958 use warnings 'uninitialized';
1959 my $v;
1960 my $fn = sub {};
1961 $v = 1 + prototype $fn;
1962 EXPECT
1963 Use of uninitialized value in addition (+) at - line 4.
1964 ########
1965 use warnings 'uninitialized';
1966 my $v;
1967 my $fn = sub {};
1968 $v = 1 + (1 ~~ $fn);
1969 EXPECT
1970 Use of uninitialized value in addition (+) at - line 4.
1971 ########
1972 use warnings 'uninitialized';
1973 my $v;
1974 my $f = "";
1975 $v = 1 + (print STDIN $f); # print to STDIN returns undef
1976 EXPECT
1977 Use of uninitialized value in addition (+) at - line 4.
1978 ########
1979 use warnings 'uninitialized';
1980 my $v;
1981 my $f = "";
1982 $v = 1 + (printf STDIN "%s", $f);
1983 EXPECT
1984 Use of uninitialized value in addition (+) at - line 4.
1985 ########
1986 use warnings 'uninitialized';
1987 my $v;
1988 my $f = "";
1989 { use feature 'say'; $v = 1 + (say STDIN "%s", $f); }
1990 EXPECT
1991 Use of uninitialized value in addition (+) at - line 4.
1992 ########
1993 use warnings 'uninitialized';
1994 my $v;
1995 my $f = "";
1996 $v = 1 + (unpack("",$f));
1997 EXPECT
1998 Use of uninitialized value in addition (+) at - line 4.
1999 ########
2000 use warnings 'uninitialized';
2001 my $nofile = '/no/such/file';
2002 my $v;
2003 my $f = "";
2004 $v = 1 + sysopen($f, $nofile, 0);
2005 EXPECT
2006 Use of uninitialized value in addition (+) at - line 5.
2007 ########
2008 use warnings 'uninitialized';
2009 my $v;
2010 { my $x = -1; $v = 1 + sysseek(DATA, $x, 0); }
2011 __END__
2012 EXPECT
2013 Use of uninitialized value in addition (+) at - line 3.
2014 ########
2015 use warnings 'uninitialized';
2016 delete $::{'Foo::'};
2017 my $moo = $Foo::BAR + 42;
2018 __END__
2019 EXPECT
2020 Use of uninitialized value in addition (+) at - line 3.
2021 ########
2022 use warnings 'uninitialized';
2023 use constant {u=>undef, v=>undef};
2024 sub foo () {u}
2025 sub foo () {v}
2026 EXPECT
2027 ########
2028 # [perl #72090]
2029 use warnings 'uninitialized';
2030 $a = @$a > 0;
2031 EXPECT
2032 Use of uninitialized value $a in array dereference at - line 3.
2033 Use of uninitialized value in numeric gt (>) at - line 3.
2034 ########
2035 # [perl #103766]
2036 use warnings 'uninitialized';
2037 "@{[ $x ]}";
2038 EXPECT
2039 Use of uninitialized value in join or string at - line 3.