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()?)
94 defined (@a = (1,2,3)) ;
96 defined(%hash) is deprecated
97 (Maybe you should just omit the defined()?)
103 Prototype mismatch: [cv_ckproto]
107 %s never introduced [pad_leavemy] TODO
108 Runaway prototype [newSUB] TODO
109 oops: oopsAV [oopsAV] TODO
110 oops: oopsHV [oopsHV] TODO
117 use warning 'unsafe' ;
120 no warning 'unsafe' ;
123 "my" variable $x masks earlier declaration in same scope at - line 4.
126 use warning 'unsafe' ;
134 Variable "$x" will not stay shared at - line 7.
137 no warning 'unsafe' ;
148 use warning 'unsafe' ;
156 Variable "$x" may be unavailable at - line 6.
159 no warning 'unsafe' ;
170 use warning 'syntax' ;
172 no warning 'syntax' ;
175 Found = in conditional, should be == at - line 3.
178 use warning 'deprecated' ;
180 no warning 'deprecated' ;
183 Use of implicit split to @_ is deprecated at - line 3.
186 use warning 'deprecated' ;
188 no warning 'deprecated' ;
191 Use of implicit split to @_ is deprecated at - line 3.
194 use warning 'void' ; close STDIN ;
197 wantarray ; # OP_WANTARRAY
207 defined $a ; # OP_DEFINED
210 length $a ; # OP_LENGTH
211 substr $a,1 ; # OP_SUBSTR
212 vec $a,1,2 ; # OP_VEC
213 index $a,1,2 ; # OP_INDEX
214 rindex $a,1,2 ; # OP_RINDEX
215 sprintf $a ; # OP_SPRINTF
219 #values %a ; # OP_VALUES
223 unpack "a", "a" ; # OP_UNPACK
224 pack $a,"" ; # OP_PACK
226 (@a)[0,1] ; # OP_LSLICE
229 sort(1,2) ; # OP_SORT
230 reverse(1,2) ; # OP_REVERSE
235 fileno STDIN ; # OP_FILENO
237 tell STDIN ; # OP_TELL
238 readlink 1; # OP_READLINK
240 localtime ; # OP_LOCALTIME
242 eval { getgrnam 1 }; # OP_GGRNAM
243 eval { getgrgid 1 }; # OP_GGRGID
244 eval { getpwnam 1 }; # OP_GPWNAM
245 eval { getpwuid 1 }; # OP_GPWUID
247 Useless use of repeat in void context at - line 3.
248 Useless use of wantarray in void context at - line 5.
249 Useless use of reference-type operator in void context at - line 12.
250 Useless use of reference constructor in void context at - line 13.
251 Useless use of single ref constructor in void context at - line 14.
252 Useless use of defined operator in void context at - line 15.
253 Useless use of hex in void context at - line 16.
254 Useless use of oct in void context at - line 17.
255 Useless use of length in void context at - line 18.
256 Useless use of substr in void context at - line 19.
257 Useless use of vec in void context at - line 20.
258 Useless use of index in void context at - line 21.
259 Useless use of rindex in void context at - line 22.
260 Useless use of sprintf in void context at - line 23.
261 Useless use of array element in void context at - line 24.
262 Useless use of array slice in void context at - line 26.
263 Useless use of hash elem in void context at - line 29.
264 Useless use of hash slice in void context at - line 30.
265 Useless use of unpack in void context at - line 31.
266 Useless use of pack in void context at - line 32.
267 Useless use of join in void context at - line 33.
268 Useless use of list slice in void context at - line 34.
269 Useless use of sort in void context at - line 37.
270 Useless use of reverse in void context at - line 38.
271 Useless use of range (or flop) in void context at - line 41.
272 Useless use of caller in void context at - line 42.
273 Useless use of fileno in void context at - line 43.
274 Useless use of eof in void context at - line 44.
275 Useless use of tell in void context at - line 45.
276 Useless use of readlink in void context at - line 46.
277 Useless use of time in void context at - line 47.
278 Useless use of localtime in void context at - line 48.
279 Useless use of gmtime in void context at - line 49.
280 Useless use of getgrnam in void context at - line 50.
281 Useless use of getgrgid in void context at - line 51.
282 Useless use of getpwnam in void context at - line 52.
283 Useless use of getpwuid in void context at - line 53.
286 no warning 'void' ; close STDIN ;
289 wantarray ; # OP_WANTARRAY
299 defined $a ; # OP_DEFINED
302 length $a ; # OP_LENGTH
303 substr $a,1 ; # OP_SUBSTR
304 vec $a,1,2 ; # OP_VEC
305 index $a,1,2 ; # OP_INDEX
306 rindex $a,1,2 ; # OP_RINDEX
307 sprintf $a ; # OP_SPRINTF
311 #values %a ; # OP_VALUES
315 unpack "a", "a" ; # OP_UNPACK
316 pack $a,"" ; # OP_PACK
318 (@a)[0,1] ; # OP_LSLICE
321 sort(1,2) ; # OP_SORT
322 reverse(1,2) ; # OP_REVERSE
327 fileno STDIN ; # OP_FILENO
329 tell STDIN ; # OP_TELL
330 readlink 1; # OP_READLINK
332 localtime ; # OP_LOCALTIME
334 eval { getgrnam 1 }; # OP_GGRNAM
335 eval { getgrgid 1 }; # OP_GGRGID
336 eval { getpwnam 1 }; # OP_GPWNAM
337 eval { getpwuid 1 }; # OP_GPWUID
342 for (@{[0]}) { "$_" } # check warning isn't duplicated
344 for (@{[0]}) { "$_" } # check warning isn't duplicated
346 Useless use of string in void context at - line 3.
352 if ( ! $Config{d_telldir}) {
355 # telldir not present
360 telldir 1 ; # OP_TELLDIR
362 telldir 1 ; # OP_TELLDIR
364 Useless use of telldir in void context at - line 13.
370 if ( ! $Config{d_getppid}) {
373 # getppid not present
378 getppid ; # OP_GETPPID
380 getppid ; # OP_GETPPID
382 Useless use of getppid in void context at - line 13.
388 if ( ! $Config{d_getpgrp}) {
391 # getpgrp not present
396 getpgrp ; # OP_GETPGRP
398 getpgrp ; # OP_GETPGRP
400 Useless use of getpgrp in void context at - line 13.
406 if ( ! $Config{d_times}) {
418 Useless use of times in void context at - line 13.
424 if ( ! $Config{d_getprior} or $^O eq 'os2') { # Locks before fixpak22
427 # getpriority not present
432 getpriority 1,2; # OP_GETPRIORITY
434 getpriority 1,2; # OP_GETPRIORITY
436 Useless use of getpriority in void context at - line 13.
442 if ( ! $Config{d_getlogin}) {
445 # getlogin not present
450 getlogin ; # OP_GETLOGIN
452 getlogin ; # OP_GETLOGIN
454 Useless use of getlogin in void context at - line 13.
459 if ( ! $Config{d_socket}) {
462 # getsockname not present
463 # getpeername not present
464 # gethostbyname not present
465 # gethostbyaddr not present
466 # gethostent not present
467 # getnetbyname not present
468 # getnetbyaddr not present
469 # getnetent not present
470 # getprotobyname not present
471 # getprotobynumber not present
472 # getprotoent not present
473 # getservbyname not present
474 # getservbyport not present
475 # getservent not present
479 getsockname STDIN ; # OP_GETSOCKNAME
480 getpeername STDIN ; # OP_GETPEERNAME
481 gethostbyname 1 ; # OP_GHBYNAME
482 gethostbyaddr 1,2; # OP_GHBYADDR
483 gethostent ; # OP_GHOSTENT
484 getnetbyname 1 ; # OP_GNBYNAME
485 getnetbyaddr 1,2 ; # OP_GNBYADDR
486 getnetent ; # OP_GNETENT
487 getprotobyname 1; # OP_GPBYNAME
488 getprotobynumber 1; # OP_GPBYNUMBER
489 getprotoent ; # OP_GPROTOENT
490 getservbyname 1,2; # OP_GSBYNAME
491 getservbyport 1,2; # OP_GSBYPORT
492 getservent ; # OP_GSERVENT
495 getsockname STDIN ; # OP_GETSOCKNAME
496 getpeername STDIN ; # OP_GETPEERNAME
497 gethostbyname 1 ; # OP_GHBYNAME
498 gethostbyaddr 1,2; # OP_GHBYADDR
499 gethostent ; # OP_GHOSTENT
500 getnetbyname 1 ; # OP_GNBYNAME
501 getnetbyaddr 1,2 ; # OP_GNBYADDR
502 getnetent ; # OP_GNETENT
503 getprotobyname 1; # OP_GPBYNAME
504 getprotobynumber 1; # OP_GPBYNUMBER
505 getprotoent ; # OP_GPROTOENT
506 getservbyname 1,2; # OP_GSBYNAME
507 getservbyport 1,2; # OP_GSBYPORT
508 getservent ; # OP_GSERVENT
510 # some functions may not be there, so we exit without running
514 Useless use of getsockname in void context at - line 24.
515 Useless use of getpeername in void context at - line 25.
516 Useless use of gethostbyname in void context at - line 26.
517 Useless use of gethostbyaddr in void context at - line 27.
518 Useless use of gethostent in void context at - line 28.
519 Useless use of getnetbyname in void context at - line 29.
520 Useless use of getnetbyaddr in void context at - line 30.
521 Useless use of getnetent in void context at - line 31.
522 Useless use of getprotobyname in void context at - line 32.
523 Useless use of getprotobynumber in void context at - line 33.
524 Useless use of getprotoent in void context at - line 34.
525 Useless use of getservbyname in void context at - line 35.
526 Useless use of getservbyport in void context at - line 36.
527 Useless use of getservent in void context at - line 37.
541 Useless use of a variable in void context at - line 3.
542 Useless use of a variable in void context at - line 4.
543 Useless use of a variable in void context at - line 5.
544 Useless use of a variable in void context at - line 6.
554 Useless use of a constant in void context at - line 3.
555 Useless use of a constant in void context at - line 4.
558 $ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3; # known scalar leak
559 use warning 'unsafe' ;
560 my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;
574 no warning 'unsafe' ;
575 my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;
590 Applying pattern match to @array will act on scalar(@array) at - line 5.
591 Applying substitution to @array will act on scalar(@array) at - line 6.
592 Can't modify private array in substitution at - line 6, near "s/a/b/ ;"
593 Applying character translation to @array will act on scalar(@array) at - line 7.
594 Applying pattern match to @array will act on scalar(@array) at - line 8.
595 Applying substitution to @array will act on scalar(@array) at - line 9.
596 Applying character translation to @array will act on scalar(@array) at - line 10.
597 Applying pattern match to %hash will act on scalar(%hash) at - line 11.
598 Applying substitution to %hash will act on scalar(%hash) at - line 12.
599 Applying character translation to %hash will act on scalar(%hash) at - line 13.
600 Applying pattern match to %hash will act on scalar(%hash) at - line 14.
601 Applying substitution to %hash will act on scalar(%hash) at - line 15.
602 Applying character translation to %hash will act on scalar(%hash) at - line 16.
603 BEGIN not safe after errors--compilation aborted at - line 18.
606 use warning 'syntax' ;
608 no warning 'syntax' ;
611 Parentheses missing around "my" list at - line 3.
614 use warning 'syntax' ;
615 local $a, $b = (1,2);
616 no warning 'syntax' ;
617 local $c, $d = (1,2);
619 Parentheses missing around "local" list at - line 3.
622 use warning 'syntax' ;
624 no warning 'syntax' ;
627 Probable precedence problem on logical or at - line 3.
633 use warning 'unsafe' ;
635 $x = 1 if $x = <FH> ;
636 no warning 'unsafe' ;
637 $x = 1 if $x = <FH> ;
639 Value of <HANDLE> construct can be "0"; test with defined() at - line 4.
642 use warning 'unsafe' ;
644 $x = 1 if $x = readdir FH ;
645 no warning 'unsafe' ;
646 $x = 1 if $x = readdir FH ;
649 Value of readdir() operator can be "0"; test with defined() at - line 4.
652 use warning 'unsafe' ;
654 no warning 'unsafe' ;
657 Value of glob construct can be "0"; test with defined() at - line 3.
660 use warning 'unsafe' ;
662 $x = 1 if $x = each %a ;
663 no warning 'unsafe' ;
664 $x = 1 if $x = each %a ;
666 Value of each() operator can be "0"; test with defined() at - line 4.
669 use warning 'unsafe' ;
670 $x = 1 while $x = <*> and 0 ;
671 no warning 'unsafe' ;
672 $x = 1 while $x = <*> and 0 ;
674 Value of glob construct can be "0"; test with defined() at - line 3.
677 use warning 'unsafe' ;
679 $x = 1 while $x = readdir FH and 0 ;
680 no warning 'unsafe' ;
681 $x = 1 while $x = readdir FH and 0 ;
684 Value of readdir() operator can be "0"; test with defined() at - line 4.
687 use warning 'redefine' ;
690 no warning 'redefine' ;
693 Subroutine fred redefined at - line 4.
696 use warning 'redefine' ;
699 no warning 'redefine' ;
702 Constant subroutine fred redefined at - line 4.
705 use warning 'redefine' ;
710 no warning 'redefine' ;
714 Format FRED redefined at - line 5.
717 use warning 'syntax' ;
719 no warning 'syntax' ;
722 Array @FRED missing the @ in argument 1 of push() at - line 3.
725 use warning 'syntax' ;
727 no warning 'syntax' ;
730 Hash %FRED missing the % in argument 1 of keys() at - line 3.
733 use warning 'syntax' ;
737 Statement unlikely to be reached at - line 4.
738 (Maybe you meant system() when you said exec()?)
741 use warning 'deprecated' ;
744 defined(@array) is deprecated at - line 3.
745 (Maybe you should just omit the defined()?)
748 use warning 'deprecated' ;
751 defined(@array) is deprecated at - line 3.
752 (Maybe you should just omit the defined()?)
755 use warning 'deprecated' ;
756 defined(@a = (1,2,3));
758 defined(@array) is deprecated at - line 3.
759 (Maybe you should just omit the defined()?)
762 use warning 'deprecated' ;
765 defined(%hash) is deprecated at - line 3.
766 (Maybe you should just omit the defined()?)
769 use warning 'deprecated' ;
772 defined(%hash) is deprecated at - line 3.
773 (Maybe you should just omit the defined()?)
776 no warning 'syntax' ;
786 Prototype mismatch: sub main::fred () vs ($) at - line 3.
793 no warning 'unsafe' ;
796 use warning 'unsafe' ;
803 Prototype mismatch: sub main::fred () vs ($) at - line 4.
804 Prototype mismatch: sub main::freD () vs ($) at - line 11.
805 Prototype mismatch: sub main::FRED () vs ($) at - line 14.