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 Useless use of sort in scalar context
42 Applying %s to %s will act on scalar(%s)
43 my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;
58 Parentheses missing around "my" list at -e line 1.
61 Parentheses missing around "local" list at -e line 1.
64 Bareword found in conditional at -e line 1.
65 use warnings 'bareword'; my $x = print(ABC || 1);
67 Value of %s may be \"0\"; use \"defined\"
69 $x = 1 while $x = <FH> ;
71 Subroutine fred redefined at -e line 1.
72 sub fred{1;} sub fred{1;}
74 Constant subroutine %s redefined
75 sub fred() {1;} sub fred() {1;}
77 Format FRED redefined at /tmp/x line 5.
83 Array @%s missing the @ in argument %d of %s()
86 Hash %%%s missing the %% in argument %d of %s()
89 Statement unlikely to be reached
90 (Maybe you meant system() when you said exec()?
93 defined(@array) is deprecated
94 (Maybe you should just omit the defined()?)
96 defined (@a = (1,2,3)) ;
98 defined(%hash) is deprecated
99 (Maybe you should just omit the defined()?)
102 /---/ should probably be written as "---"
105 %s() called too early to check prototype [Perl_peep]
106 fred() ; sub fred ($$) {}
109 Package `%s' not found (did you use the incorrect case?)
111 Use of /g modifier is meaningless in split
113 Possible precedence problem on bitwise %c operator [Perl_ck_bitop]
117 Prototype mismatch: [cv_ckproto]
121 %s never introduced [pad_leavemy] TODO
122 Runaway prototype [newSUB] TODO
123 oops: oopsAV [oopsAV] TODO
124 oops: oopsHV [oopsHV] TODO
128 use warnings 'misc' ;
136 "my" variable $x masks earlier declaration in same scope at - line 4.
137 "my" variable $y masks earlier declaration in same statement at - line 5.
140 use warnings 'closure' ;
148 Variable "$x" will not stay shared at - line 7.
151 no warnings 'closure' ;
162 use warnings 'closure' ;
173 use warnings 'closure' ;
181 Variable "$x" may be unavailable at - line 6.
184 no warnings 'closure' ;
195 use warnings 'syntax' ;
197 no warnings 'syntax' ;
200 Found = in conditional, should be == at - line 3.
203 use warnings 'deprecated' ;
205 no warnings 'deprecated' ;
208 Use of implicit split to @_ is deprecated at - line 3.
211 use warnings 'deprecated' ;
213 no warnings 'deprecated' ;
216 Use of implicit split to @_ is deprecated at - line 3.
219 use warnings 'deprecated';
225 $main::foo = {}; %$main::foo->{"bar"};
226 $foo = {}; %$foo->{"bar"};
227 $main::foo = []; @$main::foo->[34];
228 $foo = []; @$foo->[34];
229 no warnings 'deprecated';
234 $main::foo = {}; %$main::foo->{"bar"};
235 $foo = {}; %$foo->{"bar"};
236 $main::foo = []; @$main::foo->[34];
237 $foo = []; @$foo->[34];
239 Using a hash as a reference is deprecated at - line 4.
240 Using a hash as a reference is deprecated at - line 5.
241 Using an array as a reference is deprecated at - line 6.
242 Using an array as a reference is deprecated at - line 7.
243 Using a hash as a reference is deprecated at - line 8.
244 Using a hash as a reference is deprecated at - line 9.
245 Using an array as a reference is deprecated at - line 10.
246 Using an array as a reference is deprecated at - line 11.
249 use warnings 'void' ; close STDIN ;
252 wantarray ; # OP_WANTARRAY
262 defined $a ; # OP_DEFINED
265 length $a ; # OP_LENGTH
266 substr $a,1 ; # OP_SUBSTR
267 vec $a,1,2 ; # OP_VEC
268 index $a,1,2 ; # OP_INDEX
269 rindex $a,1,2 ; # OP_RINDEX
270 sprintf $a ; # OP_SPRINTF
274 #values %a ; # OP_VALUES
278 unpack "a", "a" ; # OP_UNPACK
279 pack $a,"" ; # OP_PACK
281 (@a)[0,1] ; # OP_LSLICE
284 sort(1,2) ; # OP_SORT
285 reverse(1,2) ; # OP_REVERSE
290 fileno STDIN ; # OP_FILENO
292 tell STDIN ; # OP_TELL
293 readlink 1; # OP_READLINK
295 localtime ; # OP_LOCALTIME
297 eval { getgrnam 1 }; # OP_GGRNAM
298 eval { getgrgid 1 }; # OP_GGRGID
299 eval { getpwnam 1 }; # OP_GPWNAM
300 eval { getpwuid 1 }; # OP_GPWUID
301 prototype "foo"; # OP_PROTOTYPE
303 Useless use of repeat (x) in void context at - line 3.
304 Useless use of wantarray in void context at - line 5.
305 Useless use of reference-type operator in void context at - line 12.
306 Useless use of reference constructor in void context at - line 13.
307 Useless use of single ref constructor in void context at - line 14.
308 Useless use of defined operator in void context at - line 15.
309 Useless use of hex in void context at - line 16.
310 Useless use of oct in void context at - line 17.
311 Useless use of length in void context at - line 18.
312 Useless use of substr in void context at - line 19.
313 Useless use of vec in void context at - line 20.
314 Useless use of index in void context at - line 21.
315 Useless use of rindex in void context at - line 22.
316 Useless use of sprintf in void context at - line 23.
317 Useless use of array element in void context at - line 24.
318 Useless use of array slice in void context at - line 26.
319 Useless use of hash element in void context at - line 29.
320 Useless use of hash slice in void context at - line 30.
321 Useless use of unpack in void context at - line 31.
322 Useless use of pack in void context at - line 32.
323 Useless use of join or string in void context at - line 33.
324 Useless use of list slice in void context at - line 34.
325 Useless use of sort in void context at - line 37.
326 Useless use of reverse in void context at - line 38.
327 Useless use of range (or flop) in void context at - line 41.
328 Useless use of caller in void context at - line 42.
329 Useless use of fileno in void context at - line 43.
330 Useless use of eof in void context at - line 44.
331 Useless use of tell in void context at - line 45.
332 Useless use of readlink in void context at - line 46.
333 Useless use of time in void context at - line 47.
334 Useless use of localtime in void context at - line 48.
335 Useless use of gmtime in void context at - line 49.
336 Useless use of getgrnam in void context at - line 50.
337 Useless use of getgrgid in void context at - line 51.
338 Useless use of getpwnam in void context at - line 52.
339 Useless use of getpwuid in void context at - line 53.
340 Useless use of subroutine prototype in void context at - line 54.
343 use warnings 'void' ; close STDIN ;
344 my $x = sort (2,1,3);
348 Useless use of sort in scalar context at - line 3.
351 no warnings 'void' ; close STDIN ;
354 wantarray ; # OP_WANTARRAY
364 defined $a ; # OP_DEFINED
367 length $a ; # OP_LENGTH
368 substr $a,1 ; # OP_SUBSTR
369 vec $a,1,2 ; # OP_VEC
370 index $a,1,2 ; # OP_INDEX
371 rindex $a,1,2 ; # OP_RINDEX
372 sprintf $a ; # OP_SPRINTF
376 #values %a ; # OP_VALUES
380 unpack "a", "a" ; # OP_UNPACK
381 pack $a,"" ; # OP_PACK
383 (@a)[0,1] ; # OP_LSLICE
386 sort(1,2) ; # OP_SORT
387 reverse(1,2) ; # OP_REVERSE
392 fileno STDIN ; # OP_FILENO
394 tell STDIN ; # OP_TELL
395 readlink 1; # OP_READLINK
397 localtime ; # OP_LOCALTIME
399 eval { getgrnam 1 }; # OP_GGRNAM
400 eval { getgrgid 1 }; # OP_GGRGID
401 eval { getpwnam 1 }; # OP_GPWNAM
402 eval { getpwuid 1 }; # OP_GPWUID
403 prototype "foo"; # OP_PROTOTYPE
407 use warnings 'void' ;
408 for (@{[0]}) { "$_" } # check warning isn't duplicated
410 for (@{[0]}) { "$_" } # check warning isn't duplicated
412 Useless use of string in void context at - line 3.
415 use warnings 'void' ;
418 if ( ! $Config{d_telldir}) {
421 # telldir not present
426 telldir 1 ; # OP_TELLDIR
428 telldir 1 ; # OP_TELLDIR
430 Useless use of telldir in void context at - line 13.
433 use warnings 'void' ;
436 if ( ! $Config{d_getppid}) {
439 # getppid not present
444 getppid ; # OP_GETPPID
446 getppid ; # OP_GETPPID
448 Useless use of getppid in void context at - line 13.
451 use warnings 'void' ;
454 if ( ! $Config{d_getpgrp}) {
457 # getpgrp not present
462 getpgrp ; # OP_GETPGRP
464 getpgrp ; # OP_GETPGRP
466 Useless use of getpgrp in void context at - line 13.
469 use warnings 'void' ;
472 if ( ! $Config{d_times}) {
484 Useless use of times in void context at - line 13.
487 use warnings 'void' ;
490 if ( ! $Config{d_getprior} or $^O eq 'os2') { # Locks before fixpak22
493 # getpriority not present
498 getpriority 1,2; # OP_GETPRIORITY
500 getpriority 1,2; # OP_GETPRIORITY
502 Useless use of getpriority in void context at - line 13.
505 use warnings 'void' ;
508 if ( ! $Config{d_getlogin}) {
511 # getlogin not present
516 getlogin ; # OP_GETLOGIN
518 getlogin ; # OP_GETLOGIN
520 Useless use of getlogin in void context at - line 13.
523 use warnings 'void' ;
525 if ( ! $Config{d_socket}) {
528 # getsockname not present
529 # getpeername not present
530 # gethostbyname not present
531 # gethostbyaddr not present
532 # gethostent not present
533 # getnetbyname not present
534 # getnetbyaddr not present
535 # getnetent not present
536 # getprotobyname not present
537 # getprotobynumber not present
538 # getprotoent not present
539 # getservbyname not present
540 # getservbyport not present
541 # getservent not present
545 getsockname STDIN ; # OP_GETSOCKNAME
546 getpeername STDIN ; # OP_GETPEERNAME
547 gethostbyname 1 ; # OP_GHBYNAME
548 gethostbyaddr 1,2; # OP_GHBYADDR
549 gethostent ; # OP_GHOSTENT
550 getnetbyname 1 ; # OP_GNBYNAME
551 getnetbyaddr 1,2 ; # OP_GNBYADDR
552 getnetent ; # OP_GNETENT
553 getprotobyname 1; # OP_GPBYNAME
554 getprotobynumber 1; # OP_GPBYNUMBER
555 getprotoent ; # OP_GPROTOENT
556 getservbyname 1,2; # OP_GSBYNAME
557 getservbyport 1,2; # OP_GSBYPORT
558 getservent ; # OP_GSERVENT
561 getsockname STDIN ; # OP_GETSOCKNAME
562 getpeername STDIN ; # OP_GETPEERNAME
563 gethostbyname 1 ; # OP_GHBYNAME
564 gethostbyaddr 1,2; # OP_GHBYADDR
565 gethostent ; # OP_GHOSTENT
566 getnetbyname 1 ; # OP_GNBYNAME
567 getnetbyaddr 1,2 ; # OP_GNBYADDR
568 getnetent ; # OP_GNETENT
569 getprotobyname 1; # OP_GPBYNAME
570 getprotobynumber 1; # OP_GPBYNUMBER
571 getprotoent ; # OP_GPROTOENT
572 getservbyname 1,2; # OP_GSBYNAME
573 getservbyport 1,2; # OP_GSBYPORT
574 getservent ; # OP_GSERVENT
576 # some functions may not be there, so we exit without running
580 Useless use of getsockname in void context at - line 24.
581 Useless use of getpeername in void context at - line 25.
582 Useless use of gethostbyname in void context at - line 26.
583 Useless use of gethostbyaddr in void context at - line 27.
584 Useless use of gethostent in void context at - line 28.
585 Useless use of getnetbyname in void context at - line 29.
586 Useless use of getnetbyaddr in void context at - line 30.
587 Useless use of getnetent in void context at - line 31.
588 Useless use of getprotobyname in void context at - line 32.
589 Useless use of getprotobynumber in void context at - line 33.
590 Useless use of getprotoent in void context at - line 34.
591 Useless use of getservbyname in void context at - line 35.
592 Useless use of getservbyport in void context at - line 36.
593 Useless use of getservent in void context at - line 37.
596 use warnings 'void' ;
607 Useless use of a variable in void context at - line 3.
608 Useless use of a variable in void context at - line 4.
609 Useless use of a variable in void context at - line 5.
610 Useless use of a variable in void context at - line 6.
613 use warnings 'void' ;
620 Useless use of a constant in void context at - line 3.
621 Useless use of a constant in void context at - line 4.
625 use warnings 'misc' ;
626 my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;
641 my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;
656 Applying pattern match (m//) to @array will act on scalar(@array) at - line 5.
657 Applying substitution (s///) to @array will act on scalar(@array) at - line 6.
658 Applying transliteration (tr///) to @array will act on scalar(@array) at - line 7.
659 Applying pattern match (m//) to @array will act on scalar(@array) at - line 8.
660 Applying substitution (s///) to @array will act on scalar(@array) at - line 9.
661 Applying transliteration (tr///) to @array will act on scalar(@array) at - line 10.
662 Applying pattern match (m//) to %hash will act on scalar(%hash) at - line 11.
663 Applying substitution (s///) to %hash will act on scalar(%hash) at - line 12.
664 Applying transliteration (tr///) to %hash will act on scalar(%hash) at - line 13.
665 Applying pattern match (m//) to %hash will act on scalar(%hash) at - line 14.
666 Applying substitution (s///) to %hash will act on scalar(%hash) at - line 15.
667 Applying transliteration (tr///) to %hash will act on scalar(%hash) at - line 16.
668 Can't modify private array in substitution (s///) at - line 6, near "s/a/b/ ;"
669 BEGIN not safe after errors--compilation aborted at - line 18.
672 use warnings 'syntax' ;
674 no warnings 'syntax' ;
677 Parentheses missing around "my" list at - line 3.
680 use warnings 'syntax' ;
681 local $a, $b = (1,2);
682 no warnings 'syntax' ;
683 local $c, $d = (1,2);
685 Parentheses missing around "local" list at - line 3.
688 use warnings 'bareword' ;
690 no warnings 'bareword' ;
693 Bareword found in conditional at - line 3.
699 use warnings 'misc' ;
701 $x = 1 if $x = <FH> ;
703 $x = 1 if $x = <FH> ;
705 Value of <HANDLE> construct can be "0"; test with defined() at - line 4.
708 use warnings 'misc' ;
710 $x = 1 if $x = readdir FH ;
712 $x = 1 if $x = readdir FH ;
715 Value of readdir() operator can be "0"; test with defined() at - line 4.
718 use warnings 'misc' ;
723 Value of glob construct can be "0"; test with defined() at - line 3.
726 use warnings 'misc' ;
728 $x = 1 if $x = each %a ;
730 $x = 1 if $x = each %a ;
732 Value of each() operator can be "0"; test with defined() at - line 4.
735 use warnings 'misc' ;
736 $x = 1 while $x = <*> and 0 ;
738 $x = 1 while $x = <*> and 0 ;
740 Value of glob construct can be "0"; test with defined() at - line 3.
743 use warnings 'misc' ;
745 $x = 1 while $x = readdir FH and 0 ;
747 $x = 1 while $x = readdir FH and 0 ;
750 Value of readdir() operator can be "0"; test with defined() at - line 4.
753 use warnings 'redefine' ;
756 no warnings 'redefine' ;
759 Subroutine fred redefined at - line 4.
762 use warnings 'redefine' ;
765 no warnings 'redefine' ;
768 Constant subroutine fred redefined at - line 4.
771 no warnings 'redefine' ;
775 Constant subroutine fred redefined at - line 4.
778 no warnings 'redefine' ;
780 *fred = sub () { 2 };
782 Constant subroutine main::fred redefined at - line 4.
785 use warnings 'redefine' ;
790 no warnings 'redefine' ;
794 Format FRED redefined at - line 5.
797 use warnings 'deprecated' ;
799 no warnings 'deprecated' ;
802 Array @FRED missing the @ in argument 1 of push() at - line 3.
805 use warnings 'deprecated' ;
807 no warnings 'deprecated' ;
810 Hash %FRED missing the % in argument 1 of keys() at - line 3.
814 if ($^O eq 'MacOS') {
822 use warnings 'syntax' ;
826 Statement unlikely to be reached at - line 13.
827 (Maybe you meant system() when you said exec()?)
830 use warnings 'deprecated' ;
833 defined(@array) is deprecated at - line 3.
834 (Maybe you should just omit the defined()?)
837 use warnings 'deprecated' ;
838 defined(@a = (1,2,3));
840 defined(@array) is deprecated at - line 3.
841 (Maybe you should just omit the defined()?)
844 use warnings 'deprecated' ;
847 defined(%hash) is deprecated at - line 3.
848 (Maybe you should just omit the defined()?)
852 if ($^O eq 'MacOS') {
860 no warnings 'syntax' ;
870 Prototype mismatch: sub main::fred () vs ($) at - line 3.
877 no warnings 'prototype' ;
880 use warnings 'prototype' ;
887 Prototype mismatch: sub main::fred () vs ($) at - line 4.
888 Prototype mismatch: sub main::freD () vs ($) at - line 11.
889 Prototype mismatch: sub main::FRED () vs ($) at - line 14.
892 use warnings 'syntax' ;
893 join /---/, 'x', 'y', 'z';
895 /---/ should probably be written as "---" at - line 3.
898 use warnings 'prototype' ;
901 no warnings 'prototype' ;
905 main::fred() called too early to check prototype at - line 3.
907 # op.c [Perl_newATTRSUB]
909 use warnings 'void' ;
910 BEGIN { $| = 1; print "in begin\n"; }
911 CHECK { print "in check\n"; }
912 INIT { print "in init\n"; }
913 END { print "in end\n"; }
914 print "in mainline\n";
918 delete $INC{"abc.pm"};
927 Too late to run CHECK block at abc.pm line 3.
928 Too late to run INIT block at abc.pm line 4.
931 Too late to run CHECK block at abc.pm line 3.
932 Too late to run INIT block at abc.pm line 4.
938 # op.c [Perl_newATTRSUB]
941 BEGIN { $| = 1; print "in begin\n"; }
942 CHECK { print "in check\n"; }
943 INIT { print "in init\n"; }
944 END { print "in end\n"; }
945 print "in mainline\n";
960 use warnings 'syntax' ;
963 no warnings 'syntax' ;
967 Useless use of push with no values at - line 4.
968 Useless use of unshift with no values at - line 5.
971 # 20020401 mjd@plover.com at suggestion of jfriedl@yahoo.com
972 use warnings 'regexp';
973 split /blah/g, "blah";
974 no warnings 'regexp';
975 split /blah/g, "blah";
977 Use of /g modifier is meaningless in split at - line 4.
980 use warnings 'precedence';
988 no warnings 'precedence';
997 Possible precedence problem on bitwise & operator at - line 3.
998 Possible precedence problem on bitwise ^ operator at - line 4.
999 Possible precedence problem on bitwise | operator at - line 5.
1000 Possible precedence problem on bitwise & operator at - line 6.
1001 Possible precedence problem on bitwise ^ operator at - line 7.
1002 Possible precedence problem on bitwise | operator at - line 8.
1003 Possible precedence problem on bitwise & operator at - line 9.
1007 use warnings 'precedence';
1014 $a = $b <=> $c & $d;
1015 no warnings 'precedence';
1022 $a = $b <=> $c & $d;
1024 Possible precedence problem on bitwise & operator at - line 4.
1025 Possible precedence problem on bitwise ^ operator at - line 5.
1026 Possible precedence problem on bitwise | operator at - line 6.
1027 Possible precedence problem on bitwise & operator at - line 7.
1028 Possible precedence problem on bitwise ^ operator at - line 8.
1029 Possible precedence problem on bitwise | operator at - line 9.
1030 Possible precedence problem on bitwise & operator at - line 10.