t/pragma/warn/op

   1   op.c          AOK
   2
   3      "my" variable %s masks earlier declaration in same scope
   4         my $x;
   5         my $x ;
   6
   7      Variable "%s" may be unavailable
   8         sub x {
   9             my $x;
  10             sub y {
  11                 $x
  12             }
  13         }
  14
  15      Variable "%s" will not stay shared
  16         sub x {
  17             my $x;
  18             sub y {
  19                 sub { $x }
  20             }
  21         }
  22
  23      Found = in conditional, should be ==
  24         1 if $a = 1 ;
  25
  26      Use of implicit split to @_ is deprecated
  27         split ;
  28
  29      Use of implicit split to @_ is deprecated
  30         $a = split ;
  31
  32      Useless use of time in void context
  33      Useless use of a variable in void context
  34      Useless use of a constant in void context
  35         time ;
  36         $a ;
  37         "abc"
  38
  39      Applying %s to %s will act on scalar(%s)
  40         my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;
  41         @a =~ /abc/ ;
  42         @a =~ s/a/b/ ;
  43         @a =~ tr/a/b/ ;
  44         @$b =~ /abc/ ;
  45         @$b =~ s/a/b/ ;
  46         @$b =~ tr/a/b/ ;
  47         %a =~ /abc/ ;
  48         %a =~ s/a/b/ ;
  49         %a =~ tr/a/b/ ;
  50         %$c =~ /abc/ ;
  51         %$c =~ s/a/b/ ;
  52         %$c =~ tr/a/b/ ;
  53
  54
  55      Parentheses missing around "my" list at -e line 1.
  56        my $a, $b = (1,2);
  57
  58      Parentheses missing around "local" list at -e line 1.
  59        local $a, $b = (1,2);
  60
  61      Probable precedence problem on logical or at -e line 1.
  62        use warning 'syntax'; my $x = print(ABC || 1);
  63
  64      Value of %s may be \"0\"; use \"defined\"
  65         $x = 1 if $x = <FH> ;
  66         $x = 1 while $x = <FH> ;
  67
  68      Subroutine fred redefined at -e line 1.
  69        sub fred{1;} sub fred{1;}
  70
  71      Constant subroutine %s redefined
  72         sub fred() {1;} sub fred() {1;}
  73
  74      Format FRED redefined at /tmp/x line 5.
  75        format FRED =
  76        .
  77        format FRED =
  78        .
  79
  80      Array @%s missing the @ in argument %d of %s()
  81         push fred ;
  82
  83      Hash %%%s missing the %% in argument %d of %s()
  84         keys joe ;
  85
  86      Statement unlikely to be reached
  87      (Maybe you meant system() when you said exec()?
  88         exec "true" ; my $a
  89
  90      defined(@array) is deprecated
  91      (Maybe you should just omit the defined()?)
  92         defined @a ;
  93         my @a ; defined @a ;
  94         defined (@a = (1,2,3)) ;
  95
  96      defined(%hash) is deprecated
  97      (Maybe you should just omit the defined()?)
  98         defined %h ;
  99         my %h ; defined %h ;
 100
 101     Mandatory Warnings
 102     ------------------
 103     Prototype mismatch:         [cv_ckproto]
 104         sub fred() ;
 105         sub fred($) {}
 106
 107     %s never introduced         [pad_leavemy]   TODO
 108     Runaway prototype           [newSUB]        TODO
 109     oops: oopsAV                [oopsAV]        TODO
 110     oops: oopsHV                [oopsHV]        TODO
 111
 112
 113
 114
 115 __END__
 116 # op.c
 117 use warning 'unsafe' ;
 118 my $x ;
 119 my $x ;
 120 no warning 'unsafe' ;
 121 my $x ;
 122 EXPECT
 123 "my" variable $x masks earlier declaration in same scope at - line 4.
 124 ########
 125 # op.c
 126 use warning 'unsafe' ;
 127 sub x {
 128       my $x;
 129       sub y {
 130          $x
 131       }
 132    }
 133 EXPECT
 134 Variable "$x" will not stay shared at - line 7.
 135 ########
 136 # op.c
 137 no warning 'unsafe' ;
 138 sub x {
 139       my $x;
 140       sub y {
 141          $x
 142       }
 143    }
 144 EXPECT
 145
 146 ########
 147 # op.c
 148 use warning 'unsafe' ;
 149 sub x {
 150       my $x;
 151       sub y {
 152          sub { $x }
 153       }
 154    }
 155 EXPECT
 156 Variable "$x" may be unavailable at - line 6.
 157 ########
 158 # op.c
 159 no warning 'unsafe' ;
 160 sub x {
 161       my $x;
 162       sub y {
 163          sub { $x }
 164       }
 165    }
 166 EXPECT
 167
 168 ########
 169 # op.c
 170 use warning 'syntax' ;
 171 1 if $a = 1 ;
 172 no warning 'syntax' ;
 173 1 if $a = 1 ;
 174 EXPECT
 175 Found = in conditional, should be == at - line 3.
 176 ########
 177 # op.c
 178 use warning 'deprecated' ;
 179 split ;
 180 no warning 'deprecated' ;
 181 split ;
 182 EXPECT
 183 Use of implicit split to @_ is deprecated at - line 3.
 184 ########
 185 # op.c
 186 use warning 'deprecated' ;
 187 $a = split ;
 188 no warning 'deprecated' ;
 189 $a = split ;
 190 EXPECT
 191 Use of implicit split to @_ is deprecated at - line 3.
 192 ########
 193 # op.c
 194 use warning 'void' ; close STDIN ;
 195 1 x 3 ;                 # OP_REPEAT
 196                         # OP_GVSV
 197 wantarray ;             # OP_WANTARRAY
 198                         # OP_GV
 199                         # OP_PADSV
 200                         # OP_PADAV
 201                         # OP_PADHV
 202                         # OP_PADANY
 203                         # OP_AV2ARYLEN
 204 ref ;                   # OP_REF
 205 \@a ;                   # OP_REFGEN
 206 \$a ;                   # OP_SREFGEN
 207 defined $a ;            # OP_DEFINED
 208 hex $a ;                # OP_HEX
 209 oct $a ;                # OP_OCT
 210 length $a ;             # OP_LENGTH
 211 substr $a,1 ;           # OP_SUBSTR
 212 vec $a,1,2 ;            # OP_VEC
 213 index $a,1,2 ;          # OP_INDEX
 214 rindex $a,1,2 ;         # OP_RINDEX
 215 sprintf $a ;            # OP_SPRINTF
 216 $a[0] ;                 # OP_AELEM
 217                         # OP_AELEMFAST
 218 @a[0] ;                 # OP_ASLICE
 219 #values %a ;            # OP_VALUES
 220 #keys %a ;              # OP_KEYS
 221 $a{0} ;                 # OP_HELEM
 222 @a{0} ;                 # OP_HSLICE
 223 unpack "a", "a" ;       # OP_UNPACK
 224 pack $a,"" ;            # OP_PACK
 225 join "" ;               # OP_JOIN
 226 (@a)[0,1] ;             # OP_LSLICE
 227                         # OP_ANONLIST
 228                         # OP_ANONHASH
 229 sort(1,2) ;             # OP_SORT
 230 reverse(1,2) ;          # OP_REVERSE
 231                         # OP_RANGE
 232                         # OP_FLIP
 233 (1 ..2) ;               # OP_FLOP
 234 caller ;                # OP_CALLER
 235 fileno STDIN ;          # OP_FILENO
 236 eof STDIN ;             # OP_EOF
 237 tell STDIN ;            # OP_TELL
 238 readlink 1;             # OP_READLINK
 239 time ;                  # OP_TIME
 240 localtime ;             # OP_LOCALTIME
 241 gmtime ;                # OP_GMTIME
 242 eval { getgrnam 1 };    # OP_GGRNAM
 243 eval { getgrgid 1 };    # OP_GGRGID
 244 eval { getpwnam 1 };    # OP_GPWNAM
 245 eval { getpwuid 1 };    # OP_GPWUID
 246 EXPECT
 247 Useless use of repeat in void context at - line 3.
 248 Useless use of wantarray in void context at - line 5.
 249 Useless use of reference-type operator in void context at - line 12.
 250 Useless use of reference constructor in void context at - line 13.
 251 Useless use of single ref constructor in void context at - line 14.
 252 Useless use of defined operator in void context at - line 15.
 253 Useless use of hex in void context at - line 16.
 254 Useless use of oct in void context at - line 17.
 255 Useless use of length in void context at - line 18.
 256 Useless use of substr in void context at - line 19.
 257 Useless use of vec in void context at - line 20.
 258 Useless use of index in void context at - line 21.
 259 Useless use of rindex in void context at - line 22.
 260 Useless use of sprintf in void context at - line 23.
 261 Useless use of array element in void context at - line 24.
 262 Useless use of array slice in void context at - line 26.
 263 Useless use of hash elem in void context at - line 29.
 264 Useless use of hash slice in void context at - line 30.
 265 Useless use of unpack in void context at - line 31.
 266 Useless use of pack in void context at - line 32.
 267 Useless use of join in void context at - line 33.
 268 Useless use of list slice in void context at - line 34.
 269 Useless use of sort in void context at - line 37.
 270 Useless use of reverse in void context at - line 38.
 271 Useless use of range (or flop) in void context at - line 41.
 272 Useless use of caller in void context at - line 42.
 273 Useless use of fileno in void context at - line 43.
 274 Useless use of eof in void context at - line 44.
 275 Useless use of tell in void context at - line 45.
 276 Useless use of readlink in void context at - line 46.
 277 Useless use of time in void context at - line 47.
 278 Useless use of localtime in void context at - line 48.
 279 Useless use of gmtime in void context at - line 49.
 280 Useless use of getgrnam in void context at - line 50.
 281 Useless use of getgrgid in void context at - line 51.
 282 Useless use of getpwnam in void context at - line 52.
 283 Useless use of getpwuid in void context at - line 53.
 284 ########
 285 # op.c
 286 no warning 'void' ; close STDIN ;
 287 1 x 3 ;                 # OP_REPEAT
 288                         # OP_GVSV
 289 wantarray ;             # OP_WANTARRAY
 290                         # OP_GV
 291                         # OP_PADSV
 292                         # OP_PADAV
 293                         # OP_PADHV
 294                         # OP_PADANY
 295                         # OP_AV2ARYLEN
 296 ref ;                   # OP_REF
 297 \@a ;                   # OP_REFGEN
 298 \$a ;                   # OP_SREFGEN
 299 defined $a ;            # OP_DEFINED
 300 hex $a ;                # OP_HEX
 301 oct $a ;                # OP_OCT
 302 length $a ;             # OP_LENGTH
 303 substr $a,1 ;           # OP_SUBSTR
 304 vec $a,1,2 ;            # OP_VEC
 305 index $a,1,2 ;          # OP_INDEX
 306 rindex $a,1,2 ;         # OP_RINDEX
 307 sprintf $a ;            # OP_SPRINTF
 308 $a[0] ;                 # OP_AELEM
 309                         # OP_AELEMFAST
 310 @a[0] ;                 # OP_ASLICE
 311 #values %a ;            # OP_VALUES
 312 #keys %a ;              # OP_KEYS
 313 $a{0} ;                 # OP_HELEM
 314 @a{0} ;                 # OP_HSLICE
 315 unpack "a", "a" ;       # OP_UNPACK
 316 pack $a,"" ;            # OP_PACK
 317 join "" ;               # OP_JOIN
 318 (@a)[0,1] ;             # OP_LSLICE
 319                         # OP_ANONLIST
 320                         # OP_ANONHASH
 321 sort(1,2) ;             # OP_SORT
 322 reverse(1,2) ;          # OP_REVERSE
 323                         # OP_RANGE
 324                         # OP_FLIP
 325 (1 ..2) ;               # OP_FLOP
 326 caller ;                # OP_CALLER
 327 fileno STDIN ;          # OP_FILENO
 328 eof STDIN ;             # OP_EOF
 329 tell STDIN ;            # OP_TELL
 330 readlink 1;             # OP_READLINK
 331 time ;                  # OP_TIME
 332 localtime ;             # OP_LOCALTIME
 333 gmtime ;                # OP_GMTIME
 334 eval { getgrnam 1 };    # OP_GGRNAM
 335 eval { getgrgid 1 };    # OP_GGRGID
 336 eval { getpwnam 1 };    # OP_GPWNAM
 337 eval { getpwuid 1 };    # OP_GPWUID
 338 EXPECT
 339 ########
 340 # op.c
 341 use warning 'void' ;
 342 for (@{[0]}) { "$_" }           # check warning isn't duplicated
 343 no warning 'void' ;
 344 for (@{[0]}) { "$_" }           # check warning isn't duplicated
 345 EXPECT
 346 Useless use of string in void context at - line 3.
 347 ########
 348 # op.c
 349 use warning 'void' ;
 350 use Config ;
 351 BEGIN {
 352     if ( ! $Config{d_telldir}) {
 353         print <<EOM ;
 354 SKIPPED
 355 # telldir not present
 356 EOM
 357         exit
 358     }
 359 }
 360 telldir 1 ;             # OP_TELLDIR
 361 no warning 'void' ;
 362 telldir 1 ;             # OP_TELLDIR
 363 EXPECT
 364 Useless use of telldir in void context at - line 13.
 365 ########
 366 # op.c
 367 use warning 'void' ;
 368 use Config ;
 369 BEGIN {
 370     if ( ! $Config{d_getppid}) {
 371         print <<EOM ;
 372 SKIPPED
 373 # getppid not present
 374 EOM
 375         exit
 376     }
 377 }
 378 getppid ;               # OP_GETPPID
 379 no warning 'void' ;
 380 getppid ;               # OP_GETPPID
 381 EXPECT
 382 Useless use of getppid in void context at - line 13.
 383 ########
 384 # op.c
 385 use warning 'void' ;
 386 use Config ;
 387 BEGIN {
 388     if ( ! $Config{d_getpgrp}) {
 389         print <<EOM ;
 390 SKIPPED
 391 # getpgrp not present
 392 EOM
 393         exit
 394     }
 395 }
 396 getpgrp ;               # OP_GETPGRP
 397 no warning 'void' ;
 398 getpgrp ;               # OP_GETPGRP
 399 EXPECT
 400 Useless use of getpgrp in void context at - line 13.
 401 ########
 402 # op.c
 403 use warning 'void' ;
 404 use Config ;
 405 BEGIN {
 406     if ( ! $Config{d_times}) {
 407         print <<EOM ;
 408 SKIPPED
 409 # times not present
 410 EOM
 411         exit
 412     }
 413 }
 414 times ;                 # OP_TMS
 415 no warning 'void' ;
 416 times ;                 # OP_TMS
 417 EXPECT
 418 Useless use of times in void context at - line 13.
 419 ########
 420 # op.c
 421 use warning 'void' ;
 422 use Config ;
 423 BEGIN {
 424     if ( ! $Config{d_getprior} or $^O eq 'os2') { # Locks before fixpak22
 425         print <<EOM ;
 426 SKIPPED
 427 # getpriority not present
 428 EOM
 429         exit
 430     }
 431 }
 432 getpriority 1,2;        # OP_GETPRIORITY
 433 no warning 'void' ;
 434 getpriority 1,2;        # OP_GETPRIORITY
 435 EXPECT
 436 Useless use of getpriority in void context at - line 13.
 437 ########
 438 # op.c
 439 use warning 'void' ;
 440 use Config ;
 441 BEGIN {
 442     if ( ! $Config{d_getlogin}) {
 443         print <<EOM ;
 444 SKIPPED
 445 # getlogin not present
 446 EOM
 447         exit
 448     }
 449 }
 450 getlogin ;                      # OP_GETLOGIN
 451 no warning 'void' ;
 452 getlogin ;                      # OP_GETLOGIN
 453 EXPECT
 454 Useless use of getlogin in void context at - line 13.
 455 ########
 456 # op.c
 457 use warning 'void' ;
 458 use Config ; BEGIN {
 459 if ( ! $Config{d_socket}) {
 460     print <<EOM ;
 461 SKIPPED
 462 # getsockname not present
 463 # getpeername not present
 464 # gethostbyname not present
 465 # gethostbyaddr not present
 466 # gethostent not present
 467 # getnetbyname not present
 468 # getnetbyaddr not present
 469 # getnetent not present
 470 # getprotobyname not present
 471 # getprotobynumber not present
 472 # getprotoent not present
 473 # getservbyname not present
 474 # getservbyport not present
 475 # getservent not present
 476 EOM
 477     exit
 478 } }
 479 getsockname STDIN ;     # OP_GETSOCKNAME
 480 getpeername STDIN ;     # OP_GETPEERNAME
 481 gethostbyname 1 ;       # OP_GHBYNAME
 482 gethostbyaddr 1,2;      # OP_GHBYADDR
 483 gethostent ;            # OP_GHOSTENT
 484 getnetbyname 1 ;        # OP_GNBYNAME
 485 getnetbyaddr 1,2 ;      # OP_GNBYADDR
 486 getnetent ;             # OP_GNETENT
 487 getprotobyname 1;       # OP_GPBYNAME
 488 getprotobynumber 1;     # OP_GPBYNUMBER
 489 getprotoent ;           # OP_GPROTOENT
 490 getservbyname 1,2;      # OP_GSBYNAME
 491 getservbyport 1,2;      # OP_GSBYPORT
 492 getservent ;            # OP_GSERVENT
 493
 494 no warning 'void' ;
 495 getsockname STDIN ;     # OP_GETSOCKNAME
 496 getpeername STDIN ;     # OP_GETPEERNAME
 497 gethostbyname 1 ;       # OP_GHBYNAME
 498 gethostbyaddr 1,2;      # OP_GHBYADDR
 499 gethostent ;            # OP_GHOSTENT
 500 getnetbyname 1 ;        # OP_GNBYNAME
 501 getnetbyaddr 1,2 ;      # OP_GNBYADDR
 502 getnetent ;             # OP_GNETENT
 503 getprotobyname 1;       # OP_GPBYNAME
 504 getprotobynumber 1;     # OP_GPBYNUMBER
 505 getprotoent ;           # OP_GPROTOENT
 506 getservbyname 1,2;      # OP_GSBYNAME
 507 getservbyport 1,2;      # OP_GSBYPORT
 508 getservent ;            # OP_GSERVENT
 509 INIT {
 510    # some functions may not be there, so we exit without running
 511    exit;
 512 }
 513 EXPECT
 514 Useless use of getsockname in void context at - line 24.
 515 Useless use of getpeername in void context at - line 25.
 516 Useless use of gethostbyname in void context at - line 26.
 517 Useless use of gethostbyaddr in void context at - line 27.
 518 Useless use of gethostent in void context at - line 28.
 519 Useless use of getnetbyname in void context at - line 29.
 520 Useless use of getnetbyaddr in void context at - line 30.
 521 Useless use of getnetent in void context at - line 31.
 522 Useless use of getprotobyname in void context at - line 32.
 523 Useless use of getprotobynumber in void context at - line 33.
 524 Useless use of getprotoent in void context at - line 34.
 525 Useless use of getservbyname in void context at - line 35.
 526 Useless use of getservbyport in void context at - line 36.
 527 Useless use of getservent in void context at - line 37.
 528 ########
 529 # op.c
 530 use warning 'void' ;
 531 *a ; # OP_RV2GV
 532 $a ; # OP_RV2SV
 533 @a ; # OP_RV2AV
 534 %a ; # OP_RV2HV
 535 no warning 'void' ;
 536 *a ; # OP_RV2GV
 537 $a ; # OP_RV2SV
 538 @a ; # OP_RV2AV
 539 %a ; # OP_RV2HV
 540 EXPECT
 541 Useless use of a variable in void context at - line 3.
 542 Useless use of a variable in void context at - line 4.
 543 Useless use of a variable in void context at - line 5.
 544 Useless use of a variable in void context at - line 6.
 545 ########
 546 # op.c
 547 use warning 'void' ;
 548 "abc"; # OP_CONST
 549 7 ; # OP_CONST
 550 no warning 'void' ;
 551 "abc"; # OP_CONST
 552 7 ; # OP_CONST
 553 EXPECT
 554 Useless use of a constant in void context at - line 3.
 555 Useless use of a constant in void context at - line 4.
 556 ########
 557 # op.c
 558 $ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3; # known scalar leak
 559 use warning 'unsafe' ;
 560 my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;
 561 @a =~ /abc/ ;
 562 @a =~ s/a/b/ ;
 563 @a =~ tr/a/b/ ;
 564 @$b =~ /abc/ ;
 565 @$b =~ s/a/b/ ;
 566 @$b =~ tr/a/b/ ;
 567 %a =~ /abc/ ;
 568 %a =~ s/a/b/ ;
 569 %a =~ tr/a/b/ ;
 570 %$c =~ /abc/ ;
 571 %$c =~ s/a/b/ ;
 572 %$c =~ tr/a/b/ ;
 573 {
 574 no warning 'unsafe' ;
 575 my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;
 576 @a =~ /abc/ ;
 577 @a =~ s/a/b/ ;
 578 @a =~ tr/a/b/ ;
 579 @$b =~ /abc/ ;
 580 @$b =~ s/a/b/ ;
 581 @$b =~ tr/a/b/ ;
 582 %a =~ /abc/ ;
 583 %a =~ s/a/b/ ;
 584 %a =~ tr/a/b/ ;
 585 %$c =~ /abc/ ;
 586 %$c =~ s/a/b/ ;
 587 %$c =~ tr/a/b/ ;
 588 }
 589 EXPECT
 590 Applying pattern match to @array will act on scalar(@array) at - line 5.
 591 Applying substitution to @array will act on scalar(@array) at - line 6.
 592 Can't modify private array in substitution at - line 6, near "s/a/b/ ;"
 593 Applying character translation to @array will act on scalar(@array) at - line 7.
 594 Applying pattern match to @array will act on scalar(@array) at - line 8.
 595 Applying substitution to @array will act on scalar(@array) at - line 9.
 596 Applying character translation to @array will act on scalar(@array) at - line 10.
 597 Applying pattern match to %hash will act on scalar(%hash) at - line 11.
 598 Applying substitution to %hash will act on scalar(%hash) at - line 12.
 599 Applying character translation to %hash will act on scalar(%hash) at - line 13.
 600 Applying pattern match to %hash will act on scalar(%hash) at - line 14.
 601 Applying substitution to %hash will act on scalar(%hash) at - line 15.
 602 Applying character translation to %hash will act on scalar(%hash) at - line 16.
 603 BEGIN not safe after errors--compilation aborted at - line 18.
 604 ########
 605 # op.c
 606 use warning 'syntax' ;
 607 my $a, $b = (1,2);
 608 no warning 'syntax' ;
 609 my $c, $d = (1,2);
 610 EXPECT
 611 Parentheses missing around "my" list at - line 3.
 612 ########
 613 # op.c
 614 use warning 'syntax' ;
 615 local $a, $b = (1,2);
 616 no warning 'syntax' ;
 617 local $c, $d = (1,2);
 618 EXPECT
 619 Parentheses missing around "local" list at - line 3.
 620 ########
 621 # op.c
 622 use warning 'syntax' ;
 623 print (ABC || 1) ;
 624 no warning 'syntax' ;
 625 print (ABC || 1) ;
 626 EXPECT
 627 Probable precedence problem on logical or at - line 3.
 628 ########
 629 --FILE-- abc
 630
 631 --FILE--
 632 # op.c
 633 use warning 'unsafe' ;
 634 open FH, "<abc" ;
 635 $x = 1 if $x = <FH> ;
 636 no warning 'unsafe' ;
 637 $x = 1 if $x = <FH> ;
 638 EXPECT
 639 Value of <HANDLE> construct can be "0"; test with defined() at - line 4.
 640 ########
 641 # op.c
 642 use warning 'unsafe' ;
 643 opendir FH, "." ;
 644 $x = 1 if $x = readdir FH ;
 645 no warning 'unsafe' ;
 646 $x = 1 if $x = readdir FH ;
 647 closedir FH ;
 648 EXPECT
 649 Value of readdir() operator can be "0"; test with defined() at - line 4.
 650 ########
 651 # op.c
 652 use warning 'unsafe' ;
 653 $x = 1 if $x = <*> ;
 654 no warning 'unsafe' ;
 655 $x = 1 if $x = <*> ;
 656 EXPECT
 657 Value of glob construct can be "0"; test with defined() at - line 3.
 658 ########
 659 # op.c
 660 use warning 'unsafe' ;
 661 %a = (1,2,3,4) ;
 662 $x = 1 if $x = each %a ;
 663 no warning 'unsafe' ;
 664 $x = 1 if $x = each %a ;
 665 EXPECT
 666 Value of each() operator can be "0"; test with defined() at - line 4.
 667 ########
 668 # op.c
 669 use warning 'unsafe' ;
 670 $x = 1 while $x = <*> and 0 ;
 671 no warning 'unsafe' ;
 672 $x = 1 while $x = <*> and 0 ;
 673 EXPECT
 674 Value of glob construct can be "0"; test with defined() at - line 3.
 675 ########
 676 # op.c
 677 use warning 'unsafe' ;
 678 opendir FH, "." ;
 679 $x = 1 while $x = readdir FH and 0 ;
 680 no warning 'unsafe' ;
 681 $x = 1 while $x = readdir FH and 0 ;
 682 closedir FH ;
 683 EXPECT
 684 Value of readdir() operator can be "0"; test with defined() at - line 4.
 685 ########
 686 # op.c
 687 use warning 'redefine' ;
 688 sub fred {}
 689 sub fred {}
 690 no warning 'redefine' ;
 691 sub fred {}
 692 EXPECT
 693 Subroutine fred redefined at - line 4.
 694 ########
 695 # op.c
 696 use warning 'redefine' ;
 697 sub fred () { 1 }
 698 sub fred () { 1 }
 699 no warning 'redefine' ;
 700 sub fred () { 1 }
 701 EXPECT
 702 Constant subroutine fred redefined at - line 4.
 703 ########
 704 # op.c
 705 use warning 'redefine' ;
 706 format FRED =
 707 .
 708 format FRED =
 709 .
 710 no warning 'redefine' ;
 711 format FRED =
 712 .
 713 EXPECT
 714 Format FRED redefined at - line 5.
 715 ########
 716 # op.c
 717 use warning 'syntax' ;
 718 push FRED;
 719 no warning 'syntax' ;
 720 push FRED;
 721 EXPECT
 722 Array @FRED missing the @ in argument 1 of push() at - line 3.
 723 ########
 724 # op.c
 725 use warning 'syntax' ;
 726 @a = keys FRED ;
 727 no warning 'syntax' ;
 728 @a = keys FRED ;
 729 EXPECT
 730 Hash %FRED missing the % in argument 1 of keys() at - line 3.
 731 ########
 732 # op.c
 733 use warning 'syntax' ;
 734 exec "$^X -e 1" ;
 735 my $a
 736 EXPECT
 737 Statement unlikely to be reached at - line 4.
 738 (Maybe you meant system() when you said exec()?)
 739 ########
 740 # op.c
 741 use warning 'deprecated' ;
 742 defined(@a);
 743 EXPECT
 744 defined(@array) is deprecated at - line 3.
 745 (Maybe you should just omit the defined()?)
 746 ########
 747 # op.c
 748 use warning 'deprecated' ;
 749 my @a; defined(@a);
 750 EXPECT
 751 defined(@array) is deprecated at - line 3.
 752 (Maybe you should just omit the defined()?)
 753 ########
 754 # op.c
 755 use warning 'deprecated' ;
 756 defined(@a = (1,2,3));
 757 EXPECT
 758 defined(@array) is deprecated at - line 3.
 759 (Maybe you should just omit the defined()?)
 760 ########
 761 # op.c
 762 use warning 'deprecated' ;
 763 defined(%h);
 764 EXPECT
 765 defined(%hash) is deprecated at - line 3.
 766 (Maybe you should just omit the defined()?)
 767 ########
 768 # op.c
 769 use warning 'deprecated' ;
 770 my %h; defined(%h);
 771 EXPECT
 772 defined(%hash) is deprecated at - line 3.
 773 (Maybe you should just omit the defined()?)
 774 ########
 775 # op.c
 776 no warning 'syntax' ;
 777 exec "$^X -e 1" ;
 778 my $a
 779 EXPECT
 780
 781 ########
 782 # op.c
 783 sub fred();
 784 sub fred($) {}
 785 EXPECT
 786 Prototype mismatch: sub main::fred () vs ($) at - line 3.
 787 ########
 788 # op.c
 789 $^W = 0 ;
 790 sub fred() ;
 791 sub fred($) {}
 792 {
 793     no warning 'unsafe' ;
 794     sub Fred() ;
 795     sub Fred($) {}
 796     use warning 'unsafe' ;
 797     sub freD() ;
 798     sub freD($) {}
 799 }
 800 sub FRED() ;
 801 sub FRED($) {}
 802 EXPECT
 803 Prototype mismatch: sub main::fred () vs ($) at - line 4.
 804 Prototype mismatch: sub main::freD () vs ($) at - line 11.
 805 Prototype mismatch: sub main::FRED () vs ($) at - line 14.