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 warning '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()?)
101 Prototype mismatch: [cv_ckproto]
105 %s never introduced [pad_leavemy] TODO
106 Runaway prototype [newSUB] TODO
107 oops: oopsAV [oopsAV] TODO
108 oops: oopsHV [oopsHV] TODO
115 use warning 'unsafe' ;
118 no warning 'unsafe' ;
121 "my" variable $x masks earlier declaration in same scope at - line 4.
124 use warning 'unsafe' ;
132 Variable "$x" will not stay shared at - line 7.
135 no warning 'unsafe' ;
146 use warning 'unsafe' ;
154 Variable "$x" may be unavailable at - line 6.
157 no warning 'unsafe' ;
168 use warning 'syntax' ;
170 no warning 'syntax' ;
173 Found = in conditional, should be == at - line 3.
176 use warning 'deprecated' ;
178 no warning 'deprecated' ;
181 Use of implicit split to @_ is deprecated at - line 3.
184 use warning 'deprecated' ;
186 no warning 'deprecated' ;
189 Use of implicit split to @_ is deprecated at - line 3.
192 use warning 'void' ; close STDIN ;
195 wantarray ; # OP_WANTARRAY
205 defined $a ; # OP_DEFINED
208 length $a ; # OP_LENGTH
209 substr $a,1 ; # OP_SUBSTR
210 vec $a,1,2 ; # OP_VEC
211 index $a,1,2 ; # OP_INDEX
212 rindex $a,1,2 ; # OP_RINDEX
213 sprintf $a ; # OP_SPRINTF
217 #values %a ; # OP_VALUES
221 unpack "a", "a" ; # OP_UNPACK
222 pack $a,"" ; # OP_PACK
224 (@a)[0,1] ; # OP_LSLICE
227 sort(1,2) ; # OP_SORT
228 reverse(1,2) ; # OP_REVERSE
233 fileno STDIN ; # OP_FILENO
235 tell STDIN ; # OP_TELL
236 readlink 1; # OP_READLINK
238 localtime ; # OP_LOCALTIME
240 eval { getgrnam 1 }; # OP_GGRNAM
241 eval { getgrgid 1 }; # OP_GGRGID
242 eval { getpwnam 1 }; # OP_GPWNAM
243 eval { getpwuid 1 }; # OP_GPWUID
245 Useless use of repeat in void context at - line 3.
246 Useless use of wantarray in void context at - line 5.
247 Useless use of reference-type operator in void context at - line 12.
248 Useless use of reference constructor in void context at - line 13.
249 Useless use of single ref constructor in void context at - line 14.
250 Useless use of defined operator in void context at - line 15.
251 Useless use of hex in void context at - line 16.
252 Useless use of oct in void context at - line 17.
253 Useless use of length in void context at - line 18.
254 Useless use of substr in void context at - line 19.
255 Useless use of vec in void context at - line 20.
256 Useless use of index in void context at - line 21.
257 Useless use of rindex in void context at - line 22.
258 Useless use of sprintf in void context at - line 23.
259 Useless use of array element in void context at - line 24.
260 Useless use of array slice in void context at - line 26.
261 Useless use of hash elem in void context at - line 29.
262 Useless use of hash slice in void context at - line 30.
263 Useless use of unpack in void context at - line 31.
264 Useless use of pack in void context at - line 32.
265 Useless use of join in void context at - line 33.
266 Useless use of list slice in void context at - line 34.
267 Useless use of sort in void context at - line 37.
268 Useless use of reverse in void context at - line 38.
269 Useless use of range (or flop) in void context at - line 41.
270 Useless use of caller in void context at - line 42.
271 Useless use of fileno in void context at - line 43.
272 Useless use of eof in void context at - line 44.
273 Useless use of tell in void context at - line 45.
274 Useless use of readlink in void context at - line 46.
275 Useless use of time in void context at - line 47.
276 Useless use of localtime in void context at - line 48.
277 Useless use of gmtime in void context at - line 49.
278 Useless use of getgrnam in void context at - line 50.
279 Useless use of getgrgid in void context at - line 51.
280 Useless use of getpwnam in void context at - line 52.
281 Useless use of getpwuid in void context at - line 53.
284 no warning 'void' ; close STDIN ;
287 wantarray ; # OP_WANTARRAY
297 defined $a ; # OP_DEFINED
300 length $a ; # OP_LENGTH
301 substr $a,1 ; # OP_SUBSTR
302 vec $a,1,2 ; # OP_VEC
303 index $a,1,2 ; # OP_INDEX
304 rindex $a,1,2 ; # OP_RINDEX
305 sprintf $a ; # OP_SPRINTF
309 #values %a ; # OP_VALUES
313 unpack "a", "a" ; # OP_UNPACK
314 pack $a,"" ; # OP_PACK
316 (@a)[0,1] ; # OP_LSLICE
319 sort(1,2) ; # OP_SORT
320 reverse(1,2) ; # OP_REVERSE
325 fileno STDIN ; # OP_FILENO
327 tell STDIN ; # OP_TELL
328 readlink 1; # OP_READLINK
330 localtime ; # OP_LOCALTIME
332 eval { getgrnam 1 }; # OP_GGRNAM
333 eval { getgrgid 1 }; # OP_GGRGID
334 eval { getpwnam 1 }; # OP_GPWNAM
335 eval { getpwuid 1 }; # OP_GPWUID
340 for (@{[0]}) { "$_" } # check warning isn't duplicated
342 for (@{[0]}) { "$_" } # check warning isn't duplicated
344 Useless use of string in void context at - line 3.
350 if ( ! $Config{d_telldir}) {
353 # telldir not present
358 telldir 1 ; # OP_TELLDIR
360 telldir 1 ; # OP_TELLDIR
362 Useless use of telldir in void context at - line 13.
368 if ( ! $Config{d_getppid}) {
371 # getppid not present
376 getppid ; # OP_GETPPID
378 getppid ; # OP_GETPPID
380 Useless use of getppid in void context at - line 13.
386 if ( ! $Config{d_getpgrp}) {
389 # getpgrp not present
394 getpgrp ; # OP_GETPGRP
396 getpgrp ; # OP_GETPGRP
398 Useless use of getpgrp in void context at - line 13.
404 if ( ! $Config{d_times}) {
416 Useless use of times in void context at - line 13.
422 if ( ! $Config{d_getprior} or $^O eq 'os2') { # Locks before fixpak22
425 # getpriority not present
430 getpriority 1,2; # OP_GETPRIORITY
432 getpriority 1,2; # OP_GETPRIORITY
434 Useless use of getpriority in void context at - line 13.
440 if ( ! $Config{d_getlogin}) {
443 # getlogin not present
448 getlogin ; # OP_GETLOGIN
450 getlogin ; # OP_GETLOGIN
452 Useless use of getlogin in void context at - line 13.
457 if ( ! $Config{d_socket}) {
460 # getsockname not present
461 # getpeername not present
462 # gethostbyname not present
463 # gethostbyaddr not present
464 # gethostent not present
465 # getnetbyname not present
466 # getnetbyaddr not present
467 # getnetent not present
468 # getprotobyname not present
469 # getprotobynumber not present
470 # getprotoent not present
471 # getservbyname not present
472 # getservbyport not present
473 # getservent not present
477 getsockname STDIN ; # OP_GETSOCKNAME
478 getpeername STDIN ; # OP_GETPEERNAME
479 gethostbyname 1 ; # OP_GHBYNAME
480 gethostbyaddr 1,2; # OP_GHBYADDR
481 gethostent ; # OP_GHOSTENT
482 getnetbyname 1 ; # OP_GNBYNAME
483 getnetbyaddr 1,2 ; # OP_GNBYADDR
484 getnetent ; # OP_GNETENT
485 getprotobyname 1; # OP_GPBYNAME
486 getprotobynumber 1; # OP_GPBYNUMBER
487 getprotoent ; # OP_GPROTOENT
488 getservbyname 1,2; # OP_GSBYNAME
489 getservbyport 1,2; # OP_GSBYPORT
490 getservent ; # OP_GSERVENT
493 getsockname STDIN ; # OP_GETSOCKNAME
494 getpeername STDIN ; # OP_GETPEERNAME
495 gethostbyname 1 ; # OP_GHBYNAME
496 gethostbyaddr 1,2; # OP_GHBYADDR
497 gethostent ; # OP_GHOSTENT
498 getnetbyname 1 ; # OP_GNBYNAME
499 getnetbyaddr 1,2 ; # OP_GNBYADDR
500 getnetent ; # OP_GNETENT
501 getprotobyname 1; # OP_GPBYNAME
502 getprotobynumber 1; # OP_GPBYNUMBER
503 getprotoent ; # OP_GPROTOENT
504 getservbyname 1,2; # OP_GSBYNAME
505 getservbyport 1,2; # OP_GSBYPORT
506 getservent ; # OP_GSERVENT
508 # some functions may not be there, so we exit without running
512 Useless use of getsockname in void context at - line 24.
513 Useless use of getpeername in void context at - line 25.
514 Useless use of gethostbyname in void context at - line 26.
515 Useless use of gethostbyaddr in void context at - line 27.
516 Useless use of gethostent in void context at - line 28.
517 Useless use of getnetbyname in void context at - line 29.
518 Useless use of getnetbyaddr in void context at - line 30.
519 Useless use of getnetent in void context at - line 31.
520 Useless use of getprotobyname in void context at - line 32.
521 Useless use of getprotobynumber in void context at - line 33.
522 Useless use of getprotoent in void context at - line 34.
523 Useless use of getservbyname in void context at - line 35.
524 Useless use of getservbyport in void context at - line 36.
525 Useless use of getservent in void context at - line 37.
539 Useless use of a variable in void context at - line 3.
540 Useless use of a variable in void context at - line 4.
541 Useless use of a variable in void context at - line 5.
542 Useless use of a variable in void context at - line 6.
552 Useless use of a constant in void context at - line 3.
553 Useless use of a constant in void context at - line 4.
556 $ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3; # known scalar leak
557 use warning 'unsafe' ;
558 my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;
572 no warning 'unsafe' ;
573 my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;
588 Applying pattern match to @array will act on scalar(@array) at - line 5.
589 Applying substitution to @array will act on scalar(@array) at - line 6.
590 Can't modify private array in substitution at - line 6, near "s/a/b/ ;"
591 Applying character translation to @array will act on scalar(@array) at - line 7.
592 Applying pattern match to @array will act on scalar(@array) at - line 8.
593 Applying substitution to @array will act on scalar(@array) at - line 9.
594 Applying character translation to @array will act on scalar(@array) at - line 10.
595 Applying pattern match to %hash will act on scalar(%hash) at - line 11.
596 Applying substitution to %hash will act on scalar(%hash) at - line 12.
597 Applying character translation to %hash will act on scalar(%hash) at - line 13.
598 Applying pattern match to %hash will act on scalar(%hash) at - line 14.
599 Applying substitution to %hash will act on scalar(%hash) at - line 15.
600 Applying character translation to %hash will act on scalar(%hash) at - line 16.
601 BEGIN not safe after errors--compilation aborted at - line 18.
604 use warning 'syntax' ;
606 no warning 'syntax' ;
609 Parentheses missing around "my" list at - line 3.
612 use warning 'syntax' ;
613 local $a, $b = (1,2);
614 no warning 'syntax' ;
615 local $c, $d = (1,2);
617 Parentheses missing around "local" list at - line 3.
620 use warning 'syntax' ;
622 no warning 'syntax' ;
625 Probable precedence problem on logical or at - line 3.
631 use warning 'unsafe' ;
633 $x = 1 if $x = <FH> ;
634 no warning 'unsafe' ;
635 $x = 1 if $x = <FH> ;
637 Value of <HANDLE> construct can be "0"; test with defined() at - line 4.
640 use warning 'unsafe' ;
642 $x = 1 if $x = readdir FH ;
643 no warning 'unsafe' ;
644 $x = 1 if $x = readdir FH ;
647 Value of readdir() operator can be "0"; test with defined() at - line 4.
650 use warning 'unsafe' ;
652 no warning 'unsafe' ;
655 Value of glob construct can be "0"; test with defined() at - line 3.
658 use warning 'unsafe' ;
660 $x = 1 if $x = each %a ;
661 no warning 'unsafe' ;
662 $x = 1 if $x = each %a ;
664 Value of each() operator can be "0"; test with defined() at - line 4.
667 use warning 'unsafe' ;
668 $x = 1 while $x = <*> and 0 ;
669 no warning 'unsafe' ;
670 $x = 1 while $x = <*> and 0 ;
672 Value of glob construct can be "0"; test with defined() at - line 3.
675 use warning 'unsafe' ;
677 $x = 1 while $x = readdir FH and 0 ;
678 no warning 'unsafe' ;
679 $x = 1 while $x = readdir FH and 0 ;
682 Value of readdir() operator can be "0"; test with defined() at - line 4.
685 use warning 'redefine' ;
688 no warning 'redefine' ;
691 Subroutine fred redefined at - line 4.
694 use warning 'redefine' ;
697 no warning 'redefine' ;
700 Constant subroutine fred redefined at - line 4.
703 use warning 'redefine' ;
708 no warning 'redefine' ;
712 Format FRED redefined at - line 5.
715 use warning 'syntax' ;
717 no warning 'syntax' ;
720 Array @FRED missing the @ in argument 1 of push() at - line 3.
723 use warning 'syntax' ;
725 no warning 'syntax' ;
728 Hash %FRED missing the % in argument 1 of keys() at - line 3.
731 use warning 'syntax' ;
735 Statement unlikely to be reached at - line 4.
736 (Maybe you meant system() when you said exec()?)
739 use warning 'deprecated' ;
742 defined(@array) is deprecated at - line 3.
743 (Maybe you should just omit the defined()?)
746 use warning 'deprecated' ;
747 defined(@a = (1,2,3));
749 defined(@array) is deprecated at - line 3.
750 (Maybe you should just omit the defined()?)
753 use warning 'deprecated' ;
756 defined(%hash) is deprecated at - line 3.
757 (Maybe you should just omit the defined()?)
760 no warning 'syntax' ;
770 Prototype mismatch: sub main::fred () vs ($) at - line 3.
777 no warning 'unsafe' ;
780 use warning 'unsafe' ;
787 Prototype mismatch: sub main::fred () vs ($) at - line 4.
788 Prototype mismatch: sub main::freD () vs ($) at - line 11.
789 Prototype mismatch: sub main::FRED () vs ($) at - line 14.