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 ($$) {}
108 Prototype mismatch: [cv_ckproto]
112 %s never introduced [pad_leavemy] TODO
113 Runaway prototype [newSUB] TODO
114 oops: oopsAV [oopsAV] TODO
115 oops: oopsHV [oopsHV] TODO
120 use warnings 'misc' ;
126 "my" variable $x masks earlier declaration in same scope at - line 4.
129 use warnings 'closure' ;
137 Variable "$x" will not stay shared at - line 7.
140 no warnings 'closure' ;
151 use warnings 'closure' ;
159 Variable "$x" may be unavailable at - line 6.
162 no warnings 'closure' ;
173 use warnings 'syntax' ;
175 no warnings 'syntax' ;
178 Found = in conditional, should be == at - line 3.
181 use warnings 'deprecated' ;
183 no warnings 'deprecated' ;
186 Use of implicit split to @_ is deprecated at - line 3.
189 use warnings 'deprecated' ;
191 no warnings 'deprecated' ;
194 Use of implicit split to @_ is deprecated at - line 3.
197 use warnings 'void' ; close STDIN ;
200 wantarray ; # OP_WANTARRAY
210 defined $a ; # OP_DEFINED
213 length $a ; # OP_LENGTH
214 substr $a,1 ; # OP_SUBSTR
215 vec $a,1,2 ; # OP_VEC
216 index $a,1,2 ; # OP_INDEX
217 rindex $a,1,2 ; # OP_RINDEX
218 sprintf $a ; # OP_SPRINTF
222 #values %a ; # OP_VALUES
226 unpack "a", "a" ; # OP_UNPACK
227 pack $a,"" ; # OP_PACK
229 (@a)[0,1] ; # OP_LSLICE
232 sort(1,2) ; # OP_SORT
233 reverse(1,2) ; # OP_REVERSE
238 fileno STDIN ; # OP_FILENO
240 tell STDIN ; # OP_TELL
241 readlink 1; # OP_READLINK
243 localtime ; # OP_LOCALTIME
245 eval { getgrnam 1 }; # OP_GGRNAM
246 eval { getgrgid 1 }; # OP_GGRGID
247 eval { getpwnam 1 }; # OP_GPWNAM
248 eval { getpwuid 1 }; # OP_GPWUID
250 Useless use of repeat (x) in void context at - line 3.
251 Useless use of wantarray in void context at - line 5.
252 Useless use of reference-type operator in void context at - line 12.
253 Useless use of reference constructor in void context at - line 13.
254 Useless use of single ref constructor in void context at - line 14.
255 Useless use of defined operator in void context at - line 15.
256 Useless use of hex in void context at - line 16.
257 Useless use of oct in void context at - line 17.
258 Useless use of length in void context at - line 18.
259 Useless use of substr in void context at - line 19.
260 Useless use of vec in void context at - line 20.
261 Useless use of index in void context at - line 21.
262 Useless use of rindex in void context at - line 22.
263 Useless use of sprintf in void context at - line 23.
264 Useless use of array element in void context at - line 24.
265 Useless use of array slice in void context at - line 26.
266 Useless use of hash element in void context at - line 29.
267 Useless use of hash slice in void context at - line 30.
268 Useless use of unpack in void context at - line 31.
269 Useless use of pack in void context at - line 32.
270 Useless use of join in void context at - line 33.
271 Useless use of list slice in void context at - line 34.
272 Useless use of sort in void context at - line 37.
273 Useless use of reverse in void context at - line 38.
274 Useless use of range (or flop) in void context at - line 41.
275 Useless use of caller in void context at - line 42.
276 Useless use of fileno in void context at - line 43.
277 Useless use of eof in void context at - line 44.
278 Useless use of tell in void context at - line 45.
279 Useless use of readlink in void context at - line 46.
280 Useless use of time in void context at - line 47.
281 Useless use of localtime in void context at - line 48.
282 Useless use of gmtime in void context at - line 49.
283 Useless use of getgrnam in void context at - line 50.
284 Useless use of getgrgid in void context at - line 51.
285 Useless use of getpwnam in void context at - line 52.
286 Useless use of getpwuid in void context at - line 53.
289 no warnings 'void' ; close STDIN ;
292 wantarray ; # OP_WANTARRAY
302 defined $a ; # OP_DEFINED
305 length $a ; # OP_LENGTH
306 substr $a,1 ; # OP_SUBSTR
307 vec $a,1,2 ; # OP_VEC
308 index $a,1,2 ; # OP_INDEX
309 rindex $a,1,2 ; # OP_RINDEX
310 sprintf $a ; # OP_SPRINTF
314 #values %a ; # OP_VALUES
318 unpack "a", "a" ; # OP_UNPACK
319 pack $a,"" ; # OP_PACK
321 (@a)[0,1] ; # OP_LSLICE
324 sort(1,2) ; # OP_SORT
325 reverse(1,2) ; # OP_REVERSE
330 fileno STDIN ; # OP_FILENO
332 tell STDIN ; # OP_TELL
333 readlink 1; # OP_READLINK
335 localtime ; # OP_LOCALTIME
337 eval { getgrnam 1 }; # OP_GGRNAM
338 eval { getgrgid 1 }; # OP_GGRGID
339 eval { getpwnam 1 }; # OP_GPWNAM
340 eval { getpwuid 1 }; # OP_GPWUID
344 use warnings 'void' ;
345 for (@{[0]}) { "$_" } # check warning isn't duplicated
347 for (@{[0]}) { "$_" } # check warning isn't duplicated
349 Useless use of string in void context at - line 3.
352 use warnings 'void' ;
355 if ( ! $Config{d_telldir}) {
358 # telldir not present
363 telldir 1 ; # OP_TELLDIR
365 telldir 1 ; # OP_TELLDIR
367 Useless use of telldir in void context at - line 13.
370 use warnings 'void' ;
373 if ( ! $Config{d_getppid}) {
376 # getppid not present
381 getppid ; # OP_GETPPID
383 getppid ; # OP_GETPPID
385 Useless use of getppid in void context at - line 13.
388 use warnings 'void' ;
391 if ( ! $Config{d_getpgrp}) {
394 # getpgrp not present
399 getpgrp ; # OP_GETPGRP
401 getpgrp ; # OP_GETPGRP
403 Useless use of getpgrp in void context at - line 13.
406 use warnings 'void' ;
409 if ( ! $Config{d_times}) {
421 Useless use of times in void context at - line 13.
424 use warnings 'void' ;
427 if ( ! $Config{d_getprior} or $^O eq 'os2') { # Locks before fixpak22
430 # getpriority not present
435 getpriority 1,2; # OP_GETPRIORITY
437 getpriority 1,2; # OP_GETPRIORITY
439 Useless use of getpriority in void context at - line 13.
442 use warnings 'void' ;
445 if ( ! $Config{d_getlogin}) {
448 # getlogin not present
453 getlogin ; # OP_GETLOGIN
455 getlogin ; # OP_GETLOGIN
457 Useless use of getlogin in void context at - line 13.
460 use warnings 'void' ;
462 if ( ! $Config{d_socket}) {
465 # getsockname not present
466 # getpeername not present
467 # gethostbyname not present
468 # gethostbyaddr not present
469 # gethostent not present
470 # getnetbyname not present
471 # getnetbyaddr not present
472 # getnetent not present
473 # getprotobyname not present
474 # getprotobynumber not present
475 # getprotoent not present
476 # getservbyname not present
477 # getservbyport not present
478 # getservent not present
482 getsockname STDIN ; # OP_GETSOCKNAME
483 getpeername STDIN ; # OP_GETPEERNAME
484 gethostbyname 1 ; # OP_GHBYNAME
485 gethostbyaddr 1,2; # OP_GHBYADDR
486 gethostent ; # OP_GHOSTENT
487 getnetbyname 1 ; # OP_GNBYNAME
488 getnetbyaddr 1,2 ; # OP_GNBYADDR
489 getnetent ; # OP_GNETENT
490 getprotobyname 1; # OP_GPBYNAME
491 getprotobynumber 1; # OP_GPBYNUMBER
492 getprotoent ; # OP_GPROTOENT
493 getservbyname 1,2; # OP_GSBYNAME
494 getservbyport 1,2; # OP_GSBYPORT
495 getservent ; # OP_GSERVENT
498 getsockname STDIN ; # OP_GETSOCKNAME
499 getpeername STDIN ; # OP_GETPEERNAME
500 gethostbyname 1 ; # OP_GHBYNAME
501 gethostbyaddr 1,2; # OP_GHBYADDR
502 gethostent ; # OP_GHOSTENT
503 getnetbyname 1 ; # OP_GNBYNAME
504 getnetbyaddr 1,2 ; # OP_GNBYADDR
505 getnetent ; # OP_GNETENT
506 getprotobyname 1; # OP_GPBYNAME
507 getprotobynumber 1; # OP_GPBYNUMBER
508 getprotoent ; # OP_GPROTOENT
509 getservbyname 1,2; # OP_GSBYNAME
510 getservbyport 1,2; # OP_GSBYPORT
511 getservent ; # OP_GSERVENT
513 # some functions may not be there, so we exit without running
517 Useless use of getsockname in void context at - line 24.
518 Useless use of getpeername in void context at - line 25.
519 Useless use of gethostbyname in void context at - line 26.
520 Useless use of gethostbyaddr in void context at - line 27.
521 Useless use of gethostent in void context at - line 28.
522 Useless use of getnetbyname in void context at - line 29.
523 Useless use of getnetbyaddr in void context at - line 30.
524 Useless use of getnetent in void context at - line 31.
525 Useless use of getprotobyname in void context at - line 32.
526 Useless use of getprotobynumber in void context at - line 33.
527 Useless use of getprotoent in void context at - line 34.
528 Useless use of getservbyname in void context at - line 35.
529 Useless use of getservbyport in void context at - line 36.
530 Useless use of getservent in void context at - line 37.
533 use warnings 'void' ;
544 Useless use of a variable in void context at - line 3.
545 Useless use of a variable in void context at - line 4.
546 Useless use of a variable in void context at - line 5.
547 Useless use of a variable in void context at - line 6.
550 use warnings 'void' ;
557 Useless use of a constant in void context at - line 3.
558 Useless use of a constant in void context at - line 4.
561 BEGIN{ $ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3; } # known scalar leak
562 use warnings 'misc' ;
563 my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;
578 my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;
593 Applying pattern match (m//) to @array will act on scalar(@array) at - line 5.
594 Applying substitution (s///) to @array will act on scalar(@array) at - line 6.
595 Can't modify private array in substitution (s///) at - line 6, near "s/a/b/ ;"
596 Applying transliteration (tr///) to @array will act on scalar(@array) at - line 7.
597 Applying pattern match (m//) to @array will act on scalar(@array) at - line 8.
598 Applying substitution (s///) to @array will act on scalar(@array) at - line 9.
599 Applying transliteration (tr///) to @array will act on scalar(@array) at - line 10.
600 Applying pattern match (m//) to %hash will act on scalar(%hash) at - line 11.
601 Applying substitution (s///) to %hash will act on scalar(%hash) at - line 12.
602 Applying transliteration (tr///) to %hash will act on scalar(%hash) at - line 13.
603 Applying pattern match (m//) to %hash will act on scalar(%hash) at - line 14.
604 Applying substitution (s///) to %hash will act on scalar(%hash) at - line 15.
605 Applying transliteration (tr///) to %hash will act on scalar(%hash) at - line 16.
606 BEGIN not safe after errors--compilation aborted at - line 18.
609 use warnings 'syntax' ;
611 no warnings 'syntax' ;
614 Parentheses missing around "my" list at - line 3.
617 use warnings 'syntax' ;
618 local $a, $b = (1,2);
619 no warnings 'syntax' ;
620 local $c, $d = (1,2);
622 Parentheses missing around "local" list at - line 3.
625 use warnings 'bareword' ;
627 no warnings 'bareword' ;
630 Bareword found in conditional at - line 3.
636 use warnings 'misc' ;
638 $x = 1 if $x = <FH> ;
640 $x = 1 if $x = <FH> ;
642 Value of <HANDLE> construct can be "0"; test with defined() at - line 4.
645 use warnings 'misc' ;
647 $x = 1 if $x = readdir FH ;
649 $x = 1 if $x = readdir FH ;
652 Value of readdir() operator can be "0"; test with defined() at - line 4.
655 use warnings 'misc' ;
660 Value of glob construct can be "0"; test with defined() at - line 3.
663 use warnings 'misc' ;
665 $x = 1 if $x = each %a ;
667 $x = 1 if $x = each %a ;
669 Value of each() operator can be "0"; test with defined() at - line 4.
672 use warnings 'misc' ;
673 $x = 1 while $x = <*> and 0 ;
675 $x = 1 while $x = <*> and 0 ;
677 Value of glob construct can be "0"; test with defined() at - line 3.
680 use warnings 'misc' ;
682 $x = 1 while $x = readdir FH and 0 ;
684 $x = 1 while $x = readdir FH and 0 ;
687 Value of readdir() operator can be "0"; test with defined() at - line 4.
690 use warnings 'redefine' ;
693 no warnings 'redefine' ;
696 Subroutine fred redefined at - line 4.
699 use warnings 'redefine' ;
702 no warnings 'redefine' ;
705 Constant subroutine fred redefined at - line 4.
708 use warnings 'redefine' ;
713 no warnings 'redefine' ;
717 Format FRED redefined at - line 5.
720 use warnings 'deprecated' ;
722 no warnings 'deprecated' ;
725 Array @FRED missing the @ in argument 1 of push() at - line 3.
728 use warnings 'deprecated' ;
730 no warnings 'deprecated' ;
733 Hash %FRED missing the % in argument 1 of keys() at - line 3.
736 use warnings 'syntax' ;
740 Statement unlikely to be reached at - line 4.
741 (Maybe you meant system() when you said exec()?)
744 use warnings 'deprecated' ;
747 defined(@array) is deprecated at - line 3.
748 (Maybe you should just omit the defined()?)
751 use warnings 'deprecated' ;
752 defined(@a = (1,2,3));
754 defined(@array) is deprecated at - line 3.
755 (Maybe you should just omit the defined()?)
758 use warnings 'deprecated' ;
761 defined(%hash) is deprecated at - line 3.
762 (Maybe you should just omit the defined()?)
765 no warnings 'syntax' ;
775 Prototype mismatch: sub main::fred () vs ($) at - line 3.
782 no warnings 'prototype' ;
785 use warnings 'prototype' ;
792 Prototype mismatch: sub main::fred () vs ($) at - line 4.
793 Prototype mismatch: sub main::freD () vs ($) at - line 11.
794 Prototype mismatch: sub main::FRED () vs ($) at - line 14.
797 use warnings 'syntax' ;
798 join /---/, 'x', 'y', 'z';
800 /---/ should probably be written as "---" at - line 3.
803 use warnings 'prototype' ;
806 no warnings 'prototype' ;
810 main::fred() called too early to check prototype at - line 3.