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?)
113 Prototype mismatch: [cv_ckproto]
117 %s never introduced [pad_leavemy] TODO
118 Runaway prototype [newSUB] TODO
119 oops: oopsAV [oopsAV] TODO
120 oops: oopsHV [oopsHV] TODO
125 use warnings 'misc' ;
131 "my" variable $x masks earlier declaration in same scope at - line 4.
134 use warnings 'closure' ;
142 Variable "$x" will not stay shared at - line 7.
145 no warnings 'closure' ;
156 use warnings 'closure' ;
167 use warnings 'closure' ;
175 Variable "$x" may be unavailable at - line 6.
178 no warnings 'closure' ;
189 use warnings 'syntax' ;
191 no warnings 'syntax' ;
194 Found = in conditional, should be == at - line 3.
197 use warnings 'deprecated' ;
199 no warnings 'deprecated' ;
202 Use of implicit split to @_ is deprecated 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';
219 $main::foo = {}; %$main::foo->{"bar"};
220 $foo = {}; %$foo->{"bar"};
221 $main::foo = []; @$main::foo->[34];
222 $foo = []; @$foo->[34];
223 no warnings 'deprecated';
228 $main::foo = {}; %$main::foo->{"bar"};
229 $foo = {}; %$foo->{"bar"};
230 $main::foo = []; @$main::foo->[34];
231 $foo = []; @$foo->[34];
233 Using a hash as a reference is deprecated at - line 4.
234 Using a hash as a reference is deprecated at - line 5.
235 Using an array as a reference is deprecated at - line 6.
236 Using an array as a reference is deprecated at - line 7.
237 Using a hash as a reference is deprecated at - line 8.
238 Using a hash as a reference is deprecated at - line 9.
239 Using an array as a reference is deprecated at - line 10.
240 Using an array as a reference is deprecated at - line 11.
243 use warnings 'void' ; close STDIN ;
246 wantarray ; # OP_WANTARRAY
256 defined $a ; # OP_DEFINED
259 length $a ; # OP_LENGTH
260 substr $a,1 ; # OP_SUBSTR
261 vec $a,1,2 ; # OP_VEC
262 index $a,1,2 ; # OP_INDEX
263 rindex $a,1,2 ; # OP_RINDEX
264 sprintf $a ; # OP_SPRINTF
268 #values %a ; # OP_VALUES
272 unpack "a", "a" ; # OP_UNPACK
273 pack $a,"" ; # OP_PACK
275 (@a)[0,1] ; # OP_LSLICE
278 sort(1,2) ; # OP_SORT
279 reverse(1,2) ; # OP_REVERSE
284 fileno STDIN ; # OP_FILENO
286 tell STDIN ; # OP_TELL
287 readlink 1; # OP_READLINK
289 localtime ; # OP_LOCALTIME
291 eval { getgrnam 1 }; # OP_GGRNAM
292 eval { getgrgid 1 }; # OP_GGRGID
293 eval { getpwnam 1 }; # OP_GPWNAM
294 eval { getpwuid 1 }; # OP_GPWUID
296 Useless use of repeat (x) in void context at - line 3.
297 Useless use of wantarray in void context at - line 5.
298 Useless use of reference-type operator in void context at - line 12.
299 Useless use of reference constructor in void context at - line 13.
300 Useless use of single ref constructor in void context at - line 14.
301 Useless use of defined operator in void context at - line 15.
302 Useless use of hex in void context at - line 16.
303 Useless use of oct in void context at - line 17.
304 Useless use of length in void context at - line 18.
305 Useless use of substr in void context at - line 19.
306 Useless use of vec in void context at - line 20.
307 Useless use of index in void context at - line 21.
308 Useless use of rindex in void context at - line 22.
309 Useless use of sprintf in void context at - line 23.
310 Useless use of array element in void context at - line 24.
311 Useless use of array slice in void context at - line 26.
312 Useless use of hash element in void context at - line 29.
313 Useless use of hash slice in void context at - line 30.
314 Useless use of unpack in void context at - line 31.
315 Useless use of pack in void context at - line 32.
316 Useless use of join or string in void context at - line 33.
317 Useless use of list slice in void context at - line 34.
318 Useless use of sort in void context at - line 37.
319 Useless use of reverse in void context at - line 38.
320 Useless use of range (or flop) in void context at - line 41.
321 Useless use of caller in void context at - line 42.
322 Useless use of fileno in void context at - line 43.
323 Useless use of eof in void context at - line 44.
324 Useless use of tell in void context at - line 45.
325 Useless use of readlink in void context at - line 46.
326 Useless use of time in void context at - line 47.
327 Useless use of localtime in void context at - line 48.
328 Useless use of gmtime in void context at - line 49.
329 Useless use of getgrnam in void context at - line 50.
330 Useless use of getgrgid in void context at - line 51.
331 Useless use of getpwnam in void context at - line 52.
332 Useless use of getpwuid in void context at - line 53.
335 no warnings 'void' ; close STDIN ;
338 wantarray ; # OP_WANTARRAY
348 defined $a ; # OP_DEFINED
351 length $a ; # OP_LENGTH
352 substr $a,1 ; # OP_SUBSTR
353 vec $a,1,2 ; # OP_VEC
354 index $a,1,2 ; # OP_INDEX
355 rindex $a,1,2 ; # OP_RINDEX
356 sprintf $a ; # OP_SPRINTF
360 #values %a ; # OP_VALUES
364 unpack "a", "a" ; # OP_UNPACK
365 pack $a,"" ; # OP_PACK
367 (@a)[0,1] ; # OP_LSLICE
370 sort(1,2) ; # OP_SORT
371 reverse(1,2) ; # OP_REVERSE
376 fileno STDIN ; # OP_FILENO
378 tell STDIN ; # OP_TELL
379 readlink 1; # OP_READLINK
381 localtime ; # OP_LOCALTIME
383 eval { getgrnam 1 }; # OP_GGRNAM
384 eval { getgrgid 1 }; # OP_GGRGID
385 eval { getpwnam 1 }; # OP_GPWNAM
386 eval { getpwuid 1 }; # OP_GPWUID
390 use warnings 'void' ;
391 for (@{[0]}) { "$_" } # check warning isn't duplicated
393 for (@{[0]}) { "$_" } # check warning isn't duplicated
395 Useless use of string in void context at - line 3.
398 use warnings 'void' ;
401 if ( ! $Config{d_telldir}) {
404 # telldir not present
409 telldir 1 ; # OP_TELLDIR
411 telldir 1 ; # OP_TELLDIR
413 Useless use of telldir in void context at - line 13.
416 use warnings 'void' ;
419 if ( ! $Config{d_getppid}) {
422 # getppid not present
427 getppid ; # OP_GETPPID
429 getppid ; # OP_GETPPID
431 Useless use of getppid in void context at - line 13.
434 use warnings 'void' ;
437 if ( ! $Config{d_getpgrp}) {
440 # getpgrp not present
445 getpgrp ; # OP_GETPGRP
447 getpgrp ; # OP_GETPGRP
449 Useless use of getpgrp in void context at - line 13.
452 use warnings 'void' ;
455 if ( ! $Config{d_times}) {
467 Useless use of times in void context at - line 13.
470 use warnings 'void' ;
473 if ( ! $Config{d_getprior} or $^O eq 'os2') { # Locks before fixpak22
476 # getpriority not present
481 getpriority 1,2; # OP_GETPRIORITY
483 getpriority 1,2; # OP_GETPRIORITY
485 Useless use of getpriority in void context at - line 13.
488 use warnings 'void' ;
491 if ( ! $Config{d_getlogin}) {
494 # getlogin not present
499 getlogin ; # OP_GETLOGIN
501 getlogin ; # OP_GETLOGIN
503 Useless use of getlogin in void context at - line 13.
506 use warnings 'void' ;
508 if ( ! $Config{d_socket}) {
511 # getsockname not present
512 # getpeername not present
513 # gethostbyname not present
514 # gethostbyaddr not present
515 # gethostent not present
516 # getnetbyname not present
517 # getnetbyaddr not present
518 # getnetent not present
519 # getprotobyname not present
520 # getprotobynumber not present
521 # getprotoent not present
522 # getservbyname not present
523 # getservbyport not present
524 # getservent not present
528 getsockname STDIN ; # OP_GETSOCKNAME
529 getpeername STDIN ; # OP_GETPEERNAME
530 gethostbyname 1 ; # OP_GHBYNAME
531 gethostbyaddr 1,2; # OP_GHBYADDR
532 gethostent ; # OP_GHOSTENT
533 getnetbyname 1 ; # OP_GNBYNAME
534 getnetbyaddr 1,2 ; # OP_GNBYADDR
535 getnetent ; # OP_GNETENT
536 getprotobyname 1; # OP_GPBYNAME
537 getprotobynumber 1; # OP_GPBYNUMBER
538 getprotoent ; # OP_GPROTOENT
539 getservbyname 1,2; # OP_GSBYNAME
540 getservbyport 1,2; # OP_GSBYPORT
541 getservent ; # OP_GSERVENT
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
559 # some functions may not be there, so we exit without running
563 Useless use of getsockname in void context at - line 24.
564 Useless use of getpeername in void context at - line 25.
565 Useless use of gethostbyname in void context at - line 26.
566 Useless use of gethostbyaddr in void context at - line 27.
567 Useless use of gethostent in void context at - line 28.
568 Useless use of getnetbyname in void context at - line 29.
569 Useless use of getnetbyaddr in void context at - line 30.
570 Useless use of getnetent in void context at - line 31.
571 Useless use of getprotobyname in void context at - line 32.
572 Useless use of getprotobynumber in void context at - line 33.
573 Useless use of getprotoent in void context at - line 34.
574 Useless use of getservbyname in void context at - line 35.
575 Useless use of getservbyport in void context at - line 36.
576 Useless use of getservent in void context at - line 37.
579 use warnings 'void' ;
590 Useless use of a variable in void context at - line 3.
591 Useless use of a variable in void context at - line 4.
592 Useless use of a variable in void context at - line 5.
593 Useless use of a variable in void context at - line 6.
596 use warnings 'void' ;
603 Useless use of a constant in void context at - line 3.
604 Useless use of a constant in void context at - line 4.
608 use warnings 'misc' ;
609 my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;
624 my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;
639 Applying pattern match (m//) to @array will act on scalar(@array) at - line 5.
640 Applying substitution (s///) to @array will act on scalar(@array) at - line 6.
641 Applying transliteration (tr///) to @array will act on scalar(@array) at - line 7.
642 Applying pattern match (m//) to @array will act on scalar(@array) at - line 8.
643 Applying substitution (s///) to @array will act on scalar(@array) at - line 9.
644 Applying transliteration (tr///) to @array will act on scalar(@array) at - line 10.
645 Applying pattern match (m//) to %hash will act on scalar(%hash) at - line 11.
646 Applying substitution (s///) to %hash will act on scalar(%hash) at - line 12.
647 Applying transliteration (tr///) to %hash will act on scalar(%hash) at - line 13.
648 Applying pattern match (m//) to %hash will act on scalar(%hash) at - line 14.
649 Applying substitution (s///) to %hash will act on scalar(%hash) at - line 15.
650 Applying transliteration (tr///) to %hash will act on scalar(%hash) at - line 16.
651 Can't modify private array in substitution (s///) at - line 6, near "s/a/b/ ;"
652 BEGIN not safe after errors--compilation aborted at - line 18.
655 use warnings 'syntax' ;
657 no warnings 'syntax' ;
660 Parentheses missing around "my" list at - line 3.
663 use warnings 'syntax' ;
664 local $a, $b = (1,2);
665 no warnings 'syntax' ;
666 local $c, $d = (1,2);
668 Parentheses missing around "local" list at - line 3.
671 use warnings 'bareword' ;
673 no warnings 'bareword' ;
676 Bareword found in conditional at - line 3.
682 use warnings 'misc' ;
684 $x = 1 if $x = <FH> ;
686 $x = 1 if $x = <FH> ;
688 Value of <HANDLE> construct can be "0"; test with defined() at - line 4.
691 use warnings 'misc' ;
693 $x = 1 if $x = readdir FH ;
695 $x = 1 if $x = readdir FH ;
698 Value of readdir() operator can be "0"; test with defined() at - line 4.
701 use warnings 'misc' ;
706 Value of glob construct can be "0"; test with defined() at - line 3.
709 use warnings 'misc' ;
711 $x = 1 if $x = each %a ;
713 $x = 1 if $x = each %a ;
715 Value of each() operator can be "0"; test with defined() at - line 4.
718 use warnings 'misc' ;
719 $x = 1 while $x = <*> and 0 ;
721 $x = 1 while $x = <*> and 0 ;
723 Value of glob construct can be "0"; test with defined() at - line 3.
726 use warnings 'misc' ;
728 $x = 1 while $x = readdir FH and 0 ;
730 $x = 1 while $x = readdir FH and 0 ;
733 Value of readdir() operator can be "0"; test with defined() at - line 4.
736 use warnings 'redefine' ;
739 no warnings 'redefine' ;
742 Subroutine fred redefined at - line 4.
745 use warnings 'redefine' ;
748 no warnings 'redefine' ;
751 Constant subroutine fred redefined at - line 4.
754 no warnings 'redefine' ;
758 Constant subroutine fred redefined at - line 4.
761 no warnings 'redefine' ;
763 *fred = sub () { 2 };
765 Constant subroutine fred redefined at - line 4.
768 use warnings 'redefine' ;
773 no warnings 'redefine' ;
777 Format FRED redefined at - line 5.
780 use warnings 'deprecated' ;
782 no warnings 'deprecated' ;
785 Array @FRED missing the @ in argument 1 of push() at - line 3.
788 use warnings 'deprecated' ;
790 no warnings 'deprecated' ;
793 Hash %FRED missing the % in argument 1 of keys() at - line 3.
796 use warnings 'syntax' ;
800 Statement unlikely to be reached at - line 4.
801 (Maybe you meant system() when you said exec()?)
804 use warnings 'deprecated' ;
807 defined(@array) is deprecated at - line 3.
808 (Maybe you should just omit the defined()?)
811 use warnings 'deprecated' ;
812 defined(@a = (1,2,3));
814 defined(@array) is deprecated at - line 3.
815 (Maybe you should just omit the defined()?)
818 use warnings 'deprecated' ;
821 defined(%hash) is deprecated at - line 3.
822 (Maybe you should just omit the defined()?)
825 no warnings 'syntax' ;
835 Prototype mismatch: sub main::fred () vs ($) at - line 3.
842 no warnings 'prototype' ;
845 use warnings 'prototype' ;
852 Prototype mismatch: sub main::fred () vs ($) at - line 4.
853 Prototype mismatch: sub main::freD () vs ($) at - line 11.
854 Prototype mismatch: sub main::FRED () vs ($) at - line 14.
857 use warnings 'syntax' ;
858 join /---/, 'x', 'y', 'z';
860 /---/ should probably be written as "---" at - line 3.
863 use warnings 'prototype' ;
866 no warnings 'prototype' ;
870 main::fred() called too early to check prototype at - line 3.
872 # op.c [Perl_newATTRSUB]
874 use warnings 'void' ;
875 BEGIN { $| = 1; print "in begin\n"; }
876 CHECK { print "in check\n"; }
877 INIT { print "in init\n"; }
878 END { print "in end\n"; }
879 print "in mainline\n";
883 delete $INC{"abc.pm"};
892 Too late to run CHECK block at abc.pm line 3.
893 Too late to run INIT block at abc.pm line 4.
896 Too late to run CHECK block at abc.pm line 3.
897 Too late to run INIT block at abc.pm line 4.
903 # op.c [Perl_newATTRSUB]
906 BEGIN { $| = 1; print "in begin\n"; }
907 CHECK { print "in check\n"; }
908 INIT { print "in init\n"; }
909 END { print "in end\n"; }
910 print "in mainline\n";
925 use warnings 'syntax' ;
928 no warnings 'syntax' ;
932 Useless use of push with no values at - line 4.
933 Useless use of unshift with no values at - line 5.
936 use warnings 'chmod' ;
938 no warnings 'chmod' ;
941 Non-octal literal mode (777) specified at - line 3.
942 (Did you mean 0777 instead?)
945 use warnings 'umask' ;
947 no warnings 'umask' ;
950 Non-octal literal mode (222) specified at - line 3.
951 (Did you mean 0222 instead?)
954 use warnings 'mkdir' ;
956 no warnings 'mkdir' ;
959 Non-octal literal mode (777) specified at - line 3.
960 (Did you mean 0777 instead?)