t/lib/warnings/op

   1   op.c          AOK
   2
   3      Found = in conditional, should be ==
   4         1 if $a = 1 ;
   5
   6      Use of implicit split to @_ is deprecated
   7         split ;
   8
   9      Use of implicit split to @_ is deprecated
  10         $a = split ;
  11
  12      Useless use of time in void context
  13      Useless use of a variable in void context
  14      Useless use of a constant in void context
  15         time ;
  16         $a ;
  17         "abc"
  18
  19      Useless use of sort in scalar context
  20         my $x = sort (2,1,3);
  21
  22      Applying %s to %s will act on scalar(%s)
  23         my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;
  24         @a =~ /abc/ ;
  25         @a =~ s/a/b/ ;
  26         @a =~ tr/a/b/ ;
  27         @$b =~ /abc/ ;
  28         @$b =~ s/a/b/ ;
  29         @$b =~ tr/a/b/ ;
  30         %a =~ /abc/ ;
  31         %a =~ s/a/b/ ;
  32         %a =~ tr/a/b/ ;
  33         %$c =~ /abc/ ;
  34         %$c =~ s/a/b/ ;
  35         %$c =~ tr/a/b/ ;
  36
  37
  38      Parentheses missing around "my" list at -e line 1.
  39        my $a, $b = (1,2);
  40
  41      Parentheses missing around "local" list at -e line 1.
  42        local $a, $b = (1,2);
  43
  44      Bareword found in conditional at -e line 1.
  45        use warnings 'bareword'; my $x = print(ABC || 1);
  46
  47      Value of %s may be \"0\"; use \"defined\"
  48         $x = 1 if $x = <FH> ;
  49         $x = 1 while $x = <FH> ;
  50
  51      Subroutine fred redefined at -e line 1.
  52        sub fred{1;} sub fred{1;}
  53
  54      Constant subroutine %s redefined
  55         sub fred() {1;} sub fred() {1;}
  56
  57      Format FRED redefined at /tmp/x line 5.
  58        format FRED =
  59        .
  60        format FRED =
  61        .
  62
  63      Array @%s missing the @ in argument %d of %s()
  64         push fred ;
  65
  66      Hash %%%s missing the %% in argument %d of %s()
  67         keys joe ;
  68
  69      Statement unlikely to be reached
  70         (Maybe you meant system() when you said exec()?
  71         exec "true" ; my $a
  72
  73      defined(@array) is deprecated
  74         (Maybe you should just omit the defined()?)
  75         my @a ; defined @a ;
  76         defined (@a = (1,2,3)) ;
  77
  78      defined(%hash) is deprecated
  79         (Maybe you should just omit the defined()?)
  80         my %h ; defined %h ;
  81
  82      /---/ should probably be written as "---"
  83         join(/---/, @foo);
  84
  85     %s() called too early to check prototype            [Perl_peep]
  86         fred() ; sub fred ($$) {}
  87
  88
  89     Package `%s' not found (did you use the incorrect case?)
  90
  91     Use of /g modifier is meaningless in split
  92
  93     Possible precedence problem on bitwise %c operator  [Perl_ck_bitop]
  94
  95     Mandatory Warnings
  96     ------------------
  97     Prototype mismatch:         [cv_ckproto]
  98         sub fred() ;
  99         sub fred($) {}
 100
 101     Runaway prototype           [newSUB]        TODO
 102     oops: oopsAV                [oopsAV]        TODO
 103     oops: oopsHV                [oopsHV]        TODO
 104
 105 __END__
 106 # op.c
 107 use warnings 'syntax' ;
 108 1 if $a = 1 ;
 109 no warnings 'syntax' ;
 110 1 if $a = 1 ;
 111 EXPECT
 112 Found = in conditional, should be == at - line 3.
 113 ########
 114 # op.c
 115 use warnings 'deprecated' ;
 116 split ;
 117 no warnings 'deprecated' ;
 118 split ;
 119 EXPECT
 120 Use of implicit split to @_ is deprecated at - line 3.
 121 ########
 122 # op.c
 123 use warnings 'deprecated' ;
 124 $a = split ;
 125 no warnings 'deprecated' ;
 126 $a = split ;
 127 EXPECT
 128 Use of implicit split to @_ is deprecated at - line 3.
 129 ########
 130 # op.c
 131 use warnings 'deprecated';
 132 my (@foo, %foo);
 133 %main::foo->{"bar"};
 134 %foo->{"bar"};
 135 @main::foo->[23];
 136 @foo->[23];
 137 $main::foo = {}; %$main::foo->{"bar"};
 138 $foo = {}; %$foo->{"bar"};
 139 $main::foo = []; @$main::foo->[34];
 140 $foo = []; @$foo->[34];
 141 no warnings 'deprecated';
 142 %main::foo->{"bar"};
 143 %foo->{"bar"};
 144 @main::foo->[23];
 145 @foo->[23];
 146 $main::foo = {}; %$main::foo->{"bar"};
 147 $foo = {}; %$foo->{"bar"};
 148 $main::foo = []; @$main::foo->[34];
 149 $foo = []; @$foo->[34];
 150 EXPECT
 151 Using a hash as a reference is deprecated at - line 4.
 152 Using a hash as a reference is deprecated at - line 5.
 153 Using an array as a reference is deprecated at - line 6.
 154 Using an array as a reference is deprecated at - line 7.
 155 Using a hash as a reference is deprecated at - line 8.
 156 Using a hash as a reference is deprecated at - line 9.
 157 Using an array as a reference is deprecated at - line 10.
 158 Using an array as a reference is deprecated at - line 11.
 159 ########
 160 # op.c
 161 use warnings 'void' ; close STDIN ;
 162 1 x 3 ;                 # OP_REPEAT
 163                         # OP_GVSV
 164 wantarray ;             # OP_WANTARRAY
 165                         # OP_GV
 166                         # OP_PADSV
 167                         # OP_PADAV
 168                         # OP_PADHV
 169                         # OP_PADANY
 170                         # OP_AV2ARYLEN
 171 ref ;                   # OP_REF
 172 \@a ;                   # OP_REFGEN
 173 \$a ;                   # OP_SREFGEN
 174 defined $a ;            # OP_DEFINED
 175 hex $a ;                # OP_HEX
 176 oct $a ;                # OP_OCT
 177 length $a ;             # OP_LENGTH
 178 substr $a,1 ;           # OP_SUBSTR
 179 vec $a,1,2 ;            # OP_VEC
 180 index $a,1,2 ;          # OP_INDEX
 181 rindex $a,1,2 ;         # OP_RINDEX
 182 sprintf $a ;            # OP_SPRINTF
 183 $a[0] ;                 # OP_AELEM
 184                         # OP_AELEMFAST
 185 @a[0] ;                 # OP_ASLICE
 186 #values %a ;            # OP_VALUES
 187 #keys %a ;              # OP_KEYS
 188 $a{0} ;                 # OP_HELEM
 189 @a{0} ;                 # OP_HSLICE
 190 unpack "a", "a" ;       # OP_UNPACK
 191 pack $a,"" ;            # OP_PACK
 192 join "" ;               # OP_JOIN
 193 (@a)[0,1] ;             # OP_LSLICE
 194                         # OP_ANONLIST
 195                         # OP_ANONHASH
 196 sort(1,2) ;             # OP_SORT
 197 reverse(1,2) ;          # OP_REVERSE
 198                         # OP_RANGE
 199                         # OP_FLIP
 200 (1 ..2) ;               # OP_FLOP
 201 caller ;                # OP_CALLER
 202 fileno STDIN ;          # OP_FILENO
 203 eof STDIN ;             # OP_EOF
 204 tell STDIN ;            # OP_TELL
 205 readlink 1;             # OP_READLINK
 206 time ;                  # OP_TIME
 207 localtime ;             # OP_LOCALTIME
 208 gmtime ;                # OP_GMTIME
 209 eval { getgrnam 1 };    # OP_GGRNAM
 210 eval { getgrgid 1 };    # OP_GGRGID
 211 eval { getpwnam 1 };    # OP_GPWNAM
 212 eval { getpwuid 1 };    # OP_GPWUID
 213 prototype "foo";        # OP_PROTOTYPE
 214 EXPECT
 215 Useless use of repeat (x) in void context at - line 3.
 216 Useless use of wantarray in void context at - line 5.
 217 Useless use of reference-type operator in void context at - line 12.
 218 Useless use of reference constructor in void context at - line 13.
 219 Useless use of single ref constructor in void context at - line 14.
 220 Useless use of defined operator in void context at - line 15.
 221 Useless use of hex in void context at - line 16.
 222 Useless use of oct in void context at - line 17.
 223 Useless use of length in void context at - line 18.
 224 Useless use of substr in void context at - line 19.
 225 Useless use of vec in void context at - line 20.
 226 Useless use of index in void context at - line 21.
 227 Useless use of rindex in void context at - line 22.
 228 Useless use of sprintf in void context at - line 23.
 229 Useless use of array element in void context at - line 24.
 230 Useless use of array slice in void context at - line 26.
 231 Useless use of hash element in void context at - line 29.
 232 Useless use of hash slice in void context at - line 30.
 233 Useless use of unpack in void context at - line 31.
 234 Useless use of pack in void context at - line 32.
 235 Useless use of join or string in void context at - line 33.
 236 Useless use of list slice in void context at - line 34.
 237 Useless use of sort in void context at - line 37.
 238 Useless use of reverse in void context at - line 38.
 239 Useless use of range (or flop) in void context at - line 41.
 240 Useless use of caller in void context at - line 42.
 241 Useless use of fileno in void context at - line 43.
 242 Useless use of eof in void context at - line 44.
 243 Useless use of tell in void context at - line 45.
 244 Useless use of readlink in void context at - line 46.
 245 Useless use of time in void context at - line 47.
 246 Useless use of localtime in void context at - line 48.
 247 Useless use of gmtime in void context at - line 49.
 248 Useless use of getgrnam in void context at - line 50.
 249 Useless use of getgrgid in void context at - line 51.
 250 Useless use of getpwnam in void context at - line 52.
 251 Useless use of getpwuid in void context at - line 53.
 252 Useless use of subroutine prototype in void context at - line 54.
 253 ########
 254 # op.c
 255 use warnings 'void' ; close STDIN ;
 256 my $x = sort (2,1,3);
 257 no warnings 'void' ;
 258 $x = sort (2,1,3);
 259 EXPECT
 260 Useless use of sort in scalar context at - line 3.
 261 ########
 262 # op.c
 263 no warnings 'void' ; close STDIN ;
 264 1 x 3 ;                 # OP_REPEAT
 265                         # OP_GVSV
 266 wantarray ;             # OP_WANTARRAY
 267                         # OP_GV
 268                         # OP_PADSV
 269                         # OP_PADAV
 270                         # OP_PADHV
 271                         # OP_PADANY
 272                         # OP_AV2ARYLEN
 273 ref ;                   # OP_REF
 274 \@a ;                   # OP_REFGEN
 275 \$a ;                   # OP_SREFGEN
 276 defined $a ;            # OP_DEFINED
 277 hex $a ;                # OP_HEX
 278 oct $a ;                # OP_OCT
 279 length $a ;             # OP_LENGTH
 280 substr $a,1 ;           # OP_SUBSTR
 281 vec $a,1,2 ;            # OP_VEC
 282 index $a,1,2 ;          # OP_INDEX
 283 rindex $a,1,2 ;         # OP_RINDEX
 284 sprintf $a ;            # OP_SPRINTF
 285 $a[0] ;                 # OP_AELEM
 286                         # OP_AELEMFAST
 287 @a[0] ;                 # OP_ASLICE
 288 #values %a ;            # OP_VALUES
 289 #keys %a ;              # OP_KEYS
 290 $a{0} ;                 # OP_HELEM
 291 @a{0} ;                 # OP_HSLICE
 292 unpack "a", "a" ;       # OP_UNPACK
 293 pack $a,"" ;            # OP_PACK
 294 join "" ;               # OP_JOIN
 295 (@a)[0,1] ;             # OP_LSLICE
 296                         # OP_ANONLIST
 297                         # OP_ANONHASH
 298 sort(1,2) ;             # OP_SORT
 299 reverse(1,2) ;          # OP_REVERSE
 300                         # OP_RANGE
 301                         # OP_FLIP
 302 (1 ..2) ;               # OP_FLOP
 303 caller ;                # OP_CALLER
 304 fileno STDIN ;          # OP_FILENO
 305 eof STDIN ;             # OP_EOF
 306 tell STDIN ;            # OP_TELL
 307 readlink 1;             # OP_READLINK
 308 time ;                  # OP_TIME
 309 localtime ;             # OP_LOCALTIME
 310 gmtime ;                # OP_GMTIME
 311 eval { getgrnam 1 };    # OP_GGRNAM
 312 eval { getgrgid 1 };    # OP_GGRGID
 313 eval { getpwnam 1 };    # OP_GPWNAM
 314 eval { getpwuid 1 };    # OP_GPWUID
 315 prototype "foo";        # OP_PROTOTYPE
 316 EXPECT
 317 ########
 318 # op.c
 319 use warnings 'void' ;
 320 for (@{[0]}) { "$_" }           # check warning isn't duplicated
 321 no warnings 'void' ;
 322 for (@{[0]}) { "$_" }           # check warning isn't duplicated
 323 EXPECT
 324 Useless use of string in void context at - line 3.
 325 ########
 326 # op.c
 327 use warnings 'void' ;
 328 use Config ;
 329 BEGIN {
 330     if ( ! $Config{d_telldir}) {
 331         print <<EOM ;
 332 SKIPPED
 333 # telldir not present
 334 EOM
 335         exit
 336     }
 337 }
 338 telldir 1 ;             # OP_TELLDIR
 339 no warnings 'void' ;
 340 telldir 1 ;             # OP_TELLDIR
 341 EXPECT
 342 Useless use of telldir in void context at - line 13.
 343 ########
 344 # op.c
 345 use warnings 'void' ;
 346 use Config ;
 347 BEGIN {
 348     if ( ! $Config{d_getppid}) {
 349         print <<EOM ;
 350 SKIPPED
 351 # getppid not present
 352 EOM
 353         exit
 354     }
 355 }
 356 getppid ;               # OP_GETPPID
 357 no warnings 'void' ;
 358 getppid ;               # OP_GETPPID
 359 EXPECT
 360 Useless use of getppid in void context at - line 13.
 361 ########
 362 # op.c
 363 use warnings 'void' ;
 364 use Config ;
 365 BEGIN {
 366     if ( ! $Config{d_getpgrp}) {
 367         print <<EOM ;
 368 SKIPPED
 369 # getpgrp not present
 370 EOM
 371         exit
 372     }
 373 }
 374 getpgrp ;               # OP_GETPGRP
 375 no warnings 'void' ;
 376 getpgrp ;               # OP_GETPGRP
 377 EXPECT
 378 Useless use of getpgrp in void context at - line 13.
 379 ########
 380 # op.c
 381 use warnings 'void' ;
 382 use Config ;
 383 BEGIN {
 384     if ( ! $Config{d_times}) {
 385         print <<EOM ;
 386 SKIPPED
 387 # times not present
 388 EOM
 389         exit
 390     }
 391 }
 392 times ;                 # OP_TMS
 393 no warnings 'void' ;
 394 times ;                 # OP_TMS
 395 EXPECT
 396 Useless use of times in void context at - line 13.
 397 ########
 398 # op.c
 399 use warnings 'void' ;
 400 use Config ;
 401 BEGIN {
 402     if ( ! $Config{d_getprior} or $^O eq 'os2') { # Locks before fixpak22
 403         print <<EOM ;
 404 SKIPPED
 405 # getpriority not present
 406 EOM
 407         exit
 408     }
 409 }
 410 getpriority 1,2;        # OP_GETPRIORITY
 411 no warnings 'void' ;
 412 getpriority 1,2;        # OP_GETPRIORITY
 413 EXPECT
 414 Useless use of getpriority in void context at - line 13.
 415 ########
 416 # op.c
 417 use warnings 'void' ;
 418 use Config ;
 419 BEGIN {
 420     if ( ! $Config{d_getlogin}) {
 421         print <<EOM ;
 422 SKIPPED
 423 # getlogin not present
 424 EOM
 425         exit
 426     }
 427 }
 428 getlogin ;                      # OP_GETLOGIN
 429 no warnings 'void' ;
 430 getlogin ;                      # OP_GETLOGIN
 431 EXPECT
 432 Useless use of getlogin in void context at - line 13.
 433 ########
 434 # op.c
 435 use warnings 'void' ;
 436 use Config ; BEGIN {
 437 if ( ! $Config{d_socket}) {
 438     print <<EOM ;
 439 SKIPPED
 440 # getsockname not present
 441 # getpeername not present
 442 # gethostbyname not present
 443 # gethostbyaddr not present
 444 # gethostent not present
 445 # getnetbyname not present
 446 # getnetbyaddr not present
 447 # getnetent not present
 448 # getprotobyname not present
 449 # getprotobynumber not present
 450 # getprotoent not present
 451 # getservbyname not present
 452 # getservbyport not present
 453 # getservent not present
 454 EOM
 455     exit
 456 } }
 457 getsockname STDIN ;     # OP_GETSOCKNAME
 458 getpeername STDIN ;     # OP_GETPEERNAME
 459 gethostbyname 1 ;       # OP_GHBYNAME
 460 gethostbyaddr 1,2;      # OP_GHBYADDR
 461 gethostent ;            # OP_GHOSTENT
 462 getnetbyname 1 ;        # OP_GNBYNAME
 463 getnetbyaddr 1,2 ;      # OP_GNBYADDR
 464 getnetent ;             # OP_GNETENT
 465 getprotobyname 1;       # OP_GPBYNAME
 466 getprotobynumber 1;     # OP_GPBYNUMBER
 467 getprotoent ;           # OP_GPROTOENT
 468 getservbyname 1,2;      # OP_GSBYNAME
 469 getservbyport 1,2;      # OP_GSBYPORT
 470 getservent ;            # OP_GSERVENT
 471
 472 no warnings 'void' ;
 473 getsockname STDIN ;     # OP_GETSOCKNAME
 474 getpeername STDIN ;     # OP_GETPEERNAME
 475 gethostbyname 1 ;       # OP_GHBYNAME
 476 gethostbyaddr 1,2;      # OP_GHBYADDR
 477 gethostent ;            # OP_GHOSTENT
 478 getnetbyname 1 ;        # OP_GNBYNAME
 479 getnetbyaddr 1,2 ;      # OP_GNBYADDR
 480 getnetent ;             # OP_GNETENT
 481 getprotobyname 1;       # OP_GPBYNAME
 482 getprotobynumber 1;     # OP_GPBYNUMBER
 483 getprotoent ;           # OP_GPROTOENT
 484 getservbyname 1,2;      # OP_GSBYNAME
 485 getservbyport 1,2;      # OP_GSBYPORT
 486 getservent ;            # OP_GSERVENT
 487 INIT {
 488    # some functions may not be there, so we exit without running
 489    exit;
 490 }
 491 EXPECT
 492 Useless use of getsockname in void context at - line 24.
 493 Useless use of getpeername in void context at - line 25.
 494 Useless use of gethostbyname in void context at - line 26.
 495 Useless use of gethostbyaddr in void context at - line 27.
 496 Useless use of gethostent in void context at - line 28.
 497 Useless use of getnetbyname in void context at - line 29.
 498 Useless use of getnetbyaddr in void context at - line 30.
 499 Useless use of getnetent in void context at - line 31.
 500 Useless use of getprotobyname in void context at - line 32.
 501 Useless use of getprotobynumber in void context at - line 33.
 502 Useless use of getprotoent in void context at - line 34.
 503 Useless use of getservbyname in void context at - line 35.
 504 Useless use of getservbyport in void context at - line 36.
 505 Useless use of getservent in void context at - line 37.
 506 ########
 507 # op.c
 508 use warnings 'void' ;
 509 *a ; # OP_RV2GV
 510 $a ; # OP_RV2SV
 511 @a ; # OP_RV2AV
 512 %a ; # OP_RV2HV
 513 no warnings 'void' ;
 514 *a ; # OP_RV2GV
 515 $a ; # OP_RV2SV
 516 @a ; # OP_RV2AV
 517 %a ; # OP_RV2HV
 518 EXPECT
 519 Useless use of a variable in void context at - line 3.
 520 Useless use of a variable in void context at - line 4.
 521 Useless use of a variable in void context at - line 5.
 522 Useless use of a variable in void context at - line 6.
 523 ########
 524 # op.c
 525 use warnings 'void' ;
 526 "abc"; # OP_CONST
 527 7 ; # OP_CONST
 528 no warnings 'void' ;
 529 "abc"; # OP_CONST
 530 7 ; # OP_CONST
 531 EXPECT
 532 Useless use of a constant in void context at - line 3.
 533 Useless use of a constant in void context at - line 4.
 534 ########
 535 # op.c
 536 #
 537 use warnings 'misc' ;
 538 my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;
 539 @a =~ /abc/ ;
 540 @a =~ s/a/b/ ;
 541 @a =~ tr/a/b/ ;
 542 @$b =~ /abc/ ;
 543 @$b =~ s/a/b/ ;
 544 @$b =~ tr/a/b/ ;
 545 %a =~ /abc/ ;
 546 %a =~ s/a/b/ ;
 547 %a =~ tr/a/b/ ;
 548 %$c =~ /abc/ ;
 549 %$c =~ s/a/b/ ;
 550 %$c =~ tr/a/b/ ;
 551 {
 552 no warnings 'misc' ;
 553 my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;
 554 @a =~ /abc/ ;
 555 @a =~ s/a/b/ ;
 556 @a =~ tr/a/b/ ;
 557 @$b =~ /abc/ ;
 558 @$b =~ s/a/b/ ;
 559 @$b =~ tr/a/b/ ;
 560 %a =~ /abc/ ;
 561 %a =~ s/a/b/ ;
 562 %a =~ tr/a/b/ ;
 563 %$c =~ /abc/ ;
 564 %$c =~ s/a/b/ ;
 565 %$c =~ tr/a/b/ ;
 566 }
 567 EXPECT
 568 Applying pattern match (m//) to @array will act on scalar(@array) at - line 5.
 569 Applying substitution (s///) to @array will act on scalar(@array) at - line 6.
 570 Applying transliteration (tr///) to @array will act on scalar(@array) at - line 7.
 571 Applying pattern match (m//) to @array will act on scalar(@array) at - line 8.
 572 Applying substitution (s///) to @array will act on scalar(@array) at - line 9.
 573 Applying transliteration (tr///) to @array will act on scalar(@array) at - line 10.
 574 Applying pattern match (m//) to %hash will act on scalar(%hash) at - line 11.
 575 Applying substitution (s///) to %hash will act on scalar(%hash) at - line 12.
 576 Applying transliteration (tr///) to %hash will act on scalar(%hash) at - line 13.
 577 Applying pattern match (m//) to %hash will act on scalar(%hash) at - line 14.
 578 Applying substitution (s///) to %hash will act on scalar(%hash) at - line 15.
 579 Applying transliteration (tr///) to %hash will act on scalar(%hash) at - line 16.
 580 Can't modify private array in substitution (s///) at - line 6, near "s/a/b/ ;"
 581 BEGIN not safe after errors--compilation aborted at - line 18.
 582 ########
 583 # op.c
 584 use warnings 'parenthesis' ;
 585 my $a, $b = (1,2);
 586 my @foo,%bar,   $quux; # there's a TAB here
 587 my $x, $y or print;
 588 no warnings 'parenthesis' ;
 589 my $c, $d = (1,2);
 590 EXPECT
 591 Parentheses missing around "my" list at - line 3.
 592 Parentheses missing around "my" list at - line 4.
 593 ########
 594 # op.c
 595 use warnings 'parenthesis' ;
 596 our $a, $b = (1,2);
 597 no warnings 'parenthesis' ;
 598 our $c, $d = (1,2);
 599 EXPECT
 600 Parentheses missing around "our" list at - line 3.
 601 ########
 602 # op.c
 603 use warnings 'parenthesis' ;
 604 local $a, $b = (1,2);
 605 local *f, *g;
 606 no warnings 'parenthesis' ;
 607 local $c, $d = (1,2);
 608 EXPECT
 609 Parentheses missing around "local" list at - line 3.
 610 Parentheses missing around "local" list at - line 4.
 611 ########
 612 # op.c
 613 use warnings 'bareword' ;
 614 print (ABC || 1) ;
 615 no warnings 'bareword' ;
 616 print (ABC || 1) ;
 617 EXPECT
 618 Bareword found in conditional at - line 3.
 619 ########
 620 --FILE-- abc
 621
 622 --FILE--
 623 # op.c
 624 use warnings 'misc' ;
 625 open FH, "<abc" ;
 626 $x = 1 if $x = <FH> ;
 627 no warnings 'misc' ;
 628 $x = 1 if $x = <FH> ;
 629 EXPECT
 630 Value of <HANDLE> construct can be "0"; test with defined() at - line 4.
 631 ########
 632 # op.c
 633 use warnings 'misc' ;
 634 opendir FH, "." ;
 635 $x = 1 if $x = readdir FH ;
 636 no warnings 'misc' ;
 637 $x = 1 if $x = readdir FH ;
 638 closedir FH ;
 639 EXPECT
 640 Value of readdir() operator can be "0"; test with defined() at - line 4.
 641 ########
 642 # op.c
 643 use warnings 'misc' ;
 644 $x = 1 if $x = <*> ;
 645 no warnings 'misc' ;
 646 $x = 1 if $x = <*> ;
 647 EXPECT
 648 Value of glob construct can be "0"; test with defined() at - line 3.
 649 ########
 650 # op.c
 651 use warnings 'misc' ;
 652 %a = (1,2,3,4) ;
 653 $x = 1 if $x = each %a ;
 654 no warnings 'misc' ;
 655 $x = 1 if $x = each %a ;
 656 EXPECT
 657 Value of each() operator can be "0"; test with defined() at - line 4.
 658 ########
 659 # op.c
 660 use warnings 'misc' ;
 661 $x = 1 while $x = <*> and 0 ;
 662 no warnings 'misc' ;
 663 $x = 1 while $x = <*> and 0 ;
 664 EXPECT
 665 Value of glob construct can be "0"; test with defined() at - line 3.
 666 ########
 667 # op.c
 668 use warnings 'misc' ;
 669 opendir FH, "." ;
 670 $x = 1 while $x = readdir FH and 0 ;
 671 no warnings 'misc' ;
 672 $x = 1 while $x = readdir FH and 0 ;
 673 closedir FH ;
 674 EXPECT
 675 Value of readdir() operator can be "0"; test with defined() at - line 4.
 676 ########
 677 # op.c
 678 use warnings 'misc';
 679 open FH, "<abc";
 680 $_ = <FH> err $_ = 1;
 681 ($_ = <FH>) // ($_ = 1);
 682 opendir DH, ".";
 683 $_ = readdir DH err $_ = 1;
 684 $_ = <*> err $_ = 1;
 685 %a = (1,2,3,4) ;
 686 $_ = each %a err $_ = 1;
 687 EXPECT
 688 ########
 689 # op.c
 690 use warnings 'redefine' ;
 691 sub fred {}
 692 sub fred {}
 693 no warnings 'redefine' ;
 694 sub fred {}
 695 EXPECT
 696 Subroutine fred redefined at - line 4.
 697 ########
 698 # op.c
 699 use warnings 'redefine' ;
 700 sub fred () { 1 }
 701 sub fred () { 1 }
 702 no warnings 'redefine' ;
 703 sub fred () { 1 }
 704 EXPECT
 705 Constant subroutine fred redefined at - line 4.
 706 ########
 707 # op.c
 708 no warnings 'redefine' ;
 709 sub fred () { 1 }
 710 sub fred () { 2 }
 711 EXPECT
 712 Constant subroutine fred redefined at - line 4.
 713 ########
 714 # op.c
 715 no warnings 'redefine' ;
 716 sub fred () { 1 }
 717 *fred = sub () { 2 };
 718 EXPECT
 719 Constant subroutine main::fred redefined at - line 4.
 720 ########
 721 # op.c
 722 use warnings 'redefine' ;
 723 format FRED =
 724 .
 725 format FRED =
 726 .
 727 no warnings 'redefine' ;
 728 format FRED =
 729 .
 730 EXPECT
 731 Format FRED redefined at - line 5.
 732 ########
 733 # op.c
 734 use warnings 'deprecated' ;
 735 push FRED;
 736 no warnings 'deprecated' ;
 737 push FRED;
 738 EXPECT
 739 Array @FRED missing the @ in argument 1 of push() at - line 3.
 740 ########
 741 # op.c
 742 use warnings 'deprecated' ;
 743 @a = keys FRED ;
 744 no warnings 'deprecated' ;
 745 @a = keys FRED ;
 746 EXPECT
 747 Hash %FRED missing the % in argument 1 of keys() at - line 3.
 748 ########
 749 # op.c
 750 BEGIN {
 751     if ($^O eq 'MacOS') {
 752         print <<EOM;
 753 SKIPPED
 754 # no exec on Mac OS
 755 EOM
 756         exit;
 757     }
 758 }
 759 use warnings 'syntax' ;
 760 exec "$^X -e 1" ;
 761 my $a
 762 EXPECT
 763 Statement unlikely to be reached at - line 13.
 764         (Maybe you meant system() when you said exec()?)
 765 ########
 766 # op.c
 767 use warnings 'deprecated' ;
 768 my @a; defined(@a);
 769 EXPECT
 770 defined(@array) is deprecated at - line 3.
 771         (Maybe you should just omit the defined()?)
 772 ########
 773 # op.c
 774 use warnings 'deprecated' ;
 775 defined(@a = (1,2,3));
 776 EXPECT
 777 defined(@array) is deprecated at - line 3.
 778         (Maybe you should just omit the defined()?)
 779 ########
 780 # op.c
 781 use warnings 'deprecated' ;
 782 my %h; defined(%h);
 783 EXPECT
 784 defined(%hash) is deprecated at - line 3.
 785         (Maybe you should just omit the defined()?)
 786 ########
 787 # op.c
 788 BEGIN {
 789     if ($^O eq 'MacOS') {
 790         print <<EOM;
 791 SKIPPED
 792 # no exec on Mac OS
 793 EOM
 794         exit;
 795     }
 796 }
 797 no warnings 'syntax' ;
 798 exec "$^X -e 1" ;
 799 my $a
 800 EXPECT
 801
 802 ########
 803 # op.c
 804 sub fred();
 805 sub fred($) {}
 806 EXPECT
 807 Prototype mismatch: sub main::fred () vs ($) at - line 3.
 808 ########
 809 # op.c
 810 $^W = 0 ;
 811 sub fred() ;
 812 sub fred($) {}
 813 {
 814     no warnings 'prototype' ;
 815     sub Fred() ;
 816     sub Fred($) {}
 817     use warnings 'prototype' ;
 818     sub freD() ;
 819     sub freD($) {}
 820 }
 821 sub FRED() ;
 822 sub FRED($) {}
 823 EXPECT
 824 Prototype mismatch: sub main::fred () vs ($) at - line 4.
 825 Prototype mismatch: sub main::freD () vs ($) at - line 11.
 826 Prototype mismatch: sub main::FRED () vs ($) at - line 14.
 827 ########
 828 # op.c
 829 use warnings 'syntax' ;
 830 join /---/, 'x', 'y', 'z';
 831 EXPECT
 832 /---/ should probably be written as "---" at - line 3.
 833 ########
 834 # op.c [Perl_peep]
 835 use warnings 'prototype' ;
 836 fred() ;
 837 sub fred ($$) {}
 838 no warnings 'prototype' ;
 839 joe() ;
 840 sub joe ($$) {}
 841 EXPECT
 842 main::fred() called too early to check prototype at - line 3.
 843 ########
 844 # op.c [Perl_newATTRSUB]
 845 --FILE-- abc.pm
 846 use warnings 'void' ;
 847 BEGIN { $| = 1; print "in begin\n"; }
 848 CHECK { print "in check\n"; }
 849 INIT { print "in init\n"; }
 850 END { print "in end\n"; }
 851 print "in mainline\n";
 852 1;
 853 --FILE--
 854 use abc;
 855 delete $INC{"abc.pm"};
 856 require abc;
 857 do "abc.pm";
 858 EXPECT
 859 in begin
 860 in mainline
 861 in check
 862 in init
 863 in begin
 864 Too late to run CHECK block at abc.pm line 3.
 865 Too late to run INIT block at abc.pm line 4.
 866 in mainline
 867 in begin
 868 Too late to run CHECK block at abc.pm line 3.
 869 Too late to run INIT block at abc.pm line 4.
 870 in mainline
 871 in end
 872 in end
 873 in end
 874 ########
 875 # op.c [Perl_newATTRSUB]
 876 --FILE-- abc.pm
 877 no warnings 'void' ;
 878 BEGIN { $| = 1; print "in begin\n"; }
 879 CHECK { print "in check\n"; }
 880 INIT { print "in init\n"; }
 881 END { print "in end\n"; }
 882 print "in mainline\n";
 883 1;
 884 --FILE--
 885 require abc;
 886 do "abc.pm";
 887 EXPECT
 888 in begin
 889 in mainline
 890 in begin
 891 in mainline
 892 in end
 893 in end
 894 ########
 895 # op.c
 896 my @x;
 897 use warnings 'syntax' ;
 898 push(@x);
 899 unshift(@x);
 900 no warnings 'syntax' ;
 901 push(@x);
 902 unshift(@x);
 903 EXPECT
 904 Useless use of push with no values at - line 4.
 905 Useless use of unshift with no values at - line 5.
 906 ########
 907 # op.c
 908 # 20020401 mjd@plover.com at suggestion of jfriedl@yahoo.com
 909 use warnings 'regexp';
 910 split /blah/g, "blah";
 911 no warnings 'regexp';
 912 split /blah/g, "blah";
 913 EXPECT
 914 Use of /g modifier is meaningless in split at - line 4.
 915 ########
 916 # op.c
 917 use warnings 'precedence';
 918 $a = $b & $c == $d;
 919 $a = $b ^ $c != $d;
 920 $a = $b | $c > $d;
 921 $a = $b < $c & $d;
 922 $a = $b >= $c ^ $d;
 923 $a = $b <= $c | $d;
 924 $a = $b <=> $c & $d;
 925 $a &= $b == $c; $a |= $b == $c; $a ^= $b == $c; # shouldn't warn
 926 no warnings 'precedence';
 927 $a = $b & $c == $d;
 928 $a = $b ^ $c != $d;
 929 $a = $b | $c > $d;
 930 $a = $b < $c & $d;
 931 $a = $b >= $c ^ $d;
 932 $a = $b <= $c | $d;
 933 $a = $b <=> $c & $d;
 934 EXPECT
 935 Possible precedence problem on bitwise & operator at - line 3.
 936 Possible precedence problem on bitwise ^ operator at - line 4.
 937 Possible precedence problem on bitwise | operator at - line 5.
 938 Possible precedence problem on bitwise & operator at - line 6.
 939 Possible precedence problem on bitwise ^ operator at - line 7.
 940 Possible precedence problem on bitwise | operator at - line 8.
 941 Possible precedence problem on bitwise & operator at - line 9.
 942 ########
 943 # op.c
 944 use integer;
 945 use warnings 'precedence';
 946 $a = $b & $c == $d;
 947 $a = $b ^ $c != $d;
 948 $a = $b | $c > $d;
 949 $a = $b < $c & $d;
 950 $a = $b >= $c ^ $d;
 951 $a = $b <= $c | $d;
 952 $a = $b <=> $c & $d;
 953 no warnings 'precedence';
 954 $a = $b & $c == $d;
 955 $a = $b ^ $c != $d;
 956 $a = $b | $c > $d;
 957 $a = $b < $c & $d;
 958 $a = $b >= $c ^ $d;
 959 $a = $b <= $c | $d;
 960 $a = $b <=> $c & $d;
 961 EXPECT
 962 Possible precedence problem on bitwise & operator at - line 4.
 963 Possible precedence problem on bitwise ^ operator at - line 5.
 964 Possible precedence problem on bitwise | operator at - line 6.
 965 Possible precedence problem on bitwise & operator at - line 7.
 966 Possible precedence problem on bitwise ^ operator at - line 8.
 967 Possible precedence problem on bitwise | operator at - line 9.
 968 Possible precedence problem on bitwise & operator at - line 10.
 969 ########
 970 # op.c
 971
 972 # ok    => local() has desired effect;
 973 # ignore=> local() silently ignored
 974
 975 use warnings 'syntax';
 976
 977 local(undef);           # OP_UNDEF              ignore
 978 sub lval : lvalue {};
 979 local(lval());          # OP_ENTERSUB
 980 local($x **= 1);        # OP_POW
 981 local($x *=  1);        # OP_MULTIPLY
 982 local($x /=  1);        # OP_DIVIDE
 983 local($x %=  1);        # OP_MODULO
 984 local($x x=  1);        # OP_REPEAT
 985 local($x +=  1);        # OP_ADD
 986 local($x -=  1);        # OP_SUBTRACT
 987 local($x .=  1);        # OP_CONCAT
 988 local($x <<= 1);        # OP_LEFT_SHIFT
 989 local($x >>= 1);        # OP_RIGHT_SHIFT
 990 local($x &=  1);        # OP_BIT_AND
 991 local($x ^=  1);        # OP_BIT_XOR
 992 local($x |=  1);        # OP_BIT_OR
 993 {
 994     use integer;
 995     local($x *= 1);     # OP_I_MULTIPLY
 996     local($x /= 1);     # OP_I_DIVIDE
 997     local($x %= 1);     # OP_I_MODULO
 998     local($x += 1);     # OP_I_ADD
 999     local($x -= 1);     # OP_I_SUBTRACT
1000 }
1001 local($x?$y:$z) = 1;    # OP_COND_EXPR          ok
1002 # these two are fatal run-time errors instead
1003 #local(@$a);            # OP_RV2AV              ok
1004 #local(%$a);            # OP_RV2HV              ok
1005 local(*a);              # OP_RV2GV              ok
1006 local(@a[1,2]);         # OP_ASLICE             ok
1007 local(@a{1,2});         # OP_HSLICE             ok
1008 local(@a = (1,2));      # OP_AASSIGN
1009 local($$x);             # OP_RV2SV              ok
1010 local($#a);             # OP_AV2ARYLEN
1011 local($x =   1);        # OP_SASSIGN
1012 local($x &&= 1);        # OP_ANDASSIGN
1013 local($x ||= 1);        # OP_ORASSIGN
1014 local($x //= 1);        # OP_DORASSIGN
1015 local($a[0]);           # OP_AELEMFAST          ok
1016
1017 local(substr($x,0,1));  # OP_SUBSTR
1018 local(pos($x));         # OP_POS
1019 local(vec($x,0,1));     # OP_VEC
1020 local($a[$b]);          # OP_AELEM              ok
1021 local($a{$b});          # OP_HELEM              ok
1022
1023 no warnings 'syntax';
1024 EXPECT
1025 Useless localization of subroutine entry at - line 10.
1026 Useless localization of exponentiation (**) at - line 11.
1027 Useless localization of multiplication (*) at - line 12.
1028 Useless localization of division (/) at - line 13.
1029 Useless localization of modulus (%) at - line 14.
1030 Useless localization of repeat (x) at - line 15.
1031 Useless localization of addition (+) at - line 16.
1032 Useless localization of subtraction (-) at - line 17.
1033 Useless localization of concatenation (.) or string at - line 18.
1034 Useless localization of left bitshift (<<) at - line 19.
1035 Useless localization of right bitshift (>>) at - line 20.
1036 Useless localization of bitwise and (&) at - line 21.
1037 Useless localization of bitwise xor (^) at - line 22.
1038 Useless localization of bitwise or (|) at - line 23.
1039 Useless localization of integer multiplication (*) at - line 26.
1040 Useless localization of integer division (/) at - line 27.
1041 Useless localization of integer modulus (%) at - line 28.
1042 Useless localization of integer addition (+) at - line 29.
1043 Useless localization of integer subtraction (-) at - line 30.
1044 Useless localization of list assignment at - line 39.
1045 Useless localization of array length at - line 41.
1046 Useless localization of scalar assignment at - line 42.
1047 Useless localization of logical and assignment (&&=) at - line 43.
1048 Useless localization of logical or assignment (||=) at - line 44.
1049 Useless localization of defined or assignment (//=) at - line 45.
1050 Useless localization of substr at - line 48.
1051 Useless localization of match position at - line 49.
1052 Useless localization of vec at - line 50.
1053 ########
1054 # op.c
1055 use warnings 'deprecated';
1056 our $a;
1057 my $x1 if $a;
1058 my @x2 if $a;
1059 my %x3 if $a;
1060 my ($x4) if $a;
1061 my ($x5,@x6, %x7) if $a;
1062 my @x8 if ($a+$a);
1063 my $x9 = 1+$a if $a;
1064 my ($x10,@x11) = ($a,$a+$a) if $a;
1065 my ($x12) = 1 if $a;
1066 my $y1 unless $a;
1067 my @y2 unless $a;
1068 my %y3 unless $a;
1069 my ($y4) unless $a;
1070 my ($y5,@y6, %y7) unless $a;
1071 my @y8 unless ($a+$a);
1072 $a && my $z1;
1073 $a && my (%z2);
1074 $a || my @z3;
1075 $a || my (%z4);
1076 $a || my (%z4,$z5);
1077 $a && (my $z6 = 1);
1078 $a && (my ($z7,@z8) = (1,2,3));
1079
1080 # these shouldn't warn
1081 our $x if $a;
1082 our $x unless $a;
1083 if ($a) { my $w1 }
1084 if (my $w2) { $a=1 }
1085 if ($a && (my $w3 = 1)) {$a = 2}
1086
1087 EXPECT
1088 Deprecated use of my() in conditional at - line 4.
1089 Deprecated use of my() in conditional at - line 5.
1090 Deprecated use of my() in conditional at - line 6.
1091 Deprecated use of my() in conditional at - line 7.
1092 Deprecated use of my() in conditional at - line 8.
1093 Deprecated use of my() in conditional at - line 9.
1094 Deprecated use of my() in conditional at - line 10.
1095 Deprecated use of my() in conditional at - line 11.
1096 Deprecated use of my() in conditional at - line 12.
1097 Deprecated use of my() in conditional at - line 13.
1098 Deprecated use of my() in conditional at - line 14.
1099 Deprecated use of my() in conditional at - line 15.
1100 Deprecated use of my() in conditional at - line 16.
1101 Deprecated use of my() in conditional at - line 17.
1102 Deprecated use of my() in conditional at - line 18.
1103 Deprecated use of my() in conditional at - line 19.
1104 Deprecated use of my() in conditional at - line 20.
1105 Deprecated use of my() in conditional at - line 21.
1106 Deprecated use of my() in conditional at - line 22.
1107 Deprecated use of my() in conditional at - line 23.
1108 Deprecated use of my() in conditional at - line 24.
1109 Deprecated use of my() in conditional at - line 25.