3 "my" variable %s masks earlier declaration in same scope
7 Variable "%s" may be unavailable
15 Variable "%s" will not stay shared
23 Found = in conditional, should be ==
26 Use of implicit split to @_ is deprecated
29 Use of implicit split to @_ is deprecated
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
39 Applying %s to %s will act on scalar(%s)
40 my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;
55 Parentheses missing around "my" list at -e line 1.
58 Parentheses missing around "local" list at -e line 1.
61 Bareword found in conditional at -e line 1.
62 use warnings 'bareword'; my $x = print(ABC || 1);
64 Value of %s may be \"0\"; use \"defined\"
66 $x = 1 while $x = <FH> ;
68 Subroutine fred redefined at -e line 1.
69 sub fred{1;} sub fred{1;}
71 Constant subroutine %s redefined
72 sub fred() {1;} sub fred() {1;}
74 Format FRED redefined at /tmp/x line 5.
80 Array @%s missing the @ in argument %d of %s()
83 Hash %%%s missing the %% in argument %d of %s()
86 Statement unlikely to be reached
87 (Maybe you meant system() when you said exec()?
90 defined(@array) is deprecated
91 (Maybe you should just omit the defined()?)
93 defined (@a = (1,2,3)) ;
95 defined(%hash) is deprecated
96 (Maybe you should just omit the defined()?)
99 /---/ should probably be written as "---"
102 %s() called too early to check prototype [Perl_peep]
103 fred() ; sub fred ($$) {}
108 Prototype mismatch: [cv_ckproto]
112 %s never introduced [pad_leavemy] TODO
113 Runaway prototype [newSUB] TODO
114 oops: oopsAV [oopsAV] TODO
115 oops: oopsHV [oopsHV] TODO
120 use warnings 'misc' ;
126 "my" variable $x masks earlier declaration in same scope at - line 4.
129 use warnings 'closure' ;
137 Variable "$x" will not stay shared at - line 7.
140 no warnings 'closure' ;
151 use warnings 'closure' ;
162 use warnings 'closure' ;
170 Variable "$x" may be unavailable at - line 6.
173 no warnings 'closure' ;
184 use warnings 'syntax' ;
186 no warnings 'syntax' ;
189 Found = in conditional, should be == at - line 3.
192 use warnings 'deprecated' ;
194 no warnings 'deprecated' ;
197 Use of implicit split to @_ is deprecated at - line 3.
200 use warnings 'deprecated' ;
202 no warnings 'deprecated' ;
205 Use of implicit split to @_ is deprecated at - line 3.
208 use warnings 'void' ; close STDIN ;
211 wantarray ; # OP_WANTARRAY
221 defined $a ; # OP_DEFINED
224 length $a ; # OP_LENGTH
225 substr $a,1 ; # OP_SUBSTR
226 vec $a,1,2 ; # OP_VEC
227 index $a,1,2 ; # OP_INDEX
228 rindex $a,1,2 ; # OP_RINDEX
229 sprintf $a ; # OP_SPRINTF
233 #values %a ; # OP_VALUES
237 unpack "a", "a" ; # OP_UNPACK
238 pack $a,"" ; # OP_PACK
240 (@a)[0,1] ; # OP_LSLICE
243 sort(1,2) ; # OP_SORT
244 reverse(1,2) ; # OP_REVERSE
249 fileno STDIN ; # OP_FILENO
251 tell STDIN ; # OP_TELL
252 readlink 1; # OP_READLINK
254 localtime ; # OP_LOCALTIME
256 eval { getgrnam 1 }; # OP_GGRNAM
257 eval { getgrgid 1 }; # OP_GGRGID
258 eval { getpwnam 1 }; # OP_GPWNAM
259 eval { getpwuid 1 }; # OP_GPWUID
261 Useless use of repeat (x) in void context at - line 3.
262 Useless use of wantarray in void context at - line 5.
263 Useless use of reference-type operator in void context at - line 12.
264 Useless use of reference constructor in void context at - line 13.
265 Useless use of single ref constructor in void context at - line 14.
266 Useless use of defined operator in void context at - line 15.
267 Useless use of hex in void context at - line 16.
268 Useless use of oct in void context at - line 17.
269 Useless use of length in void context at - line 18.
270 Useless use of substr in void context at - line 19.
271 Useless use of vec in void context at - line 20.
272 Useless use of index in void context at - line 21.
273 Useless use of rindex in void context at - line 22.
274 Useless use of sprintf in void context at - line 23.
275 Useless use of array element in void context at - line 24.
276 Useless use of array slice in void context at - line 26.
277 Useless use of hash element in void context at - line 29.
278 Useless use of hash slice in void context at - line 30.
279 Useless use of unpack in void context at - line 31.
280 Useless use of pack in void context at - line 32.
281 Useless use of join or string in void context at - line 33.
282 Useless use of list slice in void context at - line 34.
283 Useless use of sort in void context at - line 37.
284 Useless use of reverse in void context at - line 38.
285 Useless use of range (or flop) in void context at - line 41.
286 Useless use of caller in void context at - line 42.
287 Useless use of fileno in void context at - line 43.
288 Useless use of eof in void context at - line 44.
289 Useless use of tell in void context at - line 45.
290 Useless use of readlink in void context at - line 46.
291 Useless use of time in void context at - line 47.
292 Useless use of localtime in void context at - line 48.
293 Useless use of gmtime in void context at - line 49.
294 Useless use of getgrnam in void context at - line 50.
295 Useless use of getgrgid in void context at - line 51.
296 Useless use of getpwnam in void context at - line 52.
297 Useless use of getpwuid in void context at - line 53.
300 no warnings 'void' ; close STDIN ;
303 wantarray ; # OP_WANTARRAY
313 defined $a ; # OP_DEFINED
316 length $a ; # OP_LENGTH
317 substr $a,1 ; # OP_SUBSTR
318 vec $a,1,2 ; # OP_VEC
319 index $a,1,2 ; # OP_INDEX
320 rindex $a,1,2 ; # OP_RINDEX
321 sprintf $a ; # OP_SPRINTF
325 #values %a ; # OP_VALUES
329 unpack "a", "a" ; # OP_UNPACK
330 pack $a,"" ; # OP_PACK
332 (@a)[0,1] ; # OP_LSLICE
335 sort(1,2) ; # OP_SORT
336 reverse(1,2) ; # OP_REVERSE
341 fileno STDIN ; # OP_FILENO
343 tell STDIN ; # OP_TELL
344 readlink 1; # OP_READLINK
346 localtime ; # OP_LOCALTIME
348 eval { getgrnam 1 }; # OP_GGRNAM
349 eval { getgrgid 1 }; # OP_GGRGID
350 eval { getpwnam 1 }; # OP_GPWNAM
351 eval { getpwuid 1 }; # OP_GPWUID
355 use warnings 'void' ;
356 for (@{[0]}) { "$_" } # check warning isn't duplicated
358 for (@{[0]}) { "$_" } # check warning isn't duplicated
360 Useless use of string in void context at - line 3.
363 use warnings 'void' ;
366 if ( ! $Config{d_telldir}) {
369 # telldir not present
374 telldir 1 ; # OP_TELLDIR
376 telldir 1 ; # OP_TELLDIR
378 Useless use of telldir in void context at - line 13.
381 use warnings 'void' ;
384 if ( ! $Config{d_getppid}) {
387 # getppid not present
392 getppid ; # OP_GETPPID
394 getppid ; # OP_GETPPID
396 Useless use of getppid in void context at - line 13.
399 use warnings 'void' ;
402 if ( ! $Config{d_getpgrp}) {
405 # getpgrp not present
410 getpgrp ; # OP_GETPGRP
412 getpgrp ; # OP_GETPGRP
414 Useless use of getpgrp in void context at - line 13.
417 use warnings 'void' ;
420 if ( ! $Config{d_times}) {
432 Useless use of times in void context at - line 13.
435 use warnings 'void' ;
438 if ( ! $Config{d_getprior} or $^O eq 'os2') { # Locks before fixpak22
441 # getpriority not present
446 getpriority 1,2; # OP_GETPRIORITY
448 getpriority 1,2; # OP_GETPRIORITY
450 Useless use of getpriority in void context at - line 13.
453 use warnings 'void' ;
456 if ( ! $Config{d_getlogin}) {
459 # getlogin not present
464 getlogin ; # OP_GETLOGIN
466 getlogin ; # OP_GETLOGIN
468 Useless use of getlogin in void context at - line 13.
471 use warnings 'void' ;
473 if ( ! $Config{d_socket}) {
476 # getsockname not present
477 # getpeername not present
478 # gethostbyname not present
479 # gethostbyaddr not present
480 # gethostent not present
481 # getnetbyname not present
482 # getnetbyaddr not present
483 # getnetent not present
484 # getprotobyname not present
485 # getprotobynumber not present
486 # getprotoent not present
487 # getservbyname not present
488 # getservbyport not present
489 # getservent not present
493 getsockname STDIN ; # OP_GETSOCKNAME
494 getpeername STDIN ; # OP_GETPEERNAME
495 gethostbyname 1 ; # OP_GHBYNAME
496 gethostbyaddr 1,2; # OP_GHBYADDR
497 gethostent ; # OP_GHOSTENT
498 getnetbyname 1 ; # OP_GNBYNAME
499 getnetbyaddr 1,2 ; # OP_GNBYADDR
500 getnetent ; # OP_GNETENT
501 getprotobyname 1; # OP_GPBYNAME
502 getprotobynumber 1; # OP_GPBYNUMBER
503 getprotoent ; # OP_GPROTOENT
504 getservbyname 1,2; # OP_GSBYNAME
505 getservbyport 1,2; # OP_GSBYPORT
506 getservent ; # OP_GSERVENT
509 getsockname STDIN ; # OP_GETSOCKNAME
510 getpeername STDIN ; # OP_GETPEERNAME
511 gethostbyname 1 ; # OP_GHBYNAME
512 gethostbyaddr 1,2; # OP_GHBYADDR
513 gethostent ; # OP_GHOSTENT
514 getnetbyname 1 ; # OP_GNBYNAME
515 getnetbyaddr 1,2 ; # OP_GNBYADDR
516 getnetent ; # OP_GNETENT
517 getprotobyname 1; # OP_GPBYNAME
518 getprotobynumber 1; # OP_GPBYNUMBER
519 getprotoent ; # OP_GPROTOENT
520 getservbyname 1,2; # OP_GSBYNAME
521 getservbyport 1,2; # OP_GSBYPORT
522 getservent ; # OP_GSERVENT
524 # some functions may not be there, so we exit without running
528 Useless use of getsockname in void context at - line 24.
529 Useless use of getpeername in void context at - line 25.
530 Useless use of gethostbyname in void context at - line 26.
531 Useless use of gethostbyaddr in void context at - line 27.
532 Useless use of gethostent in void context at - line 28.
533 Useless use of getnetbyname in void context at - line 29.
534 Useless use of getnetbyaddr in void context at - line 30.
535 Useless use of getnetent in void context at - line 31.
536 Useless use of getprotobyname in void context at - line 32.
537 Useless use of getprotobynumber in void context at - line 33.
538 Useless use of getprotoent in void context at - line 34.
539 Useless use of getservbyname in void context at - line 35.
540 Useless use of getservbyport in void context at - line 36.
541 Useless use of getservent in void context at - line 37.
544 use warnings 'void' ;
555 Useless use of a variable in void context at - line 3.
556 Useless use of a variable in void context at - line 4.
557 Useless use of a variable in void context at - line 5.
558 Useless use of a variable in void context at - line 6.
561 use warnings 'void' ;
568 Useless use of a constant in void context at - line 3.
569 Useless use of a constant in void context at - line 4.
572 BEGIN{ $ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3; } # known scalar leak
573 use warnings 'misc' ;
574 my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;
589 my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;
604 Applying pattern match (m//) to @array will act on scalar(@array) at - line 5.
605 Applying substitution (s///) to @array will act on scalar(@array) at - line 6.
606 Applying transliteration (tr///) to @array will act on scalar(@array) at - line 7.
607 Applying pattern match (m//) to @array will act on scalar(@array) at - line 8.
608 Applying substitution (s///) to @array will act on scalar(@array) at - line 9.
609 Applying transliteration (tr///) to @array will act on scalar(@array) at - line 10.
610 Applying pattern match (m//) to %hash will act on scalar(%hash) at - line 11.
611 Applying substitution (s///) to %hash will act on scalar(%hash) at - line 12.
612 Applying transliteration (tr///) to %hash will act on scalar(%hash) at - line 13.
613 Applying pattern match (m//) to %hash will act on scalar(%hash) at - line 14.
614 Applying substitution (s///) to %hash will act on scalar(%hash) at - line 15.
615 Applying transliteration (tr///) to %hash will act on scalar(%hash) at - line 16.
616 Can't modify private array in substitution (s///) at - line 6, near "s/a/b/ ;"
617 BEGIN not safe after errors--compilation aborted at - line 18.
620 use warnings 'syntax' ;
622 no warnings 'syntax' ;
625 Parentheses missing around "my" list at - line 3.
628 use warnings 'syntax' ;
629 local $a, $b = (1,2);
630 no warnings 'syntax' ;
631 local $c, $d = (1,2);
633 Parentheses missing around "local" list at - line 3.
636 use warnings 'bareword' ;
638 no warnings 'bareword' ;
641 Bareword found in conditional at - line 3.
647 use warnings 'misc' ;
649 $x = 1 if $x = <FH> ;
651 $x = 1 if $x = <FH> ;
653 Value of <HANDLE> construct can be "0"; test with defined() at - line 4.
656 use warnings 'misc' ;
658 $x = 1 if $x = readdir FH ;
660 $x = 1 if $x = readdir FH ;
663 Value of readdir() operator can be "0"; test with defined() at - line 4.
666 use warnings 'misc' ;
671 Value of glob construct can be "0"; test with defined() at - line 3.
674 use warnings 'misc' ;
676 $x = 1 if $x = each %a ;
678 $x = 1 if $x = each %a ;
680 Value of each() operator can be "0"; test with defined() at - line 4.
683 use warnings 'misc' ;
684 $x = 1 while $x = <*> and 0 ;
686 $x = 1 while $x = <*> and 0 ;
688 Value of glob construct can be "0"; test with defined() at - line 3.
691 use warnings 'misc' ;
693 $x = 1 while $x = readdir FH and 0 ;
695 $x = 1 while $x = readdir FH and 0 ;
698 Value of readdir() operator can be "0"; test with defined() at - line 4.
701 use warnings 'redefine' ;
704 no warnings 'redefine' ;
707 Subroutine fred redefined at - line 4.
710 use warnings 'redefine' ;
713 no warnings 'redefine' ;
716 Constant subroutine fred redefined at - line 4.
719 no warnings 'redefine' ;
723 Constant subroutine fred redefined at - line 4.
726 no warnings 'redefine' ;
728 *fred = sub () { 2 };
730 Constant subroutine fred redefined at - line 4.
733 use warnings 'redefine' ;
738 no warnings 'redefine' ;
742 Format FRED redefined at - line 5.
745 use warnings 'deprecated' ;
747 no warnings 'deprecated' ;
750 Array @FRED missing the @ in argument 1 of push() at - line 3.
753 use warnings 'deprecated' ;
755 no warnings 'deprecated' ;
758 Hash %FRED missing the % in argument 1 of keys() at - line 3.
761 use warnings 'syntax' ;
765 Statement unlikely to be reached at - line 4.
766 (Maybe you meant system() when you said exec()?)
769 use warnings 'deprecated' ;
772 defined(@array) is deprecated at - line 3.
773 (Maybe you should just omit the defined()?)
776 use warnings 'deprecated' ;
777 defined(@a = (1,2,3));
779 defined(@array) is deprecated at - line 3.
780 (Maybe you should just omit the defined()?)
783 use warnings 'deprecated' ;
786 defined(%hash) is deprecated at - line 3.
787 (Maybe you should just omit the defined()?)
790 no warnings 'syntax' ;
800 Prototype mismatch: sub main::fred () vs ($) at - line 3.
807 no warnings 'prototype' ;
810 use warnings 'prototype' ;
817 Prototype mismatch: sub main::fred () vs ($) at - line 4.
818 Prototype mismatch: sub main::freD () vs ($) at - line 11.
819 Prototype mismatch: sub main::FRED () vs ($) at - line 14.
822 use warnings 'syntax' ;
823 join /---/, 'x', 'y', 'z';
825 /---/ should probably be written as "---" at - line 3.
828 use warnings 'prototype' ;
831 no warnings 'prototype' ;
835 main::fred() called too early to check prototype at - line 3.
837 # op.c [Perl_newATTRSUB]
839 use warnings 'void' ;
840 BEGIN { $| = 1; print "in begin\n"; }
841 CHECK { print "in check\n"; }
842 INIT { print "in init\n"; }
843 END { print "in end\n"; }
844 print "in mainline\n";
848 delete $INC{"abc.pm"};
857 Too late to run CHECK block at abc.pm line 3.
858 Too late to run INIT block at abc.pm line 4.
861 Too late to run CHECK block at abc.pm line 3.
862 Too late to run INIT block at abc.pm line 4.
868 # op.c [Perl_newATTRSUB]
871 BEGIN { $| = 1; print "in begin\n"; }
872 CHECK { print "in check\n"; }
873 INIT { print "in init\n"; }
874 END { print "in end\n"; }
875 print "in mainline\n";