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 use warning 'unsafe' ;
559 my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;
573 no warning '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 4.
590 Applying substitution to @array will act on scalar(@array) at - line 5.
591 Can't modify private array in substitution at - line 5, near "s/a/b/ ;"
592 Applying character translation to @array will act on scalar(@array) at - line 6.
593 Applying pattern match to @array will act on scalar(@array) at - line 7.
594 Applying substitution to @array will act on scalar(@array) at - line 8.
595 Applying character translation to @array will act on scalar(@array) at - line 9.
596 Applying pattern match to %hash will act on scalar(%hash) at - line 10.
597 Applying substitution to %hash will act on scalar(%hash) at - line 11.
598 Applying character translation to %hash will act on scalar(%hash) at - line 12.
599 Applying pattern match to %hash will act on scalar(%hash) at - line 13.
600 Applying substitution to %hash will act on scalar(%hash) at - line 14.
601 Applying character translation to %hash will act on scalar(%hash) at - line 15.
602 BEGIN not safe after errors--compilation aborted at - line 17.
605 use warning 'syntax' ;
607 no warning 'syntax' ;
610 Parentheses missing around "my" list at - line 3.
613 use warning 'syntax' ;
614 local $a, $b = (1,2);
615 no warning 'syntax' ;
616 local $c, $d = (1,2);
618 Parentheses missing around "local" list at - line 3.
621 use warning 'syntax' ;
623 no warning 'syntax' ;
626 Probable precedence problem on logical or at - line 3.
632 use warning 'unsafe' ;
634 $x = 1 if $x = <FH> ;
635 no warning 'unsafe' ;
636 $x = 1 if $x = <FH> ;
638 Value of <HANDLE> construct can be "0"; test with defined() at - line 4.
641 use warning 'unsafe' ;
643 $x = 1 if $x = readdir FH ;
644 no warning 'unsafe' ;
645 $x = 1 if $x = readdir FH ;
648 Value of readdir() operator can be "0"; test with defined() at - line 4.
651 use warning 'unsafe' ;
653 no warning 'unsafe' ;
656 Value of glob construct can be "0"; test with defined() at - line 3.
659 use warning 'unsafe' ;
661 $x = 1 if $x = each %a ;
662 no warning 'unsafe' ;
663 $x = 1 if $x = each %a ;
665 Value of each() operator can be "0"; test with defined() at - line 4.
668 use warning 'unsafe' ;
669 $x = 1 while $x = <*> and 0 ;
670 no warning 'unsafe' ;
671 $x = 1 while $x = <*> and 0 ;
673 Value of glob construct can be "0"; test with defined() at - line 3.
676 use warning 'unsafe' ;
678 $x = 1 while $x = readdir FH and 0 ;
679 no warning '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 warning 'redefine' ;
689 no warning 'redefine' ;
692 Subroutine fred redefined at - line 4.
695 use warning 'redefine' ;
698 no warning 'redefine' ;
701 Constant subroutine fred redefined at - line 4.
704 use warning 'redefine' ;
709 no warning 'redefine' ;
713 Format FRED redefined at - line 5.
716 use warning 'syntax' ;
718 no warning 'syntax' ;
721 Array @FRED missing the @ in argument 1 of push() at - line 3.
724 use warning 'syntax' ;
726 no warning 'syntax' ;
729 Hash %FRED missing the % in argument 1 of keys() at - line 3.
732 use warning 'syntax' ;
736 Statement unlikely to be reached at - line 4.
737 (Maybe you meant system() when you said exec()?)
740 use warning 'deprecated' ;
743 defined(@array) is deprecated at - line 3.
744 (Maybe you should just omit the defined()?)
747 use warning 'deprecated' ;
750 defined(@array) is deprecated at - line 3.
751 (Maybe you should just omit the defined()?)
754 use warning 'deprecated' ;
755 defined(@a = (1,2,3));
757 defined(@array) is deprecated at - line 3.
758 (Maybe you should just omit the defined()?)
761 use warning 'deprecated' ;
764 defined(%hash) is deprecated at - line 3.
765 (Maybe you should just omit the defined()?)
768 use warning 'deprecated' ;
771 defined(%hash) is deprecated at - line 3.
772 (Maybe you should just omit the defined()?)
775 no warning 'syntax' ;
785 Prototype mismatch: sub main::fred () vs ($) at - line 3.
792 no warning 'unsafe' ;
795 use warning 'unsafe' ;
802 Prototype mismatch: sub main::fred () vs ($) at - line 4.
803 Prototype mismatch: sub main::freD () vs ($) at - line 11.
804 Prototype mismatch: sub main::FRED () vs ($) at - line 14.