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 $a ~~ $b;               # OP_SMARTMATCH
 215 $a <=> $b;              # OP_NCMP
 216 EXPECT
 217 Useless use of repeat (x) in void context at - line 3.
 218 Useless use of wantarray in void context at - line 5.
 219 Useless use of reference-type operator in void context at - line 12.
 220 Useless use of reference constructor in void context at - line 13.
 221 Useless use of single ref constructor in void context at - line 14.
 222 Useless use of defined operator in void context at - line 15.
 223 Useless use of hex in void context at - line 16.
 224 Useless use of oct in void context at - line 17.
 225 Useless use of length in void context at - line 18.
 226 Useless use of substr in void context at - line 19.
 227 Useless use of vec in void context at - line 20.
 228 Useless use of index in void context at - line 21.
 229 Useless use of rindex in void context at - line 22.
 230 Useless use of sprintf in void context at - line 23.
 231 Useless use of array element in void context at - line 24.
 232 Useless use of array slice in void context at - line 26.
 233 Useless use of hash element in void context at - line 29.
 234 Useless use of hash slice in void context at - line 30.
 235 Useless use of unpack in void context at - line 31.
 236 Useless use of pack in void context at - line 32.
 237 Useless use of join or string in void context at - line 33.
 238 Useless use of list slice in void context at - line 34.
 239 Useless use of sort in void context at - line 37.
 240 Useless use of reverse in void context at - line 38.
 241 Useless use of range (or flop) in void context at - line 41.
 242 Useless use of caller in void context at - line 42.
 243 Useless use of fileno in void context at - line 43.
 244 Useless use of eof in void context at - line 44.
 245 Useless use of tell in void context at - line 45.
 246 Useless use of readlink in void context at - line 46.
 247 Useless use of time in void context at - line 47.
 248 Useless use of localtime in void context at - line 48.
 249 Useless use of gmtime in void context at - line 49.
 250 Useless use of getgrnam in void context at - line 50.
 251 Useless use of getgrgid in void context at - line 51.
 252 Useless use of getpwnam in void context at - line 52.
 253 Useless use of getpwuid in void context at - line 53.
 254 Useless use of subroutine prototype in void context at - line 54.
 255 Useless use of smart match in void context at - line 55.
 256 Useless use of numeric comparison (<=>) in void context at - line 56.
 257 ########
 258 # op.c
 259 use warnings 'void' ; close STDIN ;
 260 my $x = sort (2,1,3);
 261 no warnings 'void' ;
 262 $x = sort (2,1,3);
 263 EXPECT
 264 Useless use of sort in scalar context at - line 3.
 265 ########
 266 # op.c
 267 no warnings 'void' ; close STDIN ;
 268 1 x 3 ;                 # OP_REPEAT
 269                         # OP_GVSV
 270 wantarray ;             # OP_WANTARRAY
 271                         # OP_GV
 272                         # OP_PADSV
 273                         # OP_PADAV
 274                         # OP_PADHV
 275                         # OP_PADANY
 276                         # OP_AV2ARYLEN
 277 ref ;                   # OP_REF
 278 \@a ;                   # OP_REFGEN
 279 \$a ;                   # OP_SREFGEN
 280 defined $a ;            # OP_DEFINED
 281 hex $a ;                # OP_HEX
 282 oct $a ;                # OP_OCT
 283 length $a ;             # OP_LENGTH
 284 substr $a,1 ;           # OP_SUBSTR
 285 vec $a,1,2 ;            # OP_VEC
 286 index $a,1,2 ;          # OP_INDEX
 287 rindex $a,1,2 ;         # OP_RINDEX
 288 sprintf $a ;            # OP_SPRINTF
 289 $a[0] ;                 # OP_AELEM
 290                         # OP_AELEMFAST
 291 @a[0] ;                 # OP_ASLICE
 292 #values %a ;            # OP_VALUES
 293 #keys %a ;              # OP_KEYS
 294 $a{0} ;                 # OP_HELEM
 295 @a{0} ;                 # OP_HSLICE
 296 unpack "a", "a" ;       # OP_UNPACK
 297 pack $a,"" ;            # OP_PACK
 298 join "" ;               # OP_JOIN
 299 (@a)[0,1] ;             # OP_LSLICE
 300                         # OP_ANONLIST
 301                         # OP_ANONHASH
 302 sort(1,2) ;             # OP_SORT
 303 reverse(1,2) ;          # OP_REVERSE
 304                         # OP_RANGE
 305                         # OP_FLIP
 306 (1 ..2) ;               # OP_FLOP
 307 caller ;                # OP_CALLER
 308 fileno STDIN ;          # OP_FILENO
 309 eof STDIN ;             # OP_EOF
 310 tell STDIN ;            # OP_TELL
 311 readlink 1;             # OP_READLINK
 312 time ;                  # OP_TIME
 313 localtime ;             # OP_LOCALTIME
 314 gmtime ;                # OP_GMTIME
 315 eval { getgrnam 1 };    # OP_GGRNAM
 316 eval { getgrgid 1 };    # OP_GGRGID
 317 eval { getpwnam 1 };    # OP_GPWNAM
 318 eval { getpwuid 1 };    # OP_GPWUID
 319 prototype "foo";        # OP_PROTOTYPE
 320 EXPECT
 321 ########
 322 # op.c
 323 use warnings 'void' ;
 324 for (@{[0]}) { "$_" }           # check warning isn't duplicated
 325 no warnings 'void' ;
 326 for (@{[0]}) { "$_" }           # check warning isn't duplicated
 327 EXPECT
 328 Useless use of string in void context at - line 3.
 329 ########
 330 # op.c
 331 use warnings 'void' ;
 332 use Config ;
 333 BEGIN {
 334     if ( ! $Config{d_telldir}) {
 335         print <<EOM ;
 336 SKIPPED
 337 # telldir not present
 338 EOM
 339         exit
 340     }
 341 }
 342 telldir 1 ;             # OP_TELLDIR
 343 no warnings 'void' ;
 344 telldir 1 ;             # OP_TELLDIR
 345 EXPECT
 346 Useless use of telldir in void context at - line 13.
 347 ########
 348 # op.c
 349 use warnings 'void' ;
 350 use Config ;
 351 BEGIN {
 352     if ( ! $Config{d_getppid}) {
 353         print <<EOM ;
 354 SKIPPED
 355 # getppid not present
 356 EOM
 357         exit
 358     }
 359 }
 360 getppid ;               # OP_GETPPID
 361 no warnings 'void' ;
 362 getppid ;               # OP_GETPPID
 363 EXPECT
 364 Useless use of getppid in void context at - line 13.
 365 ########
 366 # op.c
 367 use warnings 'void' ;
 368 use Config ;
 369 BEGIN {
 370     if ( ! $Config{d_getpgrp}) {
 371         print <<EOM ;
 372 SKIPPED
 373 # getpgrp not present
 374 EOM
 375         exit
 376     }
 377 }
 378 getpgrp ;               # OP_GETPGRP
 379 no warnings 'void' ;
 380 getpgrp ;               # OP_GETPGRP
 381 EXPECT
 382 Useless use of getpgrp in void context at - line 13.
 383 ########
 384 # op.c
 385 use warnings 'void' ;
 386 use Config ;
 387 BEGIN {
 388     if ( ! $Config{d_times}) {
 389         print <<EOM ;
 390 SKIPPED
 391 # times not present
 392 EOM
 393         exit
 394     }
 395 }
 396 times ;                 # OP_TMS
 397 no warnings 'void' ;
 398 times ;                 # OP_TMS
 399 EXPECT
 400 Useless use of times in void context at - line 13.
 401 ########
 402 # op.c
 403 use warnings 'void' ;
 404 use Config ;
 405 BEGIN {
 406     if ( ! $Config{d_getprior} or $^O eq 'os2') { # Locks before fixpak22
 407         print <<EOM ;
 408 SKIPPED
 409 # getpriority not present
 410 EOM
 411         exit
 412     }
 413 }
 414 getpriority 1,2;        # OP_GETPRIORITY
 415 no warnings 'void' ;
 416 getpriority 1,2;        # OP_GETPRIORITY
 417 EXPECT
 418 Useless use of getpriority in void context at - line 13.
 419 ########
 420 # op.c
 421 use warnings 'void' ;
 422 use Config ;
 423 BEGIN {
 424     if ( ! $Config{d_getlogin}) {
 425         print <<EOM ;
 426 SKIPPED
 427 # getlogin not present
 428 EOM
 429         exit
 430     }
 431 }
 432 getlogin ;                      # OP_GETLOGIN
 433 no warnings 'void' ;
 434 getlogin ;                      # OP_GETLOGIN
 435 EXPECT
 436 Useless use of getlogin in void context at - line 13.
 437 ########
 438 # op.c
 439 use warnings 'void' ;
 440 use Config ; BEGIN {
 441 if ( ! $Config{d_socket}) {
 442     print <<EOM ;
 443 SKIPPED
 444 # getsockname not present
 445 # getpeername not present
 446 # gethostbyname not present
 447 # gethostbyaddr not present
 448 # gethostent not present
 449 # getnetbyname not present
 450 # getnetbyaddr not present
 451 # getnetent not present
 452 # getprotobyname not present
 453 # getprotobynumber not present
 454 # getprotoent not present
 455 # getservbyname not present
 456 # getservbyport not present
 457 # getservent not present
 458 EOM
 459     exit
 460 } }
 461 getsockname STDIN ;     # OP_GETSOCKNAME
 462 getpeername STDIN ;     # OP_GETPEERNAME
 463 gethostbyname 1 ;       # OP_GHBYNAME
 464 gethostbyaddr 1,2;      # OP_GHBYADDR
 465 gethostent ;            # OP_GHOSTENT
 466 getnetbyname 1 ;        # OP_GNBYNAME
 467 getnetbyaddr 1,2 ;      # OP_GNBYADDR
 468 getnetent ;             # OP_GNETENT
 469 getprotobyname 1;       # OP_GPBYNAME
 470 getprotobynumber 1;     # OP_GPBYNUMBER
 471 getprotoent ;           # OP_GPROTOENT
 472 getservbyname 1,2;      # OP_GSBYNAME
 473 getservbyport 1,2;      # OP_GSBYPORT
 474 getservent ;            # OP_GSERVENT
 475
 476 no warnings 'void' ;
 477 getsockname STDIN ;     # OP_GETSOCKNAME
 478 getpeername STDIN ;     # OP_GETPEERNAME
 479 gethostbyname 1 ;       # OP_GHBYNAME
 480 gethostbyaddr 1,2;      # OP_GHBYADDR
 481 gethostent ;            # OP_GHOSTENT
 482 getnetbyname 1 ;        # OP_GNBYNAME
 483 getnetbyaddr 1,2 ;      # OP_GNBYADDR
 484 getnetent ;             # OP_GNETENT
 485 getprotobyname 1;       # OP_GPBYNAME
 486 getprotobynumber 1;     # OP_GPBYNUMBER
 487 getprotoent ;           # OP_GPROTOENT
 488 getservbyname 1,2;      # OP_GSBYNAME
 489 getservbyport 1,2;      # OP_GSBYPORT
 490 getservent ;            # OP_GSERVENT
 491 INIT {
 492    # some functions may not be there, so we exit without running
 493    exit;
 494 }
 495 EXPECT
 496 Useless use of getsockname in void context at - line 24.
 497 Useless use of getpeername in void context at - line 25.
 498 Useless use of gethostbyname in void context at - line 26.
 499 Useless use of gethostbyaddr in void context at - line 27.
 500 Useless use of gethostent in void context at - line 28.
 501 Useless use of getnetbyname in void context at - line 29.
 502 Useless use of getnetbyaddr in void context at - line 30.
 503 Useless use of getnetent in void context at - line 31.
 504 Useless use of getprotobyname in void context at - line 32.
 505 Useless use of getprotobynumber in void context at - line 33.
 506 Useless use of getprotoent in void context at - line 34.
 507 Useless use of getservbyname in void context at - line 35.
 508 Useless use of getservbyport in void context at - line 36.
 509 Useless use of getservent in void context at - line 37.
 510 ########
 511 # op.c
 512 use warnings 'void' ;
 513 *a ; # OP_RV2GV
 514 $a ; # OP_RV2SV
 515 @a ; # OP_RV2AV
 516 %a ; # OP_RV2HV
 517 no warnings 'void' ;
 518 *a ; # OP_RV2GV
 519 $a ; # OP_RV2SV
 520 @a ; # OP_RV2AV
 521 %a ; # OP_RV2HV
 522 EXPECT
 523 Useless use of a variable in void context at - line 3.
 524 Useless use of a variable in void context at - line 4.
 525 Useless use of a variable in void context at - line 5.
 526 Useless use of a variable in void context at - line 6.
 527 ########
 528 # op.c
 529 use warnings 'void' ;
 530 "abc"; # OP_CONST
 531 7 ; # OP_CONST
 532 "x" . "y"; # optimized to OP_CONST
 533 2 + 2; # optimized to OP_CONST
 534 use constant U => undef;
 535 U;
 536 5 || print "bad\n";     # test OPpCONST_SHORTCIRCUIT
 537 print "boo\n" if U;     # test OPpCONST_SHORTCIRCUIT
 538 $[ = 2; # should not warn
 539 no warnings 'void' ;
 540 "abc"; # OP_CONST
 541 7 ; # OP_CONST
 542 "x" . "y"; # optimized to OP_CONST
 543 2 + 2; # optimized to OP_CONST
 544 EXPECT
 545 Useless use of a constant (abc) in void context at - line 3.
 546 Useless use of a constant (7) in void context at - line 4.
 547 Useless use of a constant (xy) in void context at - line 5.
 548 Useless use of a constant (4) in void context at - line 6.
 549 Useless use of a constant (undef) in void context at - line 8.
 550 ########
 551 # op.c
 552 #
 553 use warnings 'misc' ;
 554 my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;my $d = 'test';
 555 @a =~ /abc/ ;
 556 @a =~ s/a/b/ ;
 557 @a =~ tr/a/b/ ;
 558 @$b =~ /abc/ ;
 559 @$b =~ s/a/b/ ;
 560 @$b =~ tr/a/b/ ;
 561 %a =~ /abc/ ;
 562 %a =~ s/a/b/ ;
 563 %a =~ tr/a/b/ ;
 564 %$c =~ /abc/ ;
 565 %$c =~ s/a/b/ ;
 566 %$c =~ tr/a/b/ ;
 567 $d =~ tr/a/b/d ;
 568 $d =~ tr/a/bc/;
 569 {
 570 no warnings 'misc' ;
 571 my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ; my $d = 'test';
 572 @a =~ /abc/ ;
 573 @a =~ s/a/b/ ;
 574 @a =~ tr/a/b/ ;
 575 @$b =~ /abc/ ;
 576 @$b =~ s/a/b/ ;
 577 @$b =~ tr/a/b/ ;
 578 %a =~ /abc/ ;
 579 %a =~ s/a/b/ ;
 580 %a =~ tr/a/b/ ;
 581 %$c =~ /abc/ ;
 582 %$c =~ s/a/b/ ;
 583 %$c =~ tr/a/b/ ;
 584 $d =~ tr/a/b/d ;
 585 $d =~ tr/a/bc/ ;
 586 }
 587 EXPECT
 588 Applying pattern match (m//) to @array will act on scalar(@array) at - line 5.
 589 Applying substitution (s///) to @array will act on scalar(@array) at - line 6.
 590 Applying transliteration (tr///) to @array will act on scalar(@array) at - line 7.
 591 Applying pattern match (m//) to @array will act on scalar(@array) at - line 8.
 592 Applying substitution (s///) to @array will act on scalar(@array) at - line 9.
 593 Applying transliteration (tr///) to @array will act on scalar(@array) at - line 10.
 594 Applying pattern match (m//) to %hash will act on scalar(%hash) at - line 11.
 595 Applying substitution (s///) to %hash will act on scalar(%hash) at - line 12.
 596 Applying transliteration (tr///) to %hash will act on scalar(%hash) at - line 13.
 597 Applying pattern match (m//) to %hash will act on scalar(%hash) at - line 14.
 598 Applying substitution (s///) to %hash will act on scalar(%hash) at - line 15.
 599 Applying transliteration (tr///) to %hash will act on scalar(%hash) at - line 16.
 600 Useless use of /d modifier in transliteration operator at - line 17.
 601 Replacement list is longer than search list at - line 18.
 602 Can't modify private array in substitution (s///) at - line 6, near "s/a/b/ ;"
 603 BEGIN not safe after errors--compilation aborted at - line 20.
 604 ########
 605 # op.c
 606 use warnings 'parenthesis' ;
 607 my $a, $b = (1,2);
 608 my @foo,%bar,   $quux; # there's a TAB here
 609 my $x, $y or print;
 610 no warnings 'parenthesis' ;
 611 my $c, $d = (1,2);
 612 EXPECT
 613 Parentheses missing around "my" list at - line 3.
 614 Parentheses missing around "my" list at - line 4.
 615 ########
 616 # op.c
 617 use warnings 'parenthesis' ;
 618 our $a, $b = (1,2);
 619 no warnings 'parenthesis' ;
 620 our $c, $d = (1,2);
 621 EXPECT
 622 Parentheses missing around "our" list at - line 3.
 623 ########
 624 # op.c
 625 use warnings 'parenthesis' ;
 626 local $a, $b = (1,2);
 627 local *f, *g;
 628 no warnings 'parenthesis' ;
 629 local $c, $d = (1,2);
 630 EXPECT
 631 Parentheses missing around "local" list at - line 3.
 632 Parentheses missing around "local" list at - line 4.
 633 ########
 634 # op.c
 635 use warnings 'bareword' ;
 636 print (ABC || 1) ;
 637 no warnings 'bareword' ;
 638 print (ABC || 1) ;
 639 EXPECT
 640 Bareword found in conditional at - line 3.
 641 ########
 642 --FILE-- abc
 643
 644 --FILE--
 645 # op.c
 646 use warnings 'misc' ;
 647 open FH, "<abc" ;
 648 $x = 1 if $x = <FH> ;
 649 no warnings 'misc' ;
 650 $x = 1 if $x = <FH> ;
 651 EXPECT
 652 Value of <HANDLE> construct can be "0"; test with defined() at - line 4.
 653 ########
 654 # op.c
 655 use warnings 'misc' ;
 656 opendir FH, "." ;
 657 $x = 1 if $x = readdir FH ;
 658 no warnings 'misc' ;
 659 $x = 1 if $x = readdir FH ;
 660 closedir FH ;
 661 EXPECT
 662 Value of readdir() operator can be "0"; test with defined() at - line 4.
 663 ########
 664 # op.c
 665 use warnings 'misc' ;
 666 $x = 1 if $x = <*> ;
 667 no warnings 'misc' ;
 668 $x = 1 if $x = <*> ;
 669 EXPECT
 670 Value of glob construct can be "0"; test with defined() at - line 3.
 671 ########
 672 # op.c
 673 use warnings 'misc' ;
 674 %a = (1,2,3,4) ;
 675 $x = 1 if $x = each %a ;
 676 no warnings 'misc' ;
 677 $x = 1 if $x = each %a ;
 678 EXPECT
 679 Value of each() operator can be "0"; test with defined() at - line 4.
 680 ########
 681 # op.c
 682 use warnings 'misc' ;
 683 $x = 1 while $x = <*> and 0 ;
 684 no warnings 'misc' ;
 685 $x = 1 while $x = <*> and 0 ;
 686 EXPECT
 687 Value of glob construct can be "0"; test with defined() at - line 3.
 688 ########
 689 # op.c
 690 use warnings 'misc' ;
 691 opendir FH, "." ;
 692 $x = 1 while $x = readdir FH and 0 ;
 693 no warnings 'misc' ;
 694 $x = 1 while $x = readdir FH and 0 ;
 695 closedir FH ;
 696 EXPECT
 697 Value of readdir() operator can be "0"; test with defined() at - line 4.
 698 ########
 699 # op.c
 700 use warnings 'misc';
 701 open FH, "<abc";
 702 ($_ = <FH>) // ($_ = 1);
 703 opendir DH, ".";
 704 %a = (1,2,3,4) ;
 705 EXPECT
 706 ########
 707 # op.c
 708 use warnings 'redefine' ;
 709 sub fred {}
 710 sub fred {}
 711 no warnings 'redefine' ;
 712 sub fred {}
 713 EXPECT
 714 Subroutine fred redefined at - line 4.
 715 ########
 716 # op.c
 717 use warnings 'redefine' ;
 718 sub fred () { 1 }
 719 sub fred () { 1 }
 720 no warnings 'redefine' ;
 721 sub fred () { 1 }
 722 EXPECT
 723 Constant subroutine fred redefined at - line 4.
 724 ########
 725 # op.c
 726 no warnings 'redefine' ;
 727 sub fred () { 1 }
 728 sub fred () { 2 }
 729 EXPECT
 730 Constant subroutine fred redefined at - line 4.
 731 ########
 732 # op.c
 733 no warnings 'redefine' ;
 734 sub fred () { 1 }
 735 *fred = sub () { 2 };
 736 EXPECT
 737 Constant subroutine main::fred redefined at - line 4.
 738 ########
 739 # op.c
 740 use warnings 'redefine' ;
 741 format FRED =
 742 .
 743 format FRED =
 744 .
 745 no warnings 'redefine' ;
 746 format FRED =
 747 .
 748 EXPECT
 749 Format FRED redefined at - line 5.
 750 ########
 751 # op.c
 752 use warnings 'deprecated' ;
 753 push FRED;
 754 no warnings 'deprecated' ;
 755 push FRED;
 756 EXPECT
 757 Array @FRED missing the @ in argument 1 of push() at - line 3.
 758 ########
 759 # op.c
 760 use warnings 'deprecated' ;
 761 @a = keys FRED ;
 762 no warnings 'deprecated' ;
 763 @a = keys FRED ;
 764 EXPECT
 765 Hash %FRED missing the % in argument 1 of keys() at - line 3.
 766 ########
 767 # op.c
 768 use warnings 'syntax' ;
 769 exec "$^X -e 1" ;
 770 my $a
 771 EXPECT
 772 Statement unlikely to be reached at - line 4.
 773         (Maybe you meant system() when you said exec()?)
 774 ########
 775 # op.c
 776 use warnings 'deprecated' ;
 777 my @a; defined(@a);
 778 EXPECT
 779 defined(@array) is deprecated at - line 3.
 780         (Maybe you should just omit the defined()?)
 781 ########
 782 # op.c
 783 use warnings 'deprecated' ;
 784 defined(@a = (1,2,3));
 785 EXPECT
 786 defined(@array) is deprecated at - line 3.
 787         (Maybe you should just omit the defined()?)
 788 ########
 789 # op.c
 790 use warnings 'deprecated' ;
 791 my %h; defined(%h);
 792 EXPECT
 793 defined(%hash) is deprecated at - line 3.
 794         (Maybe you should just omit the defined()?)
 795 ########
 796 # op.c
 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 local($[);              # OP_CONST
1023
1024 no warnings 'syntax';
1025 EXPECT
1026 Useless localization of subroutine entry at - line 10.
1027 Useless localization of exponentiation (**) at - line 11.
1028 Useless localization of multiplication (*) at - line 12.
1029 Useless localization of division (/) at - line 13.
1030 Useless localization of modulus (%) at - line 14.
1031 Useless localization of repeat (x) at - line 15.
1032 Useless localization of addition (+) at - line 16.
1033 Useless localization of subtraction (-) at - line 17.
1034 Useless localization of concatenation (.) or string at - line 18.
1035 Useless localization of left bitshift (<<) at - line 19.
1036 Useless localization of right bitshift (>>) at - line 20.
1037 Useless localization of bitwise and (&) at - line 21.
1038 Useless localization of bitwise xor (^) at - line 22.
1039 Useless localization of bitwise or (|) at - line 23.
1040 Useless localization of integer multiplication (*) at - line 26.
1041 Useless localization of integer division (/) at - line 27.
1042 Useless localization of integer modulus (%) at - line 28.
1043 Useless localization of integer addition (+) at - line 29.
1044 Useless localization of integer subtraction (-) at - line 30.
1045 Useless localization of list assignment at - line 39.
1046 Useless localization of array length at - line 41.
1047 Useless localization of scalar assignment at - line 42.
1048 Useless localization of logical and assignment (&&=) at - line 43.
1049 Useless localization of logical or assignment (||=) at - line 44.
1050 Useless localization of defined or assignment (//=) at - line 45.
1051 Useless localization of substr at - line 48.
1052 Useless localization of match position at - line 49.
1053 Useless localization of vec at - line 50.
1054 ########
1055 # op.c
1056 use warnings 'deprecated';
1057 my $x1 if 0;
1058 my @x2 if 0;
1059 my %x3 if 0;
1060 my ($x4) if 0;
1061 my ($x5,@x6, %x7) if 0;
1062 0 && my $z1;
1063 0 && my (%z2);
1064 # these shouldn't warn
1065 our $x if 0;
1066 our $x unless 0;
1067 if (0) { my $w1 }
1068 if (my $w2) { $a=1 }
1069 if ($a && (my $w3 = 1)) {$a = 2}
1070
1071 EXPECT
1072 Deprecated use of my() in false conditional at - line 3.
1073 Deprecated use of my() in false conditional at - line 4.
1074 Deprecated use of my() in false conditional at - line 5.
1075 Deprecated use of my() in false conditional at - line 6.
1076 Deprecated use of my() in false conditional at - line 7.
1077 Deprecated use of my() in false conditional at - line 8.
1078 Deprecated use of my() in false conditional at - line 9.
1079 ########
1080 # op.c
1081 $[ = 1;
1082 use warnings 'deprecated';
1083 $[ = 2;
1084 no warnings 'deprecated';
1085 $[ = 3;
1086 EXPECT
1087 Use of assignment to $[ is deprecated at - line 4.