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 Use of "package" with no arguments is deprecated
112 Package `%s' not found (did you use the incorrect case?)
114 Use of /g modifier is meaningless in split
118 Prototype mismatch: [cv_ckproto]
122 %s never introduced [pad_leavemy] TODO
123 Runaway prototype [newSUB] TODO
124 oops: oopsAV [oopsAV] TODO
125 oops: oopsHV [oopsHV] TODO
130 use warnings 'misc' ;
138 "my" variable $x masks earlier declaration in same scope at - line 4.
139 "my" variable $y masks earlier declaration in same statement at - line 5.
142 use warnings 'closure' ;
150 Variable "$x" will not stay shared at - line 7.
153 no warnings 'closure' ;
164 use warnings 'closure' ;
175 use warnings 'closure' ;
183 Variable "$x" may be unavailable at - line 6.
186 no warnings 'closure' ;
197 use warnings 'syntax' ;
199 no warnings 'syntax' ;
202 Found = in conditional, should be == at - line 3.
205 use warnings 'deprecated' ;
207 no warnings 'deprecated' ;
210 Use of implicit split to @_ is deprecated at - line 3.
213 use warnings 'deprecated' ;
215 no warnings 'deprecated' ;
218 Use of implicit split to @_ is deprecated at - line 3.
221 use warnings 'deprecated';
227 $main::foo = {}; %$main::foo->{"bar"};
228 $foo = {}; %$foo->{"bar"};
229 $main::foo = []; @$main::foo->[34];
230 $foo = []; @$foo->[34];
231 no warnings 'deprecated';
236 $main::foo = {}; %$main::foo->{"bar"};
237 $foo = {}; %$foo->{"bar"};
238 $main::foo = []; @$main::foo->[34];
239 $foo = []; @$foo->[34];
241 Using a hash as a reference is deprecated at - line 4.
242 Using a hash as a reference is deprecated at - line 5.
243 Using an array as a reference is deprecated at - line 6.
244 Using an array as a reference is deprecated at - line 7.
245 Using a hash as a reference is deprecated at - line 8.
246 Using a hash as a reference is deprecated at - line 9.
247 Using an array as a reference is deprecated at - line 10.
248 Using an array as a reference is deprecated at - line 11.
251 use warnings 'void' ; close STDIN ;
254 wantarray ; # OP_WANTARRAY
264 defined $a ; # OP_DEFINED
267 length $a ; # OP_LENGTH
268 substr $a,1 ; # OP_SUBSTR
269 vec $a,1,2 ; # OP_VEC
270 index $a,1,2 ; # OP_INDEX
271 rindex $a,1,2 ; # OP_RINDEX
272 sprintf $a ; # OP_SPRINTF
276 #values %a ; # OP_VALUES
280 unpack "a", "a" ; # OP_UNPACK
281 pack $a,"" ; # OP_PACK
283 (@a)[0,1] ; # OP_LSLICE
286 sort(1,2) ; # OP_SORT
287 reverse(1,2) ; # OP_REVERSE
292 fileno STDIN ; # OP_FILENO
294 tell STDIN ; # OP_TELL
295 readlink 1; # OP_READLINK
297 localtime ; # OP_LOCALTIME
299 eval { getgrnam 1 }; # OP_GGRNAM
300 eval { getgrgid 1 }; # OP_GGRGID
301 eval { getpwnam 1 }; # OP_GPWNAM
302 eval { getpwuid 1 }; # OP_GPWUID
304 Useless use of repeat (x) in void context at - line 3.
305 Useless use of wantarray in void context at - line 5.
306 Useless use of reference-type operator in void context at - line 12.
307 Useless use of reference constructor in void context at - line 13.
308 Useless use of single ref constructor in void context at - line 14.
309 Useless use of defined operator in void context at - line 15.
310 Useless use of hex in void context at - line 16.
311 Useless use of oct in void context at - line 17.
312 Useless use of length in void context at - line 18.
313 Useless use of substr in void context at - line 19.
314 Useless use of vec in void context at - line 20.
315 Useless use of index in void context at - line 21.
316 Useless use of rindex in void context at - line 22.
317 Useless use of sprintf in void context at - line 23.
318 Useless use of array element in void context at - line 24.
319 Useless use of array slice in void context at - line 26.
320 Useless use of hash element in void context at - line 29.
321 Useless use of hash slice in void context at - line 30.
322 Useless use of unpack in void context at - line 31.
323 Useless use of pack in void context at - line 32.
324 Useless use of join or string in void context at - line 33.
325 Useless use of list slice in void context at - line 34.
326 Useless use of sort in void context at - line 37.
327 Useless use of reverse in void context at - line 38.
328 Useless use of range (or flop) in void context at - line 41.
329 Useless use of caller in void context at - line 42.
330 Useless use of fileno in void context at - line 43.
331 Useless use of eof in void context at - line 44.
332 Useless use of tell in void context at - line 45.
333 Useless use of readlink in void context at - line 46.
334 Useless use of time in void context at - line 47.
335 Useless use of localtime in void context at - line 48.
336 Useless use of gmtime in void context at - line 49.
337 Useless use of getgrnam in void context at - line 50.
338 Useless use of getgrgid in void context at - line 51.
339 Useless use of getpwnam in void context at - line 52.
340 Useless use of getpwuid in void context at - line 53.
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
406 use warnings 'void' ;
407 for (@{[0]}) { "$_" } # check warning isn't duplicated
409 for (@{[0]}) { "$_" } # check warning isn't duplicated
411 Useless use of string in void context at - line 3.
414 use warnings 'void' ;
417 if ( ! $Config{d_telldir}) {
420 # telldir not present
425 telldir 1 ; # OP_TELLDIR
427 telldir 1 ; # OP_TELLDIR
429 Useless use of telldir in void context at - line 13.
432 use warnings 'void' ;
435 if ( ! $Config{d_getppid}) {
438 # getppid not present
443 getppid ; # OP_GETPPID
445 getppid ; # OP_GETPPID
447 Useless use of getppid in void context at - line 13.
450 use warnings 'void' ;
453 if ( ! $Config{d_getpgrp}) {
456 # getpgrp not present
461 getpgrp ; # OP_GETPGRP
463 getpgrp ; # OP_GETPGRP
465 Useless use of getpgrp in void context at - line 13.
468 use warnings 'void' ;
471 if ( ! $Config{d_times}) {
483 Useless use of times in void context at - line 13.
486 use warnings 'void' ;
489 if ( ! $Config{d_getprior} or $^O eq 'os2') { # Locks before fixpak22
492 # getpriority not present
497 getpriority 1,2; # OP_GETPRIORITY
499 getpriority 1,2; # OP_GETPRIORITY
501 Useless use of getpriority in void context at - line 13.
504 use warnings 'void' ;
507 if ( ! $Config{d_getlogin}) {
510 # getlogin not present
515 getlogin ; # OP_GETLOGIN
517 getlogin ; # OP_GETLOGIN
519 Useless use of getlogin in void context at - line 13.
522 use warnings 'void' ;
524 if ( ! $Config{d_socket}) {
527 # getsockname not present
528 # getpeername not present
529 # gethostbyname not present
530 # gethostbyaddr not present
531 # gethostent not present
532 # getnetbyname not present
533 # getnetbyaddr not present
534 # getnetent not present
535 # getprotobyname not present
536 # getprotobynumber not present
537 # getprotoent not present
538 # getservbyname not present
539 # getservbyport not present
540 # getservent not present
544 getsockname STDIN ; # OP_GETSOCKNAME
545 getpeername STDIN ; # OP_GETPEERNAME
546 gethostbyname 1 ; # OP_GHBYNAME
547 gethostbyaddr 1,2; # OP_GHBYADDR
548 gethostent ; # OP_GHOSTENT
549 getnetbyname 1 ; # OP_GNBYNAME
550 getnetbyaddr 1,2 ; # OP_GNBYADDR
551 getnetent ; # OP_GNETENT
552 getprotobyname 1; # OP_GPBYNAME
553 getprotobynumber 1; # OP_GPBYNUMBER
554 getprotoent ; # OP_GPROTOENT
555 getservbyname 1,2; # OP_GSBYNAME
556 getservbyport 1,2; # OP_GSBYPORT
557 getservent ; # OP_GSERVENT
560 getsockname STDIN ; # OP_GETSOCKNAME
561 getpeername STDIN ; # OP_GETPEERNAME
562 gethostbyname 1 ; # OP_GHBYNAME
563 gethostbyaddr 1,2; # OP_GHBYADDR
564 gethostent ; # OP_GHOSTENT
565 getnetbyname 1 ; # OP_GNBYNAME
566 getnetbyaddr 1,2 ; # OP_GNBYADDR
567 getnetent ; # OP_GNETENT
568 getprotobyname 1; # OP_GPBYNAME
569 getprotobynumber 1; # OP_GPBYNUMBER
570 getprotoent ; # OP_GPROTOENT
571 getservbyname 1,2; # OP_GSBYNAME
572 getservbyport 1,2; # OP_GSBYPORT
573 getservent ; # OP_GSERVENT
575 # some functions may not be there, so we exit without running
579 Useless use of getsockname in void context at - line 24.
580 Useless use of getpeername in void context at - line 25.
581 Useless use of gethostbyname in void context at - line 26.
582 Useless use of gethostbyaddr in void context at - line 27.
583 Useless use of gethostent in void context at - line 28.
584 Useless use of getnetbyname in void context at - line 29.
585 Useless use of getnetbyaddr in void context at - line 30.
586 Useless use of getnetent in void context at - line 31.
587 Useless use of getprotobyname in void context at - line 32.
588 Useless use of getprotobynumber in void context at - line 33.
589 Useless use of getprotoent in void context at - line 34.
590 Useless use of getservbyname in void context at - line 35.
591 Useless use of getservbyport in void context at - line 36.
592 Useless use of getservent in void context at - line 37.
595 use warnings 'void' ;
606 Useless use of a variable in void context at - line 3.
607 Useless use of a variable in void context at - line 4.
608 Useless use of a variable in void context at - line 5.
609 Useless use of a variable in void context at - line 6.
612 use warnings 'void' ;
619 Useless use of a constant in void context at - line 3.
620 Useless use of a constant in void context at - line 4.
624 use warnings 'misc' ;
625 my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;
640 my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;
655 Applying pattern match (m//) to @array will act on scalar(@array) at - line 5.
656 Applying substitution (s///) to @array will act on scalar(@array) at - line 6.
657 Applying transliteration (tr///) to @array will act on scalar(@array) at - line 7.
658 Applying pattern match (m//) to @array will act on scalar(@array) at - line 8.
659 Applying substitution (s///) to @array will act on scalar(@array) at - line 9.
660 Applying transliteration (tr///) to @array will act on scalar(@array) at - line 10.
661 Applying pattern match (m//) to %hash will act on scalar(%hash) at - line 11.
662 Applying substitution (s///) to %hash will act on scalar(%hash) at - line 12.
663 Applying transliteration (tr///) to %hash will act on scalar(%hash) at - line 13.
664 Applying pattern match (m//) to %hash will act on scalar(%hash) at - line 14.
665 Applying substitution (s///) to %hash will act on scalar(%hash) at - line 15.
666 Applying transliteration (tr///) to %hash will act on scalar(%hash) at - line 16.
667 Can't modify private array in substitution (s///) at - line 6, near "s/a/b/ ;"
668 BEGIN not safe after errors--compilation aborted at - line 18.
671 use warnings 'syntax' ;
673 no warnings 'syntax' ;
676 Parentheses missing around "my" list at - line 3.
679 use warnings 'syntax' ;
680 local $a, $b = (1,2);
681 no warnings 'syntax' ;
682 local $c, $d = (1,2);
684 Parentheses missing around "local" list at - line 3.
687 use warnings 'bareword' ;
689 no warnings 'bareword' ;
692 Bareword found in conditional at - line 3.
698 use warnings 'misc' ;
700 $x = 1 if $x = <FH> ;
702 $x = 1 if $x = <FH> ;
704 Value of <HANDLE> construct can be "0"; test with defined() at - line 4.
707 use warnings 'misc' ;
709 $x = 1 if $x = readdir FH ;
711 $x = 1 if $x = readdir FH ;
714 Value of readdir() operator can be "0"; test with defined() at - line 4.
717 use warnings 'misc' ;
722 Value of glob construct can be "0"; test with defined() at - line 3.
725 use warnings 'misc' ;
727 $x = 1 if $x = each %a ;
729 $x = 1 if $x = each %a ;
731 Value of each() operator can be "0"; test with defined() at - line 4.
734 use warnings 'misc' ;
735 $x = 1 while $x = <*> and 0 ;
737 $x = 1 while $x = <*> and 0 ;
739 Value of glob construct can be "0"; test with defined() at - line 3.
742 use warnings 'misc' ;
744 $x = 1 while $x = readdir FH and 0 ;
746 $x = 1 while $x = readdir FH and 0 ;
749 Value of readdir() operator can be "0"; test with defined() at - line 4.
752 use warnings 'redefine' ;
755 no warnings 'redefine' ;
758 Subroutine fred redefined at - line 4.
761 use warnings 'redefine' ;
764 no warnings 'redefine' ;
767 Constant subroutine fred redefined at - line 4.
770 no warnings 'redefine' ;
774 Constant subroutine fred redefined at - line 4.
777 no warnings 'redefine' ;
779 *fred = sub () { 2 };
781 Constant subroutine main::fred redefined at - line 4.
784 use warnings 'redefine' ;
789 no warnings 'redefine' ;
793 Format FRED redefined at - line 5.
796 use warnings 'deprecated' ;
798 no warnings 'deprecated' ;
801 Array @FRED missing the @ in argument 1 of push() at - line 3.
804 use warnings 'deprecated' ;
806 no warnings 'deprecated' ;
809 Hash %FRED missing the % in argument 1 of keys() at - line 3.
813 if ($^O eq 'MacOS') {
821 use warnings 'syntax' ;
825 Statement unlikely to be reached at - line 13.
826 (Maybe you meant system() when you said exec()?)
829 use warnings 'deprecated' ;
832 defined(@array) is deprecated at - line 3.
833 (Maybe you should just omit the defined()?)
836 use warnings 'deprecated' ;
837 defined(@a = (1,2,3));
839 defined(@array) is deprecated at - line 3.
840 (Maybe you should just omit the defined()?)
843 use warnings 'deprecated' ;
846 defined(%hash) is deprecated at - line 3.
847 (Maybe you should just omit the defined()?)
851 if ($^O eq 'MacOS') {
859 no warnings 'syntax' ;
869 Prototype mismatch: sub main::fred () vs ($) at - line 3.
876 no warnings 'prototype' ;
879 use warnings 'prototype' ;
886 Prototype mismatch: sub main::fred () vs ($) at - line 4.
887 Prototype mismatch: sub main::freD () vs ($) at - line 11.
888 Prototype mismatch: sub main::FRED () vs ($) at - line 14.
891 use warnings 'syntax' ;
892 join /---/, 'x', 'y', 'z';
894 /---/ should probably be written as "---" at - line 3.
897 use warnings 'prototype' ;
900 no warnings 'prototype' ;
904 main::fred() called too early to check prototype at - line 3.
906 # op.c [Perl_newATTRSUB]
908 use warnings 'void' ;
909 BEGIN { $| = 1; print "in begin\n"; }
910 CHECK { print "in check\n"; }
911 INIT { print "in init\n"; }
912 END { print "in end\n"; }
913 print "in mainline\n";
917 delete $INC{"abc.pm"};
926 Too late to run CHECK block at abc.pm line 3.
927 Too late to run INIT block at abc.pm line 4.
930 Too late to run CHECK block at abc.pm line 3.
931 Too late to run INIT block at abc.pm line 4.
937 # op.c [Perl_newATTRSUB]
940 BEGIN { $| = 1; print "in begin\n"; }
941 CHECK { print "in check\n"; }
942 INIT { print "in init\n"; }
943 END { print "in end\n"; }
944 print "in mainline\n";
959 use warnings 'syntax' ;
962 no warnings 'syntax' ;
966 Useless use of push with no values at - line 4.
967 Useless use of unshift with no values at - line 5.
970 use warnings 'deprecated' ;
972 no warnings 'deprecated' ;
975 Use of "package" with no arguments is deprecated at - line 3.
976 Global symbol "BEGIN" requires explicit package name at - line 4.
977 BEGIN not safe after errors--compilation aborted at - line 4.
980 # 20020401 mjd@plover.com at suggestion of jfriedl@yahoo.com
981 use warnings 'regexp';
982 split /blah/g, "blah";
983 no warnings 'regexp';
984 split /blah/g, "blah";
986 Use of /g modifier is meaningless in split at - line 4.