3 Found = in conditional, should be ==
6 Useless use of time in void context
7 Useless use of a variable in void context
8 Useless use of a constant in void context
13 Useless use of sort in scalar context
16 Applying %s to %s will act on scalar(%s)
17 my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;
32 Parentheses missing around "my" list at -e line 1.
35 Parentheses missing around "local" list at -e line 1.
38 Bareword found in conditional at -e line 1.
39 use warnings 'bareword'; my $x = print(ABC || 1);
41 Value of %s may be \"0\"; use \"defined\"
43 $x = 1 while $x = <FH> ;
45 Subroutine fred redefined at -e line 1.
46 sub fred{1;} sub fred{1;}
48 Constant subroutine %s redefined
49 sub fred() {1;} sub fred() {1;}
51 Format FRED redefined at /tmp/x line 5.
57 Array @%s missing the @ in argument %d of %s()
60 Hash %%%s missing the %% in argument %d of %s()
63 Statement unlikely to be reached
64 (Maybe you meant system() when you said exec()?
67 defined(@array) is deprecated
68 (Maybe you should just omit the defined()?)
70 defined (@a = (1,2,3)) ;
72 defined(%hash) is deprecated
73 (Maybe you should just omit the defined()?)
76 /---/ should probably be written as "---"
79 %s() called too early to check prototype [Perl_peep]
80 fred() ; sub fred ($$) {}
83 Package `%s' not found (did you use the incorrect case?)
85 Use of /g modifier is meaningless in split
87 Possible precedence problem on bitwise %c operator [Perl_ck_bitop]
91 Prototype mismatch: [cv_ckproto]
95 Runaway prototype [newSUB] TODO
96 oops: oopsAV [oopsAV] TODO
97 oops: oopsHV [oopsHV] TODO
101 use warnings 'syntax' ;
103 no warnings 'syntax' ;
106 Found = in conditional, should be == at - line 3.
114 $main::foo = {}; %$main::foo->{"bar"};
115 $foo = {}; %$foo->{"bar"};
116 $main::foo = []; @$main::foo->[34];
117 $foo = []; @$foo->[34];
118 no warnings 'deprecated';
123 $main::foo = {}; %$main::foo->{"bar"};
124 $foo = {}; %$foo->{"bar"};
125 $main::foo = []; @$main::foo->[34];
126 $foo = []; @$foo->[34];
128 Using a hash as a reference is deprecated at - line 3.
129 Using a hash as a reference is deprecated at - line 4.
130 Using an array as a reference is deprecated at - line 5.
131 Using an array as a reference is deprecated at - line 6.
132 Using a hash as a reference is deprecated at - line 7.
133 Using a hash as a reference is deprecated at - line 8.
134 Using an array as a reference is deprecated at - line 9.
135 Using an array as a reference is deprecated at - line 10.
138 use warnings 'void' ; close STDIN ;
141 wantarray ; # OP_WANTARRAY
151 defined $a ; # OP_DEFINED
154 length $a ; # OP_LENGTH
155 substr $a,1 ; # OP_SUBSTR
156 vec $a,1,2 ; # OP_VEC
157 index $a,1,2 ; # OP_INDEX
158 rindex $a,1,2 ; # OP_RINDEX
159 sprintf $a ; # OP_SPRINTF
163 #values %a ; # OP_VALUES
167 unpack "a", "a" ; # OP_UNPACK
168 pack $a,"" ; # OP_PACK
170 (@a)[0,1] ; # OP_LSLICE
173 sort(1,2) ; # OP_SORT
174 reverse(1,2) ; # OP_REVERSE
179 fileno STDIN ; # OP_FILENO
181 tell STDIN ; # OP_TELL
182 readlink 1; # OP_READLINK
184 localtime ; # OP_LOCALTIME
186 eval { getgrnam 1 }; # OP_GGRNAM
187 eval { getgrgid 1 }; # OP_GGRGID
188 eval { getpwnam 1 }; # OP_GPWNAM
189 eval { getpwuid 1 }; # OP_GPWUID
190 prototype "foo"; # OP_PROTOTYPE
191 $a ~~ $b; # OP_SMARTMATCH
194 Useless use of repeat (x) in void context at - line 3.
195 Useless use of wantarray in void context at - line 5.
196 Useless use of reference-type operator in void context at - line 12.
197 Useless use of reference constructor in void context at - line 13.
198 Useless use of single ref constructor in void context at - line 14.
199 Useless use of defined operator in void context at - line 15.
200 Useless use of hex in void context at - line 16.
201 Useless use of oct in void context at - line 17.
202 Useless use of length in void context at - line 18.
203 Useless use of substr in void context at - line 19.
204 Useless use of vec in void context at - line 20.
205 Useless use of index in void context at - line 21.
206 Useless use of rindex in void context at - line 22.
207 Useless use of sprintf in void context at - line 23.
208 Useless use of array element in void context at - line 24.
209 Useless use of array slice in void context at - line 26.
210 Useless use of hash element in void context at - line 29.
211 Useless use of hash slice in void context at - line 30.
212 Useless use of unpack in void context at - line 31.
213 Useless use of pack in void context at - line 32.
214 Useless use of join or string in void context at - line 33.
215 Useless use of list slice in void context at - line 34.
216 Useless use of sort in void context at - line 37.
217 Useless use of reverse in void context at - line 38.
218 Useless use of range (or flop) in void context at - line 41.
219 Useless use of caller in void context at - line 42.
220 Useless use of fileno in void context at - line 43.
221 Useless use of eof in void context at - line 44.
222 Useless use of tell in void context at - line 45.
223 Useless use of readlink in void context at - line 46.
224 Useless use of time in void context at - line 47.
225 Useless use of localtime in void context at - line 48.
226 Useless use of gmtime in void context at - line 49.
227 Useless use of getgrnam in void context at - line 50.
228 Useless use of getgrgid in void context at - line 51.
229 Useless use of getpwnam in void context at - line 52.
230 Useless use of getpwuid in void context at - line 53.
231 Useless use of subroutine prototype in void context at - line 54.
232 Useless use of smart match in void context at - line 55.
233 Useless use of numeric comparison (<=>) in void context at - line 56.
236 use warnings 'void' ; close STDIN ;
237 my $x = sort (2,1,3);
241 Useless use of sort in scalar context at - line 3.
244 no warnings 'void' ; close STDIN ;
247 wantarray ; # OP_WANTARRAY
257 defined $a ; # OP_DEFINED
260 length $a ; # OP_LENGTH
261 substr $a,1 ; # OP_SUBSTR
262 vec $a,1,2 ; # OP_VEC
263 index $a,1,2 ; # OP_INDEX
264 rindex $a,1,2 ; # OP_RINDEX
265 sprintf $a ; # OP_SPRINTF
269 #values %a ; # OP_VALUES
273 unpack "a", "a" ; # OP_UNPACK
274 pack $a,"" ; # OP_PACK
276 (@a)[0,1] ; # OP_LSLICE
279 sort(1,2) ; # OP_SORT
280 reverse(1,2) ; # OP_REVERSE
285 fileno STDIN ; # OP_FILENO
287 tell STDIN ; # OP_TELL
288 readlink 1; # OP_READLINK
290 localtime ; # OP_LOCALTIME
292 eval { getgrnam 1 }; # OP_GGRNAM
293 eval { getgrgid 1 }; # OP_GGRGID
294 eval { getpwnam 1 }; # OP_GPWNAM
295 eval { getpwuid 1 }; # OP_GPWUID
296 prototype "foo"; # OP_PROTOTYPE
300 use warnings 'void' ;
301 for (@{[0]}) { "$_" } # check warning isn't duplicated
303 for (@{[0]}) { "$_" } # check warning isn't duplicated
305 Useless use of string in void context at - line 3.
308 use warnings 'void' ;
311 if ( ! $Config{d_telldir}) {
314 # telldir not present
319 telldir 1 ; # OP_TELLDIR
321 telldir 1 ; # OP_TELLDIR
323 Useless use of telldir in void context at - line 13.
326 use warnings 'void' ;
329 if ( ! $Config{d_getppid}) {
332 # getppid not present
337 getppid ; # OP_GETPPID
339 getppid ; # OP_GETPPID
341 Useless use of getppid in void context at - line 13.
344 use warnings 'void' ;
347 if ( ! $Config{d_getpgrp}) {
350 # getpgrp not present
355 getpgrp ; # OP_GETPGRP
357 getpgrp ; # OP_GETPGRP
359 Useless use of getpgrp in void context at - line 13.
362 use warnings 'void' ;
365 if ( ! $Config{d_times}) {
377 Useless use of times in void context at - line 13.
380 use warnings 'void' ;
383 if ( ! $Config{d_getprior} or $^O eq 'os2') { # Locks before fixpak22
386 # getpriority not present
391 getpriority 1,2; # OP_GETPRIORITY
393 getpriority 1,2; # OP_GETPRIORITY
395 Useless use of getpriority in void context at - line 13.
398 use warnings 'void' ;
401 if ( ! $Config{d_getlogin}) {
404 # getlogin not present
409 getlogin ; # OP_GETLOGIN
411 getlogin ; # OP_GETLOGIN
413 Useless use of getlogin in void context at - line 13.
416 use warnings 'void' ;
418 if ( ! $Config{d_socket}) {
421 # getsockname not present
422 # getpeername not present
423 # gethostbyname not present
424 # gethostbyaddr not present
425 # gethostent not present
426 # getnetbyname not present
427 # getnetbyaddr not present
428 # getnetent not present
429 # getprotobyname not present
430 # getprotobynumber not present
431 # getprotoent not present
432 # getservbyname not present
433 # getservbyport not present
434 # getservent not present
438 getsockname STDIN ; # OP_GETSOCKNAME
439 getpeername STDIN ; # OP_GETPEERNAME
440 gethostbyname 1 ; # OP_GHBYNAME
441 gethostbyaddr 1,2; # OP_GHBYADDR
442 gethostent ; # OP_GHOSTENT
443 getnetbyname 1 ; # OP_GNBYNAME
444 getnetbyaddr 1,2 ; # OP_GNBYADDR
445 getnetent ; # OP_GNETENT
446 getprotobyname 1; # OP_GPBYNAME
447 getprotobynumber 1; # OP_GPBYNUMBER
448 getprotoent ; # OP_GPROTOENT
449 getservbyname 1,2; # OP_GSBYNAME
450 getservbyport 1,2; # OP_GSBYPORT
451 getservent ; # OP_GSERVENT
454 getsockname STDIN ; # OP_GETSOCKNAME
455 getpeername STDIN ; # OP_GETPEERNAME
456 gethostbyname 1 ; # OP_GHBYNAME
457 gethostbyaddr 1,2; # OP_GHBYADDR
458 gethostent ; # OP_GHOSTENT
459 getnetbyname 1 ; # OP_GNBYNAME
460 getnetbyaddr 1,2 ; # OP_GNBYADDR
461 getnetent ; # OP_GNETENT
462 getprotobyname 1; # OP_GPBYNAME
463 getprotobynumber 1; # OP_GPBYNUMBER
464 getprotoent ; # OP_GPROTOENT
465 getservbyname 1,2; # OP_GSBYNAME
466 getservbyport 1,2; # OP_GSBYPORT
467 getservent ; # OP_GSERVENT
469 # some functions may not be there, so we exit without running
473 Useless use of getsockname in void context at - line 24.
474 Useless use of getpeername in void context at - line 25.
475 Useless use of gethostbyname in void context at - line 26.
476 Useless use of gethostbyaddr in void context at - line 27.
477 Useless use of gethostent in void context at - line 28.
478 Useless use of getnetbyname in void context at - line 29.
479 Useless use of getnetbyaddr in void context at - line 30.
480 Useless use of getnetent in void context at - line 31.
481 Useless use of getprotobyname in void context at - line 32.
482 Useless use of getprotobynumber in void context at - line 33.
483 Useless use of getprotoent in void context at - line 34.
484 Useless use of getservbyname in void context at - line 35.
485 Useless use of getservbyport in void context at - line 36.
486 Useless use of getservent in void context at - line 37.
489 use warnings 'void' ;
500 Useless use of a variable in void context at - line 3.
501 Useless use of a variable in void context at - line 4.
502 Useless use of a variable in void context at - line 5.
503 Useless use of a variable in void context at - line 6.
506 use warnings 'void' ;
509 "x" . "y"; # optimized to OP_CONST
510 2 + 2; # optimized to OP_CONST
511 use constant U => undef;
513 5 || print "bad\n"; # test OPpCONST_SHORTCIRCUIT
514 print "boo\n" if U; # test OPpCONST_SHORTCIRCUIT
515 $[ = 2; # should not warn
519 "x" . "y"; # optimized to OP_CONST
520 2 + 2; # optimized to OP_CONST
522 Useless use of a constant (abc) in void context at - line 3.
523 Useless use of a constant (7) in void context at - line 4.
524 Useless use of a constant (xy) in void context at - line 5.
525 Useless use of a constant (4) in void context at - line 6.
526 Useless use of a constant (undef) in void context at - line 8.
530 use warnings 'misc' ;
531 my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;my $d = 'test';
548 my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ; my $d = 'test';
565 Applying pattern match (m//) to @array will act on scalar(@array) at - line 5.
566 Applying substitution (s///) to @array will act on scalar(@array) at - line 6.
567 Applying transliteration (tr///) to @array will act on scalar(@array) at - line 7.
568 Applying pattern match (m//) to @array will act on scalar(@array) at - line 8.
569 Applying substitution (s///) to @array will act on scalar(@array) at - line 9.
570 Applying transliteration (tr///) to @array will act on scalar(@array) at - line 10.
571 Applying pattern match (m//) to %hash will act on scalar(%hash) at - line 11.
572 Applying substitution (s///) to %hash will act on scalar(%hash) at - line 12.
573 Applying transliteration (tr///) to %hash will act on scalar(%hash) at - line 13.
574 Applying pattern match (m//) to %hash will act on scalar(%hash) at - line 14.
575 Applying substitution (s///) to %hash will act on scalar(%hash) at - line 15.
576 Applying transliteration (tr///) to %hash will act on scalar(%hash) at - line 16.
577 Useless use of /d modifier in transliteration operator at - line 17.
578 Replacement list is longer than search list at - line 18.
579 Can't modify private array in substitution (s///) at - line 6, near "s/a/b/ ;"
580 BEGIN not safe after errors--compilation aborted at - line 20.
583 use warnings 'parenthesis' ;
585 my @foo,%bar, $quux; # there's a TAB here
587 no warnings 'parenthesis' ;
590 Parentheses missing around "my" list at - line 3.
591 Parentheses missing around "my" list at - line 4.
594 use warnings 'parenthesis' ;
596 no warnings 'parenthesis' ;
599 Parentheses missing around "our" list at - line 3.
602 use warnings 'parenthesis' ;
603 local $a, $b = (1,2);
605 no warnings 'parenthesis' ;
606 local $c, $d = (1,2);
608 Parentheses missing around "local" list at - line 3.
609 Parentheses missing around "local" list at - line 4.
612 use warnings 'bareword' ;
614 no warnings 'bareword' ;
617 Bareword found in conditional at - line 3.
623 use warnings 'misc' ;
625 $x = 1 if $x = <FH> ;
627 $x = 1 if $x = <FH> ;
629 Value of <HANDLE> construct can be "0"; test with defined() at - line 4.
632 use warnings 'misc' ;
634 $x = 1 if $x = readdir FH ;
636 $x = 1 if $x = readdir FH ;
639 Value of readdir() operator can be "0"; test with defined() at - line 4.
642 use warnings 'misc' ;
647 Value of glob construct can be "0"; test with defined() at - line 3.
650 use warnings 'misc' ;
652 $x = 1 if $x = each %a ;
654 $x = 1 if $x = each %a ;
656 Value of each() operator can be "0"; test with defined() at - line 4.
659 use warnings 'misc' ;
660 $x = 1 while $x = <*> and 0 ;
662 $x = 1 while $x = <*> and 0 ;
664 Value of glob construct can be "0"; test with defined() at - line 3.
667 use warnings 'misc' ;
669 $x = 1 while $x = readdir FH and 0 ;
671 $x = 1 while $x = readdir FH and 0 ;
674 Value of readdir() operator can be "0"; test with defined() at - line 4.
679 ($_ = <FH>) // ($_ = 1);
685 use warnings 'redefine' ;
688 no warnings 'redefine' ;
691 Subroutine fred redefined at - line 4.
694 use warnings 'redefine' ;
697 no warnings 'redefine' ;
700 Constant subroutine fred redefined at - line 4.
703 no warnings 'redefine' ;
707 Constant subroutine fred redefined at - line 4.
710 no warnings 'redefine' ;
712 *fred = sub () { 2 };
714 Constant subroutine main::fred redefined at - line 4.
717 use warnings 'redefine' ;
722 no warnings 'redefine' ;
726 Format FRED redefined at - line 5.
730 no warnings 'deprecated' ;
733 Array @FRED missing the @ in argument 1 of push() at - line 2.
737 no warnings 'deprecated' ;
740 Hash %FRED missing the % in argument 1 of keys() at - line 2.
743 use warnings 'syntax' ;
747 Statement unlikely to be reached at - line 4.
748 (Maybe you meant system() when you said exec()?)
753 defined(@array) is deprecated at - line 2.
754 (Maybe you should just omit the defined()?)
757 defined(@a = (1,2,3));
759 defined(@array) is deprecated at - line 2.
760 (Maybe you should just omit the defined()?)
765 defined(%hash) is deprecated at - line 2.
766 (Maybe you should just omit the defined()?)
769 no warnings 'syntax' ;
779 Prototype mismatch: sub main::fred () vs ($) at - line 3.
786 no warnings 'prototype' ;
789 use warnings 'prototype' ;
796 Prototype mismatch: sub main::fred () vs ($) at - line 4.
797 Prototype mismatch: sub main::freD () vs ($) at - line 11.
798 Prototype mismatch: sub main::FRED () vs ($) at - line 14.
801 use warnings 'syntax' ;
802 join /---/, 'x', 'y', 'z';
804 /---/ should probably be written as "---" at - line 3.
807 use warnings 'prototype' ;
810 no warnings 'prototype' ;
814 main::fred() called too early to check prototype at - line 3.
816 # op.c [Perl_newATTRSUB]
818 use warnings 'void' ;
819 BEGIN { $| = 1; print "in begin\n"; }
820 CHECK { print "in check\n"; }
821 INIT { print "in init\n"; }
822 END { print "in end\n"; }
823 print "in mainline\n";
827 delete $INC{"abc.pm"};
836 Too late to run CHECK block at abc.pm line 3.
837 Too late to run INIT block at abc.pm line 4.
840 Too late to run CHECK block at abc.pm line 3.
841 Too late to run INIT block at abc.pm line 4.
847 # op.c [Perl_newATTRSUB]
850 BEGIN { $| = 1; print "in begin\n"; }
851 CHECK { print "in check\n"; }
852 INIT { print "in init\n"; }
853 END { print "in end\n"; }
854 print "in mainline\n";
869 use warnings 'syntax' ;
872 no warnings 'syntax' ;
876 Useless use of push with no values at - line 4.
877 Useless use of unshift with no values at - line 5.
880 # 20020401 mjd@plover.com at suggestion of jfriedl@yahoo.com
881 use warnings 'regexp';
882 split /blah/g, "blah";
883 no warnings 'regexp';
884 split /blah/g, "blah";
886 Use of /g modifier is meaningless in split at - line 4.
889 use warnings 'precedence';
897 $a &= $b == $c; $a |= $b == $c; $a ^= $b == $c; # shouldn't warn
898 no warnings 'precedence';
907 Possible precedence problem on bitwise & operator at - line 3.
908 Possible precedence problem on bitwise ^ operator at - line 4.
909 Possible precedence problem on bitwise | operator at - line 5.
910 Possible precedence problem on bitwise & operator at - line 6.
911 Possible precedence problem on bitwise ^ operator at - line 7.
912 Possible precedence problem on bitwise | operator at - line 8.
913 Possible precedence problem on bitwise & operator at - line 9.
917 use warnings 'precedence';
925 no warnings 'precedence';
934 Possible precedence problem on bitwise & operator at - line 4.
935 Possible precedence problem on bitwise ^ operator at - line 5.
936 Possible precedence problem on bitwise | operator at - line 6.
937 Possible precedence problem on bitwise & operator at - line 7.
938 Possible precedence problem on bitwise ^ operator at - line 8.
939 Possible precedence problem on bitwise | operator at - line 9.
940 Possible precedence problem on bitwise & operator at - line 10.
944 # ok => local() has desired effect;
945 # ignore=> local() silently ignored
947 use warnings 'syntax';
949 local(undef); # OP_UNDEF ignore
950 sub lval : lvalue {};
951 local(lval()); # OP_ENTERSUB
952 local($x **= 1); # OP_POW
953 local($x *= 1); # OP_MULTIPLY
954 local($x /= 1); # OP_DIVIDE
955 local($x %= 1); # OP_MODULO
956 local($x x= 1); # OP_REPEAT
957 local($x += 1); # OP_ADD
958 local($x -= 1); # OP_SUBTRACT
959 local($x .= 1); # OP_CONCAT
960 local($x <<= 1); # OP_LEFT_SHIFT
961 local($x >>= 1); # OP_RIGHT_SHIFT
962 local($x &= 1); # OP_BIT_AND
963 local($x ^= 1); # OP_BIT_XOR
964 local($x |= 1); # OP_BIT_OR
967 local($x *= 1); # OP_I_MULTIPLY
968 local($x /= 1); # OP_I_DIVIDE
969 local($x %= 1); # OP_I_MODULO
970 local($x += 1); # OP_I_ADD
971 local($x -= 1); # OP_I_SUBTRACT
973 local($x?$y:$z) = 1; # OP_COND_EXPR ok
974 # these two are fatal run-time errors instead
975 #local(@$a); # OP_RV2AV ok
976 #local(%$a); # OP_RV2HV ok
977 local(*a); # OP_RV2GV ok
978 local(@a[1,2]); # OP_ASLICE ok
979 local(@a{1,2}); # OP_HSLICE ok
980 local(@a = (1,2)); # OP_AASSIGN
981 local($$x); # OP_RV2SV ok
982 local($#a); # OP_AV2ARYLEN
983 local($x = 1); # OP_SASSIGN
984 local($x &&= 1); # OP_ANDASSIGN
985 local($x ||= 1); # OP_ORASSIGN
986 local($x //= 1); # OP_DORASSIGN
987 local($a[0]); # OP_AELEMFAST ok
989 local(substr($x,0,1)); # OP_SUBSTR
990 local(pos($x)); # OP_POS
991 local(vec($x,0,1)); # OP_VEC
992 local($a[$b]); # OP_AELEM ok
993 local($a{$b}); # OP_HELEM ok
994 local($[); # OP_CONST
996 no warnings 'syntax';
998 Useless localization of subroutine entry at - line 10.
999 Useless localization of exponentiation (**) at - line 11.
1000 Useless localization of multiplication (*) at - line 12.
1001 Useless localization of division (/) at - line 13.
1002 Useless localization of modulus (%) at - line 14.
1003 Useless localization of repeat (x) at - line 15.
1004 Useless localization of addition (+) at - line 16.
1005 Useless localization of subtraction (-) at - line 17.
1006 Useless localization of concatenation (.) or string at - line 18.
1007 Useless localization of left bitshift (<<) at - line 19.
1008 Useless localization of right bitshift (>>) at - line 20.
1009 Useless localization of bitwise and (&) at - line 21.
1010 Useless localization of bitwise xor (^) at - line 22.
1011 Useless localization of bitwise or (|) at - line 23.
1012 Useless localization of integer multiplication (*) at - line 26.
1013 Useless localization of integer division (/) at - line 27.
1014 Useless localization of integer modulus (%) at - line 28.
1015 Useless localization of integer addition (+) at - line 29.
1016 Useless localization of integer subtraction (-) at - line 30.
1017 Useless localization of list assignment at - line 39.
1018 Useless localization of array length at - line 41.
1019 Useless localization of scalar assignment at - line 42.
1020 Useless localization of logical and assignment (&&=) at - line 43.
1021 Useless localization of logical or assignment (||=) at - line 44.
1022 Useless localization of defined or assignment (//=) at - line 45.
1023 Useless localization of substr at - line 48.
1024 Useless localization of match position at - line 49.
1025 Useless localization of vec at - line 50.
1032 my ($x5,@x6, %x7) if 0;
1035 # these shouldn't warn
1039 if (my $w2) { $a=1 }
1040 if ($a && (my $w3 = 1)) {$a = 2}
1043 Deprecated use of my() in false conditional at - line 2.
1044 Deprecated use of my() in false conditional at - line 3.
1045 Deprecated use of my() in false conditional at - line 4.
1046 Deprecated use of my() in false conditional at - line 5.
1047 Deprecated use of my() in false conditional at - line 6.
1048 Deprecated use of my() in false conditional at - line 7.
1049 Deprecated use of my() in false conditional at - line 8.
1053 use warnings 'deprecated';
1055 no warnings 'deprecated';
1058 Use of assignment to $[ is deprecated at - line 2.
1059 Use of assignment to $[ is deprecated at - line 4.