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 ($$) {}
106 Use of "package" with no arguments is deprecated
111 Prototype mismatch: [cv_ckproto]
115 %s never introduced [pad_leavemy] TODO
116 Runaway prototype [newSUB] TODO
117 oops: oopsAV [oopsAV] TODO
118 oops: oopsHV [oopsHV] TODO
123 use warnings 'misc' ;
129 "my" variable $x masks earlier declaration in same scope at - line 4.
132 use warnings 'closure' ;
140 Variable "$x" will not stay shared at - line 7.
143 no warnings 'closure' ;
154 use warnings 'closure' ;
165 use warnings 'closure' ;
173 Variable "$x" may be unavailable at - line 6.
176 no warnings 'closure' ;
187 use warnings 'syntax' ;
189 no warnings 'syntax' ;
192 Found = in conditional, should be == at - line 3.
195 use warnings 'deprecated' ;
197 no warnings 'deprecated' ;
200 Use of implicit split to @_ is deprecated 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';
217 $main::foo = {}; %$main::foo->{"bar"};
218 $foo = {}; %$foo->{"bar"};
219 $main::foo = []; @$main::foo->[34];
220 $foo = []; @$foo->[34];
221 no warnings 'deprecated';
226 $main::foo = {}; %$main::foo->{"bar"};
227 $foo = {}; %$foo->{"bar"};
228 $main::foo = []; @$main::foo->[34];
229 $foo = []; @$foo->[34];
231 Using a hash as a reference is deprecated at - line 4.
232 Using a hash as a reference is deprecated at - line 5.
233 Using an array as a reference is deprecated at - line 6.
234 Using an array as a reference is deprecated at - line 7.
235 Using a hash as a reference is deprecated at - line 8.
236 Using a hash as a reference is deprecated at - line 9.
237 Using an array as a reference is deprecated at - line 10.
238 Using an array as a reference is deprecated at - line 11.
241 use warnings 'void' ; close STDIN ;
244 wantarray ; # OP_WANTARRAY
254 defined $a ; # OP_DEFINED
257 length $a ; # OP_LENGTH
258 substr $a,1 ; # OP_SUBSTR
259 vec $a,1,2 ; # OP_VEC
260 index $a,1,2 ; # OP_INDEX
261 rindex $a,1,2 ; # OP_RINDEX
262 sprintf $a ; # OP_SPRINTF
266 #values %a ; # OP_VALUES
270 unpack "a", "a" ; # OP_UNPACK
271 pack $a,"" ; # OP_PACK
273 (@a)[0,1] ; # OP_LSLICE
276 sort(1,2) ; # OP_SORT
277 reverse(1,2) ; # OP_REVERSE
282 fileno STDIN ; # OP_FILENO
284 tell STDIN ; # OP_TELL
285 readlink 1; # OP_READLINK
287 localtime ; # OP_LOCALTIME
289 eval { getgrnam 1 }; # OP_GGRNAM
290 eval { getgrgid 1 }; # OP_GGRGID
291 eval { getpwnam 1 }; # OP_GPWNAM
292 eval { getpwuid 1 }; # OP_GPWUID
294 Useless use of repeat (x) in void context at - line 3.
295 Useless use of wantarray in void context at - line 5.
296 Useless use of reference-type operator in void context at - line 12.
297 Useless use of reference constructor in void context at - line 13.
298 Useless use of single ref constructor in void context at - line 14.
299 Useless use of defined operator in void context at - line 15.
300 Useless use of hex in void context at - line 16.
301 Useless use of oct in void context at - line 17.
302 Useless use of length in void context at - line 18.
303 Useless use of substr in void context at - line 19.
304 Useless use of vec in void context at - line 20.
305 Useless use of index in void context at - line 21.
306 Useless use of rindex in void context at - line 22.
307 Useless use of sprintf in void context at - line 23.
308 Useless use of array element in void context at - line 24.
309 Useless use of array slice in void context at - line 26.
310 Useless use of hash element in void context at - line 29.
311 Useless use of hash slice in void context at - line 30.
312 Useless use of unpack in void context at - line 31.
313 Useless use of pack in void context at - line 32.
314 Useless use of join or string in void context at - line 33.
315 Useless use of list slice in void context at - line 34.
316 Useless use of sort in void context at - line 37.
317 Useless use of reverse in void context at - line 38.
318 Useless use of range (or flop) in void context at - line 41.
319 Useless use of caller in void context at - line 42.
320 Useless use of fileno in void context at - line 43.
321 Useless use of eof in void context at - line 44.
322 Useless use of tell in void context at - line 45.
323 Useless use of readlink in void context at - line 46.
324 Useless use of time in void context at - line 47.
325 Useless use of localtime in void context at - line 48.
326 Useless use of gmtime in void context at - line 49.
327 Useless use of getgrnam in void context at - line 50.
328 Useless use of getgrgid in void context at - line 51.
329 Useless use of getpwnam in void context at - line 52.
330 Useless use of getpwuid in void context at - line 53.
333 no warnings 'void' ; close STDIN ;
336 wantarray ; # OP_WANTARRAY
346 defined $a ; # OP_DEFINED
349 length $a ; # OP_LENGTH
350 substr $a,1 ; # OP_SUBSTR
351 vec $a,1,2 ; # OP_VEC
352 index $a,1,2 ; # OP_INDEX
353 rindex $a,1,2 ; # OP_RINDEX
354 sprintf $a ; # OP_SPRINTF
358 #values %a ; # OP_VALUES
362 unpack "a", "a" ; # OP_UNPACK
363 pack $a,"" ; # OP_PACK
365 (@a)[0,1] ; # OP_LSLICE
368 sort(1,2) ; # OP_SORT
369 reverse(1,2) ; # OP_REVERSE
374 fileno STDIN ; # OP_FILENO
376 tell STDIN ; # OP_TELL
377 readlink 1; # OP_READLINK
379 localtime ; # OP_LOCALTIME
381 eval { getgrnam 1 }; # OP_GGRNAM
382 eval { getgrgid 1 }; # OP_GGRGID
383 eval { getpwnam 1 }; # OP_GPWNAM
384 eval { getpwuid 1 }; # OP_GPWUID
388 use warnings 'void' ;
389 for (@{[0]}) { "$_" } # check warning isn't duplicated
391 for (@{[0]}) { "$_" } # check warning isn't duplicated
393 Useless use of string in void context at - line 3.
396 use warnings 'void' ;
399 if ( ! $Config{d_telldir}) {
402 # telldir not present
407 telldir 1 ; # OP_TELLDIR
409 telldir 1 ; # OP_TELLDIR
411 Useless use of telldir in void context at - line 13.
414 use warnings 'void' ;
417 if ( ! $Config{d_getppid}) {
420 # getppid not present
425 getppid ; # OP_GETPPID
427 getppid ; # OP_GETPPID
429 Useless use of getppid in void context at - line 13.
432 use warnings 'void' ;
435 if ( ! $Config{d_getpgrp}) {
438 # getpgrp not present
443 getpgrp ; # OP_GETPGRP
445 getpgrp ; # OP_GETPGRP
447 Useless use of getpgrp in void context at - line 13.
450 use warnings 'void' ;
453 if ( ! $Config{d_times}) {
465 Useless use of times in void context at - line 13.
468 use warnings 'void' ;
471 if ( ! $Config{d_getprior} or $^O eq 'os2') { # Locks before fixpak22
474 # getpriority not present
479 getpriority 1,2; # OP_GETPRIORITY
481 getpriority 1,2; # OP_GETPRIORITY
483 Useless use of getpriority in void context at - line 13.
486 use warnings 'void' ;
489 if ( ! $Config{d_getlogin}) {
492 # getlogin not present
497 getlogin ; # OP_GETLOGIN
499 getlogin ; # OP_GETLOGIN
501 Useless use of getlogin in void context at - line 13.
504 use warnings 'void' ;
506 if ( ! $Config{d_socket}) {
509 # getsockname not present
510 # getpeername not present
511 # gethostbyname not present
512 # gethostbyaddr not present
513 # gethostent not present
514 # getnetbyname not present
515 # getnetbyaddr not present
516 # getnetent not present
517 # getprotobyname not present
518 # getprotobynumber not present
519 # getprotoent not present
520 # getservbyname not present
521 # getservbyport not present
522 # getservent not present
526 getsockname STDIN ; # OP_GETSOCKNAME
527 getpeername STDIN ; # OP_GETPEERNAME
528 gethostbyname 1 ; # OP_GHBYNAME
529 gethostbyaddr 1,2; # OP_GHBYADDR
530 gethostent ; # OP_GHOSTENT
531 getnetbyname 1 ; # OP_GNBYNAME
532 getnetbyaddr 1,2 ; # OP_GNBYADDR
533 getnetent ; # OP_GNETENT
534 getprotobyname 1; # OP_GPBYNAME
535 getprotobynumber 1; # OP_GPBYNUMBER
536 getprotoent ; # OP_GPROTOENT
537 getservbyname 1,2; # OP_GSBYNAME
538 getservbyport 1,2; # OP_GSBYPORT
539 getservent ; # OP_GSERVENT
542 getsockname STDIN ; # OP_GETSOCKNAME
543 getpeername STDIN ; # OP_GETPEERNAME
544 gethostbyname 1 ; # OP_GHBYNAME
545 gethostbyaddr 1,2; # OP_GHBYADDR
546 gethostent ; # OP_GHOSTENT
547 getnetbyname 1 ; # OP_GNBYNAME
548 getnetbyaddr 1,2 ; # OP_GNBYADDR
549 getnetent ; # OP_GNETENT
550 getprotobyname 1; # OP_GPBYNAME
551 getprotobynumber 1; # OP_GPBYNUMBER
552 getprotoent ; # OP_GPROTOENT
553 getservbyname 1,2; # OP_GSBYNAME
554 getservbyport 1,2; # OP_GSBYPORT
555 getservent ; # OP_GSERVENT
557 # some functions may not be there, so we exit without running
561 Useless use of getsockname in void context at - line 24.
562 Useless use of getpeername in void context at - line 25.
563 Useless use of gethostbyname in void context at - line 26.
564 Useless use of gethostbyaddr in void context at - line 27.
565 Useless use of gethostent in void context at - line 28.
566 Useless use of getnetbyname in void context at - line 29.
567 Useless use of getnetbyaddr in void context at - line 30.
568 Useless use of getnetent in void context at - line 31.
569 Useless use of getprotobyname in void context at - line 32.
570 Useless use of getprotobynumber in void context at - line 33.
571 Useless use of getprotoent in void context at - line 34.
572 Useless use of getservbyname in void context at - line 35.
573 Useless use of getservbyport in void context at - line 36.
574 Useless use of getservent in void context at - line 37.
577 use warnings 'void' ;
588 Useless use of a variable in void context at - line 3.
589 Useless use of a variable in void context at - line 4.
590 Useless use of a variable in void context at - line 5.
591 Useless use of a variable in void context at - line 6.
594 use warnings 'void' ;
601 Useless use of a constant in void context at - line 3.
602 Useless use of a constant in void context at - line 4.
606 use warnings 'misc' ;
607 my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;
622 my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;
637 Applying pattern match (m//) to @array will act on scalar(@array) at - line 5.
638 Applying substitution (s///) to @array will act on scalar(@array) at - line 6.
639 Applying transliteration (tr///) to @array will act on scalar(@array) at - line 7.
640 Applying pattern match (m//) to @array will act on scalar(@array) at - line 8.
641 Applying substitution (s///) to @array will act on scalar(@array) at - line 9.
642 Applying transliteration (tr///) to @array will act on scalar(@array) at - line 10.
643 Applying pattern match (m//) to %hash will act on scalar(%hash) at - line 11.
644 Applying substitution (s///) to %hash will act on scalar(%hash) at - line 12.
645 Applying transliteration (tr///) to %hash will act on scalar(%hash) at - line 13.
646 Applying pattern match (m//) to %hash will act on scalar(%hash) at - line 14.
647 Applying substitution (s///) to %hash will act on scalar(%hash) at - line 15.
648 Applying transliteration (tr///) to %hash will act on scalar(%hash) at - line 16.
649 Can't modify private array in substitution (s///) at - line 6, near "s/a/b/ ;"
650 BEGIN not safe after errors--compilation aborted at - line 18.
653 use warnings 'syntax' ;
655 no warnings 'syntax' ;
658 Parentheses missing around "my" list at - line 3.
661 use warnings 'syntax' ;
662 local $a, $b = (1,2);
663 no warnings 'syntax' ;
664 local $c, $d = (1,2);
666 Parentheses missing around "local" list at - line 3.
669 use warnings 'bareword' ;
671 no warnings 'bareword' ;
674 Bareword found in conditional at - line 3.
680 use warnings 'misc' ;
682 $x = 1 if $x = <FH> ;
684 $x = 1 if $x = <FH> ;
686 Value of <HANDLE> construct can be "0"; test with defined() at - line 4.
689 use warnings 'misc' ;
691 $x = 1 if $x = readdir FH ;
693 $x = 1 if $x = readdir FH ;
696 Value of readdir() operator can be "0"; test with defined() at - line 4.
699 use warnings 'misc' ;
704 Value of glob construct can be "0"; test with defined() at - line 3.
707 use warnings 'misc' ;
709 $x = 1 if $x = each %a ;
711 $x = 1 if $x = each %a ;
713 Value of each() operator can be "0"; test with defined() at - line 4.
716 use warnings 'misc' ;
717 $x = 1 while $x = <*> and 0 ;
719 $x = 1 while $x = <*> and 0 ;
721 Value of glob construct can be "0"; test with defined() at - line 3.
724 use warnings 'misc' ;
726 $x = 1 while $x = readdir FH and 0 ;
728 $x = 1 while $x = readdir FH and 0 ;
731 Value of readdir() operator can be "0"; test with defined() at - line 4.
734 use warnings 'redefine' ;
737 no warnings 'redefine' ;
740 Subroutine fred redefined at - line 4.
743 use warnings 'redefine' ;
746 no warnings 'redefine' ;
749 Constant subroutine fred redefined at - line 4.
752 no warnings 'redefine' ;
756 Constant subroutine fred redefined at - line 4.
759 no warnings 'redefine' ;
761 *fred = sub () { 2 };
763 Constant subroutine fred redefined at - line 4.
766 use warnings 'redefine' ;
771 no warnings 'redefine' ;
775 Format FRED redefined at - line 5.
778 use warnings 'deprecated' ;
780 no warnings 'deprecated' ;
783 Array @FRED missing the @ in argument 1 of push() at - line 3.
786 use warnings 'deprecated' ;
788 no warnings 'deprecated' ;
791 Hash %FRED missing the % in argument 1 of keys() at - line 3.
794 use warnings 'syntax' ;
798 Statement unlikely to be reached at - line 4.
799 (Maybe you meant system() when you said exec()?)
802 use warnings 'deprecated' ;
805 defined(@array) is deprecated at - line 3.
806 (Maybe you should just omit the defined()?)
809 use warnings 'deprecated' ;
810 defined(@a = (1,2,3));
812 defined(@array) is deprecated at - line 3.
813 (Maybe you should just omit the defined()?)
816 use warnings 'deprecated' ;
819 defined(%hash) is deprecated at - line 3.
820 (Maybe you should just omit the defined()?)
823 no warnings 'syntax' ;
833 Prototype mismatch: sub main::fred () vs ($) at - line 3.
840 no warnings 'prototype' ;
843 use warnings 'prototype' ;
850 Prototype mismatch: sub main::fred () vs ($) at - line 4.
851 Prototype mismatch: sub main::freD () vs ($) at - line 11.
852 Prototype mismatch: sub main::FRED () vs ($) at - line 14.
855 use warnings 'syntax' ;
856 join /---/, 'x', 'y', 'z';
858 /---/ should probably be written as "---" at - line 3.
861 use warnings 'prototype' ;
864 no warnings 'prototype' ;
868 main::fred() called too early to check prototype at - line 3.
870 # op.c [Perl_newATTRSUB]
872 use warnings 'void' ;
873 BEGIN { $| = 1; print "in begin\n"; }
874 CHECK { print "in check\n"; }
875 INIT { print "in init\n"; }
876 END { print "in end\n"; }
877 print "in mainline\n";
881 delete $INC{"abc.pm"};
890 Too late to run CHECK block at abc.pm line 3.
891 Too late to run INIT block at abc.pm line 4.
894 Too late to run CHECK block at abc.pm line 3.
895 Too late to run INIT block at abc.pm line 4.
901 # op.c [Perl_newATTRSUB]
904 BEGIN { $| = 1; print "in begin\n"; }
905 CHECK { print "in check\n"; }
906 INIT { print "in init\n"; }
907 END { print "in end\n"; }
908 print "in mainline\n";
923 use warnings 'syntax' ;
926 no warnings 'syntax' ;
930 Useless use of push with no values at - line 4.
931 Useless use of unshift with no values at - line 5.
934 use warnings 'deprecated' ;
936 no warnings 'deprecated' ;
939 Use of "package" with no arguments is deprecated at - line 3.
940 Global symbol "BEGIN" requires explicit package name at - line 4.
941 BEGIN not safe after errors--compilation aborted at - line 4.