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
  91 __END__
  92 # op.c
  93 use warning 'unsafe' ;
  94 my $x ;
  95 my $x ;
  96 EXPECT
  97 "my" variable $x masks earlier declaration in same scope at - line 4.
  98 ########
  99 # op.c
 100 use warning 'unsafe' ;
 101 sub x {
 102       my $x;
 103       sub y {
 104          $x
 105       }
 106    }
 107 EXPECT
 108 Variable "$x" will not stay shared at - line 7.
 109 ########
 110 # op.c
 111 use warning 'unsafe' ;
 112 sub x {
 113       my $x;
 114       sub y {
 115          sub { $x }
 116       }
 117    }
 118 EXPECT
 119 Variable "$x" may be unavailable at - line 6.
 120 ########
 121 # op.c
 122 use warning 'syntax' ;
 123 1 if $a = 1 ;
 124 EXPECT
 125 Found = in conditional, should be == at - line 3.
 126 ########
 127 # op.c
 128 use warning 'deprecated' ;
 129 split ;
 130 EXPECT
 131 Use of implicit split to @_ is deprecated at - line 3.
 132 ########
 133 # op.c
 134 use warning 'deprecated' ;
 135 $a = split ;
 136 EXPECT
 137 Use of implicit split to @_ is deprecated at - line 3.
 138 ########
 139 # op.c
 140 use warning 'void' ; close STDIN ;
 141 1 x 3 ;                 # OP_REPEAT
 142                         # OP_GVSV
 143 wantarray ;             # OP_WANTARRAY
 144                         # OP_GV
 145                         # OP_PADSV
 146                         # OP_PADAV
 147                         # OP_PADHV
 148                         # OP_PADANY
 149                         # OP_AV2ARYLEN
 150 ref ;                   # OP_REF
 151 \@a ;                   # OP_REFGEN
 152 \$a ;                   # OP_SREFGEN
 153 defined $a ;            # OP_DEFINED
 154 hex $a ;                # OP_HEX
 155 oct $a ;                # OP_OCT
 156 length $a ;             # OP_LENGTH
 157 substr $a,1 ;           # OP_SUBSTR
 158 vec $a,1,2 ;            # OP_VEC
 159 index $a,1,2 ;          # OP_INDEX
 160 rindex $a,1,2 ;         # OP_RINDEX
 161 sprintf $a ;            # OP_SPRINTF
 162 $a[0] ;                 # OP_AELEM
 163                         # OP_AELEMFAST
 164 @a[0] ;                 # OP_ASLICE
 165 #values %a ;            # OP_VALUES
 166 #keys %a ;              # OP_KEYS
 167 $a{0} ;                 # OP_HELEM
 168 @a{0} ;                 # OP_HSLICE
 169 unpack "a", "a" ;       # OP_UNPACK
 170 pack $a,"" ;            # OP_PACK
 171 join "" ;               # OP_JOIN
 172 (@a)[0,1] ;             # OP_LSLICE
 173                         # OP_ANONLIST
 174                         # OP_ANONHASH
 175 sort(1,2) ;             # OP_SORT
 176 reverse(1,2) ;          # OP_REVERSE
 177                         # OP_RANGE
 178                         # OP_FLIP
 179 (1 ..2) ;               # OP_FLOP
 180 caller ;                # OP_CALLER
 181 fileno STDIN ;          # OP_FILENO
 182 eof STDIN ;             # OP_EOF
 183 tell STDIN ;            # OP_TELL
 184 readlink 1;             # OP_READLINK
 185 time ;                  # OP_TIME
 186 localtime ;             # OP_LOCALTIME
 187 gmtime ;                # OP_GMTIME
 188 eval { getgrnam 1 };    # OP_GGRNAM
 189 eval { getgrgid 1 };    # OP_GGRGID
 190 eval { getpwnam 1 };    # OP_GPWNAM
 191 eval { getpwuid 1 };    # OP_GPWUID
 192 EXPECT
 193 Useless use of repeat in void context at - line 3.
 194 Useless use of wantarray in void context at - line 5.
 195 Useless use of reference-type operator in void context at - line 12.
 196 Useless use of reference constructor in void context at - line 13.
 197 Useless use of scalar ref constructor in void context at - line 14.
 198 Useless use of defined operator in void context at - line 15.
 199 Useless use of hex in void context at - line 16.
 200 Useless use of oct in void context at - line 17.
 201 Useless use of length in void context at - line 18.
 202 Useless use of substr in void context at - line 19.
 203 Useless use of vec in void context at - line 20.
 204 Useless use of index in void context at - line 21.
 205 Useless use of rindex in void context at - line 22.
 206 Useless use of sprintf in void context at - line 23.
 207 Useless use of array element in void context at - line 24.
 208 Useless use of array slice in void context at - line 26.
 209 Useless use of hash elem in void context at - line 29.
 210 Useless use of hash slice in void context at - line 30.
 211 Useless use of unpack in void context at - line 31.
 212 Useless use of pack in void context at - line 32.
 213 Useless use of join in void context at - line 33.
 214 Useless use of list slice in void context at - line 34.
 215 Useless use of sort in void context at - line 37.
 216 Useless use of reverse in void context at - line 38.
 217 Useless use of range (or flop) in void context at - line 41.
 218 Useless use of caller in void context at - line 42.
 219 Useless use of fileno in void context at - line 43.
 220 Useless use of eof in void context at - line 44.
 221 Useless use of tell in void context at - line 45.
 222 Useless use of readlink in void context at - line 46.
 223 Useless use of time in void context at - line 47.
 224 Useless use of localtime in void context at - line 48.
 225 Useless use of gmtime in void context at - line 49.
 226 Useless use of getgrnam in void context at - line 50.
 227 Useless use of getgrgid in void context at - line 51.
 228 Useless use of getpwnam in void context at - line 52.
 229 Useless use of getpwuid in void context at - line 53.
 230 ########
 231 # op.c
 232 use warning 'void' ;
 233 for (@{[0]}) { "$_" }           # check warning isn't duplicated
 234 EXPECT
 235 Useless use of string in void context at - line 3.
 236 ########
 237 # op.c
 238 use warning 'void' ;
 239 use Config ;
 240 BEGIN {
 241     if ( ! $Config{d_telldir}) {
 242         print <<EOM ;
 243 SKIPPED
 244 # telldir not present
 245 EOM
 246         exit
 247     }
 248 }
 249 telldir 1 ;             # OP_TELLDIR
 250 EXPECT
 251 Useless use of telldir in void context at - line 13.
 252 ########
 253 # op.c
 254 use warning 'void' ;
 255 use Config ;
 256 BEGIN {
 257     if ( ! $Config{d_getppid}) {
 258         print <<EOM ;
 259 SKIPPED
 260 # getppid not present
 261 EOM
 262         exit
 263     }
 264 }
 265 getppid ;               # OP_GETPPID
 266 EXPECT
 267 Useless use of getppid in void context at - line 13.
 268 ########
 269 # op.c
 270 use warning 'void' ;
 271 use Config ;
 272 BEGIN {
 273     if ( ! $Config{d_getpgrp}) {
 274         print <<EOM ;
 275 SKIPPED
 276 # getpgrp not present
 277 EOM
 278         exit
 279     }
 280 }
 281 getpgrp ;               # OP_GETPGRP
 282 EXPECT
 283 Useless use of getpgrp in void context at - line 13.
 284 ########
 285 # op.c
 286 use warning 'void' ;
 287 use Config ;
 288 BEGIN {
 289     if ( ! $Config{d_times}) {
 290         print <<EOM ;
 291 SKIPPED
 292 # times not present
 293 EOM
 294         exit
 295     }
 296 }
 297 times ;                 # OP_TMS
 298 EXPECT
 299 Useless use of times in void context at - line 13.
 300 ########
 301 # op.c
 302 use warning 'void' ;
 303 use Config ;
 304 BEGIN {
 305     if ( ! $Config{d_getprior} or $^O eq 'os2') { # Locks before fixpak22
 306         print <<EOM ;
 307 SKIPPED
 308 # getpriority not present
 309 EOM
 310         exit
 311     }
 312 }
 313 getpriority 1,2;        # OP_GETPRIORITY
 314 EXPECT
 315 Useless use of getpriority in void context at - line 13.
 316 ########
 317 # op.c
 318 use warning 'void' ;
 319 use Config ;
 320 BEGIN {
 321     if ( ! $Config{d_getlogin}) {
 322         print <<EOM ;
 323 SKIPPED
 324 # getlogin not present
 325 EOM
 326         exit
 327     }
 328 }
 329 getlogin ;                      # OP_GETLOGIN
 330 EXPECT
 331 Useless use of getlogin in void context at - line 13.
 332 ########
 333 # op.c
 334 use warning 'void' ;
 335 use Config ; BEGIN {
 336 if ( ! $Config{d_socket}) {
 337     print <<EOM ;
 338 SKIPPED
 339 # getsockname not present
 340 # getpeername not present
 341 # gethostbyname not present
 342 # gethostbyaddr not present
 343 # gethostent not present
 344 # getnetbyname not present
 345 # getnetbyaddr not present
 346 # getnetent not present
 347 # getprotobyname not present
 348 # getprotobynumber not present
 349 # getprotoent not present
 350 # getservbyname not present
 351 # getservbyport not present
 352 # getservent not present
 353 EOM
 354     exit
 355 } }
 356 getsockname STDIN ;     # OP_GETSOCKNAME
 357 getpeername STDIN ;     # OP_GETPEERNAME
 358 gethostbyname 1 ;       # OP_GHBYNAME
 359 gethostbyaddr 1,2;      # OP_GHBYADDR
 360 gethostent ;            # OP_GHOSTENT
 361 getnetbyname 1 ;        # OP_GNBYNAME
 362 getnetbyaddr 1,2 ;      # OP_GNBYADDR
 363 getnetent ;             # OP_GNETENT
 364 getprotobyname 1;       # OP_GPBYNAME
 365 getprotobynumber 1;     # OP_GPBYNUMBER
 366 getprotoent ;           # OP_GPROTOENT
 367 getservbyname 1,2;      # OP_GSBYNAME
 368 getservbyport 1,2;      # OP_GSBYPORT
 369 getservent ;            # OP_GSERVENT
 370 INIT {
 371    # some functions may not be there, so we exit without running
 372    exit;
 373 }
 374 EXPECT
 375 Useless use of getsockname in void context at - line 24.
 376 Useless use of getpeername in void context at - line 25.
 377 Useless use of gethostbyname in void context at - line 26.
 378 Useless use of gethostbyaddr in void context at - line 27.
 379 Useless use of gethostent in void context at - line 28.
 380 Useless use of getnetbyname in void context at - line 29.
 381 Useless use of getnetbyaddr in void context at - line 30.
 382 Useless use of getnetent in void context at - line 31.
 383 Useless use of getprotobyname in void context at - line 32.
 384 Useless use of getprotobynumber in void context at - line 33.
 385 Useless use of getprotoent in void context at - line 34.
 386 Useless use of getservbyname in void context at - line 35.
 387 Useless use of getservbyport in void context at - line 36.
 388 Useless use of getservent in void context at - line 37.
 389 ########
 390 # op.c
 391 use warning 'void' ;
 392 *a ; # OP_RV2GV
 393 $a ; # OP_RV2SV
 394 @a ; # OP_RV2AV
 395 %a ; # OP_RV2HV
 396 EXPECT
 397 Useless use of a variable in void context at - line 3.
 398 Useless use of a variable in void context at - line 4.
 399 Useless use of a variable in void context at - line 5.
 400 Useless use of a variable in void context at - line 6.
 401 ########
 402 # op.c
 403 use warning 'void' ;
 404 "abc"; # OP_CONST
 405 7 ; # OP_CONST
 406 EXPECT
 407 Useless use of a constant in void context at - line 3.
 408 Useless use of a constant in void context at - line 4.
 409 ########
 410 # op.c
 411 use warning 'unsafe' ;
 412 my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;
 413 @a =~ /abc/ ;
 414 @a =~ s/a/b/ ;
 415 @a =~ tr/a/b/ ;
 416 @$b =~ /abc/ ;
 417 @$b =~ s/a/b/ ;
 418 @$b =~ tr/a/b/ ;
 419 %a =~ /abc/ ;
 420 %a =~ s/a/b/ ;
 421 %a =~ tr/a/b/ ;
 422 %$c =~ /abc/ ;
 423 %$c =~ s/a/b/ ;
 424 %$c =~ tr/a/b/ ;
 425 EXPECT
 426 Applying pattern match to @array will act on scalar(@array) at - line 4.
 427 Applying substitution to @array will act on scalar(@array) at - line 5.
 428 Can't modify private array in substitution at - line 5, near "s/a/b/ ;"
 429 Applying character translation to @array will act on scalar(@array) at - line 6.
 430 Applying pattern match to @array will act on scalar(@array) at - line 7.
 431 Applying substitution to @array will act on scalar(@array) at - line 8.
 432 Applying character translation to @array will act on scalar(@array) at - line 9.
 433 Applying pattern match to %hash will act on scalar(%hash) at - line 10.
 434 Applying substitution to %hash will act on scalar(%hash) at - line 11.
 435 Applying character translation to %hash will act on scalar(%hash) at - line 12.
 436 Applying pattern match to %hash will act on scalar(%hash) at - line 13.
 437 Applying substitution to %hash will act on scalar(%hash) at - line 14.
 438 Applying character translation to %hash will act on scalar(%hash) at - line 15.
 439 Execution of - aborted due to compilation errors.
 440 ########
 441 # op.c
 442 use warning 'syntax' ;
 443 my $a, $b = (1,2);
 444 EXPECT
 445 Parentheses missing around "my" list at - line 3.
 446 ########
 447 # op.c
 448 use warning 'syntax' ;
 449 local $a, $b = (1,2);
 450 EXPECT
 451 Parentheses missing around "local" list at - line 3.
 452 ########
 453 # op.c
 454 use warning 'syntax' ;
 455 print (ABC || 1) ;
 456 EXPECT
 457 Probable precedence problem on logical or at - line 3.
 458 ########
 459 --FILE-- abc
 460
 461 --FILE--
 462 # op.c
 463 use warning 'unsafe' ;
 464 open FH, "<abc" ;
 465 $x = 1 if $x = <FH> ;
 466 EXPECT
 467 Value of <HANDLE> construct can be "0"; test with defined() at - line 4.
 468 ########
 469 # op.c
 470 use warning 'unsafe' ;
 471 opendir FH, "." ;
 472 $x = 1 if $x = readdir FH ;
 473 closedir FH ;
 474 EXPECT
 475 Value of readdir() operator can be "0"; test with defined() at - line 4.
 476 ########
 477 # op.c
 478 use warning 'unsafe' ;
 479 $x = 1 if $x = <*> ;
 480 EXPECT
 481 Value of glob construct can be "0"; test with defined() at - line 3.
 482 ########
 483 # op.c
 484 use warning 'unsafe' ;
 485 %a = (1,2,3,4) ;
 486 $x = 1 if $x = each %a ;
 487 EXPECT
 488 Value of each() operator can be "0"; test with defined() at - line 4.
 489 ########
 490 # op.c
 491 use warning 'unsafe' ;
 492 $x = 1 while $x = <*> and 0 ;
 493 EXPECT
 494 Value of glob construct can be "0"; test with defined() at - line 3.
 495 ########
 496 # op.c
 497 use warning 'unsafe' ;
 498 opendir FH, "." ;
 499 $x = 1 while $x = readdir FH and 0 ;
 500 closedir FH ;
 501 EXPECT
 502 Value of readdir() operator can be "0"; test with defined() at - line 4.
 503 ########
 504 # op.c
 505 use warning 'redefine' ;
 506 sub fred {}
 507 sub fred {}
 508 EXPECT
 509 Subroutine fred redefined at - line 4.
 510 ########
 511 # op.c
 512 use warning 'redefine' ;
 513 sub fred () { 1 }
 514 sub fred () { 1 }
 515 EXPECT
 516 Constant subroutine fred redefined at - line 4.
 517 ########
 518 # op.c
 519 use warning 'redefine' ;
 520 format FRED =
 521 .
 522 format FRED =
 523 .
 524 EXPECT
 525 Format FRED redefined at - line 5.
 526 ########
 527 # op.c
 528 use warning 'syntax' ;
 529 push FRED;
 530 EXPECT
 531 Array @FRED missing the @ in argument 1 of push() at - line 3.
 532 ########
 533 # op.c
 534 use warning 'syntax' ;
 535 @a = keys FRED ;
 536 EXPECT
 537 Hash %FRED missing the % in argument 1 of keys() at - line 3.
 538 ########
 539 # op.c
 540 use warning 'syntax' ;
 541 exec "$^X -e 1" ;
 542 my $a
 543 EXPECT
 544 Statement unlikely to be reached at - line 4.
 545 (Maybe you meant system() when you said exec()?)