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 ($$) {}
105 Non-octal literal mode (%d) specified
106 (Did you mean 0%d instead?)
111 Use of "package" with no arguments is deprecated
116 Prototype mismatch: [cv_ckproto]
120 %s never introduced [pad_leavemy] TODO
121 Runaway prototype [newSUB] TODO
122 oops: oopsAV [oopsAV] TODO
123 oops: oopsHV [oopsHV] TODO
128 use warnings 'misc' ;
134 "my" variable $x masks earlier declaration in same scope at - line 4.
137 use warnings 'closure' ;
145 Variable "$x" will not stay shared at - line 7.
148 no warnings 'closure' ;
159 use warnings 'closure' ;
170 use warnings 'closure' ;
178 Variable "$x" may be unavailable at - line 6.
181 no warnings 'closure' ;
192 use warnings 'syntax' ;
194 no warnings 'syntax' ;
197 Found = in conditional, should be == 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 'deprecated' ;
210 no warnings 'deprecated' ;
213 Use of implicit split to @_ is deprecated at - line 3.
216 use warnings 'deprecated';
222 $main::foo = {}; %$main::foo->{"bar"};
223 $foo = {}; %$foo->{"bar"};
224 $main::foo = []; @$main::foo->[34];
225 $foo = []; @$foo->[34];
226 no warnings 'deprecated';
231 $main::foo = {}; %$main::foo->{"bar"};
232 $foo = {}; %$foo->{"bar"};
233 $main::foo = []; @$main::foo->[34];
234 $foo = []; @$foo->[34];
236 Using a hash as a reference is deprecated at - line 4.
237 Using a hash as a reference is deprecated at - line 5.
238 Using an array as a reference is deprecated at - line 6.
239 Using an array as a reference is deprecated at - line 7.
240 Using a hash as a reference is deprecated at - line 8.
241 Using a hash as a reference is deprecated at - line 9.
242 Using an array as a reference is deprecated at - line 10.
243 Using an array as a reference is deprecated at - line 11.
246 use warnings 'void' ; close STDIN ;
249 wantarray ; # OP_WANTARRAY
259 defined $a ; # OP_DEFINED
262 length $a ; # OP_LENGTH
263 substr $a,1 ; # OP_SUBSTR
264 vec $a,1,2 ; # OP_VEC
265 index $a,1,2 ; # OP_INDEX
266 rindex $a,1,2 ; # OP_RINDEX
267 sprintf $a ; # OP_SPRINTF
271 #values %a ; # OP_VALUES
275 unpack "a", "a" ; # OP_UNPACK
276 pack $a,"" ; # OP_PACK
278 (@a)[0,1] ; # OP_LSLICE
281 sort(1,2) ; # OP_SORT
282 reverse(1,2) ; # OP_REVERSE
287 fileno STDIN ; # OP_FILENO
289 tell STDIN ; # OP_TELL
290 readlink 1; # OP_READLINK
292 localtime ; # OP_LOCALTIME
294 eval { getgrnam 1 }; # OP_GGRNAM
295 eval { getgrgid 1 }; # OP_GGRGID
296 eval { getpwnam 1 }; # OP_GPWNAM
297 eval { getpwuid 1 }; # OP_GPWUID
299 Useless use of repeat (x) in void context at - line 3.
300 Useless use of wantarray in void context at - line 5.
301 Useless use of reference-type operator in void context at - line 12.
302 Useless use of reference constructor in void context at - line 13.
303 Useless use of single ref constructor in void context at - line 14.
304 Useless use of defined operator in void context at - line 15.
305 Useless use of hex in void context at - line 16.
306 Useless use of oct in void context at - line 17.
307 Useless use of length in void context at - line 18.
308 Useless use of substr in void context at - line 19.
309 Useless use of vec in void context at - line 20.
310 Useless use of index in void context at - line 21.
311 Useless use of rindex in void context at - line 22.
312 Useless use of sprintf in void context at - line 23.
313 Useless use of array element in void context at - line 24.
314 Useless use of array slice in void context at - line 26.
315 Useless use of hash element in void context at - line 29.
316 Useless use of hash slice in void context at - line 30.
317 Useless use of unpack in void context at - line 31.
318 Useless use of pack in void context at - line 32.
319 Useless use of join or string in void context at - line 33.
320 Useless use of list slice in void context at - line 34.
321 Useless use of sort in void context at - line 37.
322 Useless use of reverse in void context at - line 38.
323 Useless use of range (or flop) in void context at - line 41.
324 Useless use of caller in void context at - line 42.
325 Useless use of fileno in void context at - line 43.
326 Useless use of eof in void context at - line 44.
327 Useless use of tell in void context at - line 45.
328 Useless use of readlink in void context at - line 46.
329 Useless use of time in void context at - line 47.
330 Useless use of localtime in void context at - line 48.
331 Useless use of gmtime in void context at - line 49.
332 Useless use of getgrnam in void context at - line 50.
333 Useless use of getgrgid in void context at - line 51.
334 Useless use of getpwnam in void context at - line 52.
335 Useless use of getpwuid in void context at - line 53.
338 no warnings 'void' ; close STDIN ;
341 wantarray ; # OP_WANTARRAY
351 defined $a ; # OP_DEFINED
354 length $a ; # OP_LENGTH
355 substr $a,1 ; # OP_SUBSTR
356 vec $a,1,2 ; # OP_VEC
357 index $a,1,2 ; # OP_INDEX
358 rindex $a,1,2 ; # OP_RINDEX
359 sprintf $a ; # OP_SPRINTF
363 #values %a ; # OP_VALUES
367 unpack "a", "a" ; # OP_UNPACK
368 pack $a,"" ; # OP_PACK
370 (@a)[0,1] ; # OP_LSLICE
373 sort(1,2) ; # OP_SORT
374 reverse(1,2) ; # OP_REVERSE
379 fileno STDIN ; # OP_FILENO
381 tell STDIN ; # OP_TELL
382 readlink 1; # OP_READLINK
384 localtime ; # OP_LOCALTIME
386 eval { getgrnam 1 }; # OP_GGRNAM
387 eval { getgrgid 1 }; # OP_GGRGID
388 eval { getpwnam 1 }; # OP_GPWNAM
389 eval { getpwuid 1 }; # OP_GPWUID
393 use warnings 'void' ;
394 for (@{[0]}) { "$_" } # check warning isn't duplicated
396 for (@{[0]}) { "$_" } # check warning isn't duplicated
398 Useless use of string in void context at - line 3.
401 use warnings 'void' ;
404 if ( ! $Config{d_telldir}) {
407 # telldir not present
412 telldir 1 ; # OP_TELLDIR
414 telldir 1 ; # OP_TELLDIR
416 Useless use of telldir in void context at - line 13.
419 use warnings 'void' ;
422 if ( ! $Config{d_getppid}) {
425 # getppid not present
430 getppid ; # OP_GETPPID
432 getppid ; # OP_GETPPID
434 Useless use of getppid in void context at - line 13.
437 use warnings 'void' ;
440 if ( ! $Config{d_getpgrp}) {
443 # getpgrp not present
448 getpgrp ; # OP_GETPGRP
450 getpgrp ; # OP_GETPGRP
452 Useless use of getpgrp in void context at - line 13.
455 use warnings 'void' ;
458 if ( ! $Config{d_times}) {
470 Useless use of times in void context at - line 13.
473 use warnings 'void' ;
476 if ( ! $Config{d_getprior} or $^O eq 'os2') { # Locks before fixpak22
479 # getpriority not present
484 getpriority 1,2; # OP_GETPRIORITY
486 getpriority 1,2; # OP_GETPRIORITY
488 Useless use of getpriority in void context at - line 13.
491 use warnings 'void' ;
494 if ( ! $Config{d_getlogin}) {
497 # getlogin not present
502 getlogin ; # OP_GETLOGIN
504 getlogin ; # OP_GETLOGIN
506 Useless use of getlogin in void context at - line 13.
509 use warnings 'void' ;
511 if ( ! $Config{d_socket}) {
514 # getsockname not present
515 # getpeername not present
516 # gethostbyname not present
517 # gethostbyaddr not present
518 # gethostent not present
519 # getnetbyname not present
520 # getnetbyaddr not present
521 # getnetent not present
522 # getprotobyname not present
523 # getprotobynumber not present
524 # getprotoent not present
525 # getservbyname not present
526 # getservbyport not present
527 # getservent not present
531 getsockname STDIN ; # OP_GETSOCKNAME
532 getpeername STDIN ; # OP_GETPEERNAME
533 gethostbyname 1 ; # OP_GHBYNAME
534 gethostbyaddr 1,2; # OP_GHBYADDR
535 gethostent ; # OP_GHOSTENT
536 getnetbyname 1 ; # OP_GNBYNAME
537 getnetbyaddr 1,2 ; # OP_GNBYADDR
538 getnetent ; # OP_GNETENT
539 getprotobyname 1; # OP_GPBYNAME
540 getprotobynumber 1; # OP_GPBYNUMBER
541 getprotoent ; # OP_GPROTOENT
542 getservbyname 1,2; # OP_GSBYNAME
543 getservbyport 1,2; # OP_GSBYPORT
544 getservent ; # OP_GSERVENT
547 getsockname STDIN ; # OP_GETSOCKNAME
548 getpeername STDIN ; # OP_GETPEERNAME
549 gethostbyname 1 ; # OP_GHBYNAME
550 gethostbyaddr 1,2; # OP_GHBYADDR
551 gethostent ; # OP_GHOSTENT
552 getnetbyname 1 ; # OP_GNBYNAME
553 getnetbyaddr 1,2 ; # OP_GNBYADDR
554 getnetent ; # OP_GNETENT
555 getprotobyname 1; # OP_GPBYNAME
556 getprotobynumber 1; # OP_GPBYNUMBER
557 getprotoent ; # OP_GPROTOENT
558 getservbyname 1,2; # OP_GSBYNAME
559 getservbyport 1,2; # OP_GSBYPORT
560 getservent ; # OP_GSERVENT
562 # some functions may not be there, so we exit without running
566 Useless use of getsockname in void context at - line 24.
567 Useless use of getpeername in void context at - line 25.
568 Useless use of gethostbyname in void context at - line 26.
569 Useless use of gethostbyaddr in void context at - line 27.
570 Useless use of gethostent in void context at - line 28.
571 Useless use of getnetbyname in void context at - line 29.
572 Useless use of getnetbyaddr in void context at - line 30.
573 Useless use of getnetent in void context at - line 31.
574 Useless use of getprotobyname in void context at - line 32.
575 Useless use of getprotobynumber in void context at - line 33.
576 Useless use of getprotoent in void context at - line 34.
577 Useless use of getservbyname in void context at - line 35.
578 Useless use of getservbyport in void context at - line 36.
579 Useless use of getservent in void context at - line 37.
582 use warnings 'void' ;
593 Useless use of a variable in void context at - line 3.
594 Useless use of a variable in void context at - line 4.
595 Useless use of a variable in void context at - line 5.
596 Useless use of a variable in void context at - line 6.
599 use warnings 'void' ;
606 Useless use of a constant in void context at - line 3.
607 Useless use of a constant in void context at - line 4.
611 use warnings 'misc' ;
612 my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;
627 my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;
642 Applying pattern match (m//) to @array will act on scalar(@array) at - line 5.
643 Applying substitution (s///) to @array will act on scalar(@array) at - line 6.
644 Applying transliteration (tr///) to @array will act on scalar(@array) at - line 7.
645 Applying pattern match (m//) to @array will act on scalar(@array) at - line 8.
646 Applying substitution (s///) to @array will act on scalar(@array) at - line 9.
647 Applying transliteration (tr///) to @array will act on scalar(@array) at - line 10.
648 Applying pattern match (m//) to %hash will act on scalar(%hash) at - line 11.
649 Applying substitution (s///) to %hash will act on scalar(%hash) at - line 12.
650 Applying transliteration (tr///) to %hash will act on scalar(%hash) at - line 13.
651 Applying pattern match (m//) to %hash will act on scalar(%hash) at - line 14.
652 Applying substitution (s///) to %hash will act on scalar(%hash) at - line 15.
653 Applying transliteration (tr///) to %hash will act on scalar(%hash) at - line 16.
654 Can't modify private array in substitution (s///) at - line 6, near "s/a/b/ ;"
655 BEGIN not safe after errors--compilation aborted at - line 18.
658 use warnings 'syntax' ;
660 no warnings 'syntax' ;
663 Parentheses missing around "my" list at - line 3.
666 use warnings 'syntax' ;
667 local $a, $b = (1,2);
668 no warnings 'syntax' ;
669 local $c, $d = (1,2);
671 Parentheses missing around "local" list at - line 3.
674 use warnings 'bareword' ;
676 no warnings 'bareword' ;
679 Bareword found in conditional at - line 3.
685 use warnings 'misc' ;
687 $x = 1 if $x = <FH> ;
689 $x = 1 if $x = <FH> ;
691 Value of <HANDLE> construct can be "0"; test with defined() at - line 4.
694 use warnings 'misc' ;
696 $x = 1 if $x = readdir FH ;
698 $x = 1 if $x = readdir FH ;
701 Value of readdir() operator can be "0"; test with defined() at - line 4.
704 use warnings 'misc' ;
709 Value of glob construct can be "0"; test with defined() at - line 3.
712 use warnings 'misc' ;
714 $x = 1 if $x = each %a ;
716 $x = 1 if $x = each %a ;
718 Value of each() operator can be "0"; test with defined() at - line 4.
721 use warnings 'misc' ;
722 $x = 1 while $x = <*> and 0 ;
724 $x = 1 while $x = <*> and 0 ;
726 Value of glob construct can be "0"; test with defined() at - line 3.
729 use warnings 'misc' ;
731 $x = 1 while $x = readdir FH and 0 ;
733 $x = 1 while $x = readdir FH and 0 ;
736 Value of readdir() operator can be "0"; test with defined() at - line 4.
739 use warnings 'redefine' ;
742 no warnings 'redefine' ;
745 Subroutine fred redefined at - line 4.
748 use warnings 'redefine' ;
751 no warnings 'redefine' ;
754 Constant subroutine fred redefined at - line 4.
757 no warnings 'redefine' ;
761 Constant subroutine fred redefined at - line 4.
764 no warnings 'redefine' ;
766 *fred = sub () { 2 };
768 Constant subroutine fred redefined at - line 4.
771 use warnings 'redefine' ;
776 no warnings 'redefine' ;
780 Format FRED redefined at - line 5.
783 use warnings 'deprecated' ;
785 no warnings 'deprecated' ;
788 Array @FRED missing the @ in argument 1 of push() at - line 3.
791 use warnings 'deprecated' ;
793 no warnings 'deprecated' ;
796 Hash %FRED missing the % in argument 1 of keys() at - line 3.
799 use warnings 'syntax' ;
803 Statement unlikely to be reached at - line 4.
804 (Maybe you meant system() when you said exec()?)
807 use warnings 'deprecated' ;
810 defined(@array) is deprecated at - line 3.
811 (Maybe you should just omit the defined()?)
814 use warnings 'deprecated' ;
815 defined(@a = (1,2,3));
817 defined(@array) is deprecated at - line 3.
818 (Maybe you should just omit the defined()?)
821 use warnings 'deprecated' ;
824 defined(%hash) is deprecated at - line 3.
825 (Maybe you should just omit the defined()?)
828 no warnings 'syntax' ;
838 Prototype mismatch: sub main::fred () vs ($) at - line 3.
845 no warnings 'prototype' ;
848 use warnings 'prototype' ;
855 Prototype mismatch: sub main::fred () vs ($) at - line 4.
856 Prototype mismatch: sub main::freD () vs ($) at - line 11.
857 Prototype mismatch: sub main::FRED () vs ($) at - line 14.
860 use warnings 'syntax' ;
861 join /---/, 'x', 'y', 'z';
863 /---/ should probably be written as "---" at - line 3.
866 use warnings 'prototype' ;
869 no warnings 'prototype' ;
873 main::fred() called too early to check prototype at - line 3.
875 # op.c [Perl_newATTRSUB]
877 use warnings 'void' ;
878 BEGIN { $| = 1; print "in begin\n"; }
879 CHECK { print "in check\n"; }
880 INIT { print "in init\n"; }
881 END { print "in end\n"; }
882 print "in mainline\n";
886 delete $INC{"abc.pm"};
895 Too late to run CHECK block at abc.pm line 3.
896 Too late to run INIT block at abc.pm line 4.
899 Too late to run CHECK block at abc.pm line 3.
900 Too late to run INIT block at abc.pm line 4.
906 # op.c [Perl_newATTRSUB]
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";
928 use warnings 'syntax' ;
931 no warnings 'syntax' ;
935 Useless use of push with no values at - line 4.
936 Useless use of unshift with no values at - line 5.
939 use warnings 'chmod' ;
941 no warnings 'chmod' ;
944 Non-octal literal mode (777) specified at - line 3.
945 (Did you mean 0777 instead?)
948 use warnings 'umask' ;
950 no warnings 'umask' ;
953 Non-octal literal mode (222) specified at - line 3.
954 (Did you mean 0222 instead?)
957 use warnings 'mkdir' ;
959 no warnings 'mkdir' ;
962 Non-octal literal mode (777) specified at - line 3.
963 (Did you mean 0777 instead?)
966 use warnings 'deprecated' ;
968 no warnings 'deprecated' ;
971 Use of "package" with no arguments is deprecated at - line 3.
972 Global symbol "BEGIN" requires explicit package name at - line 4.
973 BEGIN not safe after errors--compilation aborted at - line 4.