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 Probable precedence problem on logical or at -e line 1.
62 use warnings 'syntax'; 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 "---"
104 Prototype mismatch: [cv_ckproto]
108 %s never introduced [pad_leavemy] TODO
109 Runaway prototype [newSUB] TODO
110 oops: oopsAV [oopsAV] TODO
111 oops: oopsHV [oopsHV] TODO
116 use warnings 'unsafe' ;
119 no warnings 'unsafe' ;
122 "my" variable $x masks earlier declaration in same scope at - line 4.
125 use warnings 'unsafe' ;
133 Variable "$x" will not stay shared at - line 7.
136 no warnings 'unsafe' ;
147 use warnings 'unsafe' ;
155 Variable "$x" may be unavailable at - line 6.
158 no warnings 'unsafe' ;
169 use warnings 'syntax' ;
171 no warnings 'syntax' ;
174 Found = in conditional, should be == at - line 3.
177 use warnings 'deprecated' ;
179 no warnings 'deprecated' ;
182 Use of implicit split to @_ is deprecated at - line 3.
185 use warnings 'deprecated' ;
187 no warnings 'deprecated' ;
190 Use of implicit split to @_ is deprecated at - line 3.
193 use warnings 'void' ; close STDIN ;
196 wantarray ; # OP_WANTARRAY
206 defined $a ; # OP_DEFINED
209 length $a ; # OP_LENGTH
210 substr $a,1 ; # OP_SUBSTR
211 vec $a,1,2 ; # OP_VEC
212 index $a,1,2 ; # OP_INDEX
213 rindex $a,1,2 ; # OP_RINDEX
214 sprintf $a ; # OP_SPRINTF
218 #values %a ; # OP_VALUES
222 unpack "a", "a" ; # OP_UNPACK
223 pack $a,"" ; # OP_PACK
225 (@a)[0,1] ; # OP_LSLICE
228 sort(1,2) ; # OP_SORT
229 reverse(1,2) ; # OP_REVERSE
234 fileno STDIN ; # OP_FILENO
236 tell STDIN ; # OP_TELL
237 readlink 1; # OP_READLINK
239 localtime ; # OP_LOCALTIME
241 eval { getgrnam 1 }; # OP_GGRNAM
242 eval { getgrgid 1 }; # OP_GGRGID
243 eval { getpwnam 1 }; # OP_GPWNAM
244 eval { getpwuid 1 }; # OP_GPWUID
246 Useless use of repeat in void context at - line 3.
247 Useless use of wantarray in void context at - line 5.
248 Useless use of reference-type operator in void context at - line 12.
249 Useless use of reference constructor in void context at - line 13.
250 Useless use of single ref constructor in void context at - line 14.
251 Useless use of defined operator in void context at - line 15.
252 Useless use of hex in void context at - line 16.
253 Useless use of oct in void context at - line 17.
254 Useless use of length in void context at - line 18.
255 Useless use of substr in void context at - line 19.
256 Useless use of vec in void context at - line 20.
257 Useless use of index in void context at - line 21.
258 Useless use of rindex in void context at - line 22.
259 Useless use of sprintf in void context at - line 23.
260 Useless use of array element in void context at - line 24.
261 Useless use of array slice in void context at - line 26.
262 Useless use of hash elem in void context at - line 29.
263 Useless use of hash slice in void context at - line 30.
264 Useless use of unpack in void context at - line 31.
265 Useless use of pack in void context at - line 32.
266 Useless use of join in void context at - line 33.
267 Useless use of list slice in void context at - line 34.
268 Useless use of sort in void context at - line 37.
269 Useless use of reverse in void context at - line 38.
270 Useless use of range (or flop) in void context at - line 41.
271 Useless use of caller in void context at - line 42.
272 Useless use of fileno in void context at - line 43.
273 Useless use of eof in void context at - line 44.
274 Useless use of tell in void context at - line 45.
275 Useless use of readlink in void context at - line 46.
276 Useless use of time in void context at - line 47.
277 Useless use of localtime in void context at - line 48.
278 Useless use of gmtime in void context at - line 49.
279 Useless use of getgrnam in void context at - line 50.
280 Useless use of getgrgid in void context at - line 51.
281 Useless use of getpwnam in void context at - line 52.
282 Useless use of getpwuid in void context at - line 53.
285 no warnings 'void' ; close STDIN ;
288 wantarray ; # OP_WANTARRAY
298 defined $a ; # OP_DEFINED
301 length $a ; # OP_LENGTH
302 substr $a,1 ; # OP_SUBSTR
303 vec $a,1,2 ; # OP_VEC
304 index $a,1,2 ; # OP_INDEX
305 rindex $a,1,2 ; # OP_RINDEX
306 sprintf $a ; # OP_SPRINTF
310 #values %a ; # OP_VALUES
314 unpack "a", "a" ; # OP_UNPACK
315 pack $a,"" ; # OP_PACK
317 (@a)[0,1] ; # OP_LSLICE
320 sort(1,2) ; # OP_SORT
321 reverse(1,2) ; # OP_REVERSE
326 fileno STDIN ; # OP_FILENO
328 tell STDIN ; # OP_TELL
329 readlink 1; # OP_READLINK
331 localtime ; # OP_LOCALTIME
333 eval { getgrnam 1 }; # OP_GGRNAM
334 eval { getgrgid 1 }; # OP_GGRGID
335 eval { getpwnam 1 }; # OP_GPWNAM
336 eval { getpwuid 1 }; # OP_GPWUID
340 use warnings 'void' ;
341 for (@{[0]}) { "$_" } # check warning isn't duplicated
343 for (@{[0]}) { "$_" } # check warning isn't duplicated
345 Useless use of string in void context at - line 3.
348 use warnings 'void' ;
351 if ( ! $Config{d_telldir}) {
354 # telldir not present
359 telldir 1 ; # OP_TELLDIR
361 telldir 1 ; # OP_TELLDIR
363 Useless use of telldir in void context at - line 13.
366 use warnings 'void' ;
369 if ( ! $Config{d_getppid}) {
372 # getppid not present
377 getppid ; # OP_GETPPID
379 getppid ; # OP_GETPPID
381 Useless use of getppid in void context at - line 13.
384 use warnings 'void' ;
387 if ( ! $Config{d_getpgrp}) {
390 # getpgrp not present
395 getpgrp ; # OP_GETPGRP
397 getpgrp ; # OP_GETPGRP
399 Useless use of getpgrp in void context at - line 13.
402 use warnings 'void' ;
405 if ( ! $Config{d_times}) {
417 Useless use of times in void context at - line 13.
420 use warnings 'void' ;
423 if ( ! $Config{d_getprior} or $^O eq 'os2') { # Locks before fixpak22
426 # getpriority not present
431 getpriority 1,2; # OP_GETPRIORITY
433 getpriority 1,2; # OP_GETPRIORITY
435 Useless use of getpriority in void context at - line 13.
438 use warnings 'void' ;
441 if ( ! $Config{d_getlogin}) {
444 # getlogin not present
449 getlogin ; # OP_GETLOGIN
451 getlogin ; # OP_GETLOGIN
453 Useless use of getlogin in void context at - line 13.
456 use warnings 'void' ;
458 if ( ! $Config{d_socket}) {
461 # getsockname not present
462 # getpeername not present
463 # gethostbyname not present
464 # gethostbyaddr not present
465 # gethostent not present
466 # getnetbyname not present
467 # getnetbyaddr not present
468 # getnetent not present
469 # getprotobyname not present
470 # getprotobynumber not present
471 # getprotoent not present
472 # getservbyname not present
473 # getservbyport not present
474 # getservent not present
478 getsockname STDIN ; # OP_GETSOCKNAME
479 getpeername STDIN ; # OP_GETPEERNAME
480 gethostbyname 1 ; # OP_GHBYNAME
481 gethostbyaddr 1,2; # OP_GHBYADDR
482 gethostent ; # OP_GHOSTENT
483 getnetbyname 1 ; # OP_GNBYNAME
484 getnetbyaddr 1,2 ; # OP_GNBYADDR
485 getnetent ; # OP_GNETENT
486 getprotobyname 1; # OP_GPBYNAME
487 getprotobynumber 1; # OP_GPBYNUMBER
488 getprotoent ; # OP_GPROTOENT
489 getservbyname 1,2; # OP_GSBYNAME
490 getservbyport 1,2; # OP_GSBYPORT
491 getservent ; # OP_GSERVENT
494 getsockname STDIN ; # OP_GETSOCKNAME
495 getpeername STDIN ; # OP_GETPEERNAME
496 gethostbyname 1 ; # OP_GHBYNAME
497 gethostbyaddr 1,2; # OP_GHBYADDR
498 gethostent ; # OP_GHOSTENT
499 getnetbyname 1 ; # OP_GNBYNAME
500 getnetbyaddr 1,2 ; # OP_GNBYADDR
501 getnetent ; # OP_GNETENT
502 getprotobyname 1; # OP_GPBYNAME
503 getprotobynumber 1; # OP_GPBYNUMBER
504 getprotoent ; # OP_GPROTOENT
505 getservbyname 1,2; # OP_GSBYNAME
506 getservbyport 1,2; # OP_GSBYPORT
507 getservent ; # OP_GSERVENT
509 # some functions may not be there, so we exit without running
513 Useless use of getsockname in void context at - line 24.
514 Useless use of getpeername in void context at - line 25.
515 Useless use of gethostbyname in void context at - line 26.
516 Useless use of gethostbyaddr in void context at - line 27.
517 Useless use of gethostent in void context at - line 28.
518 Useless use of getnetbyname in void context at - line 29.
519 Useless use of getnetbyaddr in void context at - line 30.
520 Useless use of getnetent in void context at - line 31.
521 Useless use of getprotobyname in void context at - line 32.
522 Useless use of getprotobynumber in void context at - line 33.
523 Useless use of getprotoent in void context at - line 34.
524 Useless use of getservbyname in void context at - line 35.
525 Useless use of getservbyport in void context at - line 36.
526 Useless use of getservent in void context at - line 37.
529 use warnings 'void' ;
540 Useless use of a variable in void context at - line 3.
541 Useless use of a variable in void context at - line 4.
542 Useless use of a variable in void context at - line 5.
543 Useless use of a variable in void context at - line 6.
546 use warnings 'void' ;
553 Useless use of a constant in void context at - line 3.
554 Useless use of a constant in void context at - line 4.
557 $ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3; # known scalar leak
558 use warnings 'unsafe' ;
559 my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;
573 no warnings 'unsafe' ;
574 my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;
589 Applying pattern match to @array will act on scalar(@array) at - line 5.
590 Applying substitution to @array will act on scalar(@array) at - line 6.
591 Can't modify private array in substitution at - line 6, near "s/a/b/ ;"
592 Applying character translation to @array will act on scalar(@array) at - line 7.
593 Applying pattern match to @array will act on scalar(@array) at - line 8.
594 Applying substitution to @array will act on scalar(@array) at - line 9.
595 Applying character translation to @array will act on scalar(@array) at - line 10.
596 Applying pattern match to %hash will act on scalar(%hash) at - line 11.
597 Applying substitution to %hash will act on scalar(%hash) at - line 12.
598 Applying character translation to %hash will act on scalar(%hash) at - line 13.
599 Applying pattern match to %hash will act on scalar(%hash) at - line 14.
600 Applying substitution to %hash will act on scalar(%hash) at - line 15.
601 Applying character translation to %hash will act on scalar(%hash) at - line 16.
602 BEGIN not safe after errors--compilation aborted at - line 18.
605 use warnings 'syntax' ;
607 no warnings 'syntax' ;
610 Parentheses missing around "my" list at - line 3.
613 use warnings 'syntax' ;
614 local $a, $b = (1,2);
615 no warnings 'syntax' ;
616 local $c, $d = (1,2);
618 Parentheses missing around "local" list at - line 3.
621 use warnings 'syntax' ;
623 no warnings 'syntax' ;
626 Probable precedence problem on logical or at - line 3.
632 use warnings 'unsafe' ;
634 $x = 1 if $x = <FH> ;
635 no warnings 'unsafe' ;
636 $x = 1 if $x = <FH> ;
638 Value of <HANDLE> construct can be "0"; test with defined() at - line 4.
641 use warnings 'unsafe' ;
643 $x = 1 if $x = readdir FH ;
644 no warnings 'unsafe' ;
645 $x = 1 if $x = readdir FH ;
648 Value of readdir() operator can be "0"; test with defined() at - line 4.
651 use warnings 'unsafe' ;
653 no warnings 'unsafe' ;
656 Value of glob construct can be "0"; test with defined() at - line 3.
659 use warnings 'unsafe' ;
661 $x = 1 if $x = each %a ;
662 no warnings 'unsafe' ;
663 $x = 1 if $x = each %a ;
665 Value of each() operator can be "0"; test with defined() at - line 4.
668 use warnings 'unsafe' ;
669 $x = 1 while $x = <*> and 0 ;
670 no warnings 'unsafe' ;
671 $x = 1 while $x = <*> and 0 ;
673 Value of glob construct can be "0"; test with defined() at - line 3.
676 use warnings 'unsafe' ;
678 $x = 1 while $x = readdir FH and 0 ;
679 no warnings 'unsafe' ;
680 $x = 1 while $x = readdir FH and 0 ;
683 Value of readdir() operator can be "0"; test with defined() at - line 4.
686 use warnings 'redefine' ;
689 no warnings 'redefine' ;
692 Subroutine fred redefined at - line 4.
695 use warnings 'redefine' ;
698 no warnings 'redefine' ;
701 Constant subroutine fred redefined at - line 4.
704 use warnings 'redefine' ;
709 no warnings 'redefine' ;
713 Format FRED redefined at - line 5.
716 use warnings 'syntax' ;
718 no warnings 'syntax' ;
721 Array @FRED missing the @ in argument 1 of push() at - line 3.
724 use warnings 'syntax' ;
726 no warnings 'syntax' ;
729 Hash %FRED missing the % in argument 1 of keys() at - line 3.
732 use warnings 'syntax' ;
736 Statement unlikely to be reached at - line 4.
737 (Maybe you meant system() when you said exec()?)
740 use warnings 'deprecated' ;
743 defined(@array) is deprecated at - line 3.
744 (Maybe you should just omit the defined()?)
747 use warnings 'deprecated' ;
748 defined(@a = (1,2,3));
750 defined(@array) is deprecated at - line 3.
751 (Maybe you should just omit the defined()?)
754 use warnings 'deprecated' ;
757 defined(%hash) is deprecated at - line 3.
758 (Maybe you should just omit the defined()?)
761 no warnings 'syntax' ;
771 Prototype mismatch: sub main::fred () vs ($) at - line 3.
778 no warnings 'unsafe' ;
781 use warnings 'unsafe' ;
788 Prototype mismatch: sub main::fred () vs ($) at - line 4.
789 Prototype mismatch: sub main::freD () vs ($) at - line 11.
790 Prototype mismatch: sub main::FRED () vs ($) at - line 14.
793 use warnings 'syntax' ;
794 join /---/, 'x', 'y', 'z';
796 /---/ should probably be written as "---" at - line 3.