3 Found = in conditional, should be ==
6 Use of implicit split to @_ is deprecated
9 Use of implicit split to @_ is deprecated
12 Useless use of time in void context
13 Useless use of a variable in void context
14 Useless use of a constant in void context
19 Useless use of sort in scalar context
22 Applying %s to %s will act on scalar(%s)
23 my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;
38 Parentheses missing around "my" list at -e line 1.
41 Parentheses missing around "local" list at -e line 1.
44 Bareword found in conditional at -e line 1.
45 use warnings 'bareword'; my $x = print(ABC || 1);
47 Value of %s may be \"0\"; use \"defined\"
49 $x = 1 while $x = <FH> ;
51 Subroutine fred redefined at -e line 1.
52 sub fred{1;} sub fred{1;}
54 Constant subroutine %s redefined
55 sub fred() {1;} sub fred() {1;}
57 Format FRED redefined at /tmp/x line 5.
63 Array @%s missing the @ in argument %d of %s()
66 Hash %%%s missing the %% in argument %d of %s()
69 Statement unlikely to be reached
70 (Maybe you meant system() when you said exec()?
73 defined(@array) is deprecated
74 (Maybe you should just omit the defined()?)
76 defined (@a = (1,2,3)) ;
78 defined(%hash) is deprecated
79 (Maybe you should just omit the defined()?)
82 /---/ should probably be written as "---"
85 %s() called too early to check prototype [Perl_peep]
86 fred() ; sub fred ($$) {}
89 Package `%s' not found (did you use the incorrect case?)
91 Use of /g modifier is meaningless in split
93 Possible precedence problem on bitwise %c operator [Perl_ck_bitop]
97 Prototype mismatch: [cv_ckproto]
101 Runaway prototype [newSUB] TODO
102 oops: oopsAV [oopsAV] TODO
103 oops: oopsHV [oopsHV] TODO
107 use warnings 'syntax' ;
109 no warnings 'syntax' ;
112 Found = in conditional, should be == at - line 3.
115 use warnings 'deprecated' ;
117 no warnings 'deprecated' ;
120 Use of implicit split to @_ is deprecated at - line 3.
123 use warnings 'deprecated' ;
125 no warnings 'deprecated' ;
128 Use of implicit split to @_ is deprecated at - line 3.
131 use warnings 'deprecated';
137 $main::foo = {}; %$main::foo->{"bar"};
138 $foo = {}; %$foo->{"bar"};
139 $main::foo = []; @$main::foo->[34];
140 $foo = []; @$foo->[34];
141 no warnings 'deprecated';
146 $main::foo = {}; %$main::foo->{"bar"};
147 $foo = {}; %$foo->{"bar"};
148 $main::foo = []; @$main::foo->[34];
149 $foo = []; @$foo->[34];
151 Using a hash as a reference is deprecated at - line 4.
152 Using a hash as a reference is deprecated at - line 5.
153 Using an array as a reference is deprecated at - line 6.
154 Using an array as a reference is deprecated at - line 7.
155 Using a hash as a reference is deprecated at - line 8.
156 Using a hash as a reference is deprecated at - line 9.
157 Using an array as a reference is deprecated at - line 10.
158 Using an array as a reference is deprecated at - line 11.
161 use warnings 'void' ; close STDIN ;
164 wantarray ; # OP_WANTARRAY
174 defined $a ; # OP_DEFINED
177 length $a ; # OP_LENGTH
178 substr $a,1 ; # OP_SUBSTR
179 vec $a,1,2 ; # OP_VEC
180 index $a,1,2 ; # OP_INDEX
181 rindex $a,1,2 ; # OP_RINDEX
182 sprintf $a ; # OP_SPRINTF
186 #values %a ; # OP_VALUES
190 unpack "a", "a" ; # OP_UNPACK
191 pack $a,"" ; # OP_PACK
193 (@a)[0,1] ; # OP_LSLICE
196 sort(1,2) ; # OP_SORT
197 reverse(1,2) ; # OP_REVERSE
202 fileno STDIN ; # OP_FILENO
204 tell STDIN ; # OP_TELL
205 readlink 1; # OP_READLINK
207 localtime ; # OP_LOCALTIME
209 eval { getgrnam 1 }; # OP_GGRNAM
210 eval { getgrgid 1 }; # OP_GGRGID
211 eval { getpwnam 1 }; # OP_GPWNAM
212 eval { getpwuid 1 }; # OP_GPWUID
213 prototype "foo"; # OP_PROTOTYPE
214 $a ~~ $b; # OP_SMARTMATCH
217 Useless use of repeat (x) in void context at - line 3.
218 Useless use of wantarray in void context at - line 5.
219 Useless use of reference-type operator in void context at - line 12.
220 Useless use of reference constructor in void context at - line 13.
221 Useless use of single ref constructor in void context at - line 14.
222 Useless use of defined operator in void context at - line 15.
223 Useless use of hex in void context at - line 16.
224 Useless use of oct in void context at - line 17.
225 Useless use of length in void context at - line 18.
226 Useless use of substr in void context at - line 19.
227 Useless use of vec in void context at - line 20.
228 Useless use of index in void context at - line 21.
229 Useless use of rindex in void context at - line 22.
230 Useless use of sprintf in void context at - line 23.
231 Useless use of array element in void context at - line 24.
232 Useless use of array slice in void context at - line 26.
233 Useless use of hash element in void context at - line 29.
234 Useless use of hash slice in void context at - line 30.
235 Useless use of unpack in void context at - line 31.
236 Useless use of pack in void context at - line 32.
237 Useless use of join or string in void context at - line 33.
238 Useless use of list slice in void context at - line 34.
239 Useless use of sort in void context at - line 37.
240 Useless use of reverse in void context at - line 38.
241 Useless use of range (or flop) in void context at - line 41.
242 Useless use of caller in void context at - line 42.
243 Useless use of fileno in void context at - line 43.
244 Useless use of eof in void context at - line 44.
245 Useless use of tell in void context at - line 45.
246 Useless use of readlink in void context at - line 46.
247 Useless use of time in void context at - line 47.
248 Useless use of localtime in void context at - line 48.
249 Useless use of gmtime in void context at - line 49.
250 Useless use of getgrnam in void context at - line 50.
251 Useless use of getgrgid in void context at - line 51.
252 Useless use of getpwnam in void context at - line 52.
253 Useless use of getpwuid in void context at - line 53.
254 Useless use of subroutine prototype in void context at - line 54.
255 Useless use of smart match in void context at - line 55.
256 Useless use of numeric comparison (<=>) in void context at - line 56.
259 use warnings 'void' ; close STDIN ;
260 my $x = sort (2,1,3);
264 Useless use of sort in scalar context at - line 3.
267 no warnings 'void' ; close STDIN ;
270 wantarray ; # OP_WANTARRAY
280 defined $a ; # OP_DEFINED
283 length $a ; # OP_LENGTH
284 substr $a,1 ; # OP_SUBSTR
285 vec $a,1,2 ; # OP_VEC
286 index $a,1,2 ; # OP_INDEX
287 rindex $a,1,2 ; # OP_RINDEX
288 sprintf $a ; # OP_SPRINTF
292 #values %a ; # OP_VALUES
296 unpack "a", "a" ; # OP_UNPACK
297 pack $a,"" ; # OP_PACK
299 (@a)[0,1] ; # OP_LSLICE
302 sort(1,2) ; # OP_SORT
303 reverse(1,2) ; # OP_REVERSE
308 fileno STDIN ; # OP_FILENO
310 tell STDIN ; # OP_TELL
311 readlink 1; # OP_READLINK
313 localtime ; # OP_LOCALTIME
315 eval { getgrnam 1 }; # OP_GGRNAM
316 eval { getgrgid 1 }; # OP_GGRGID
317 eval { getpwnam 1 }; # OP_GPWNAM
318 eval { getpwuid 1 }; # OP_GPWUID
319 prototype "foo"; # OP_PROTOTYPE
323 use warnings 'void' ;
324 for (@{[0]}) { "$_" } # check warning isn't duplicated
326 for (@{[0]}) { "$_" } # check warning isn't duplicated
328 Useless use of string in void context at - line 3.
331 use warnings 'void' ;
334 if ( ! $Config{d_telldir}) {
337 # telldir not present
342 telldir 1 ; # OP_TELLDIR
344 telldir 1 ; # OP_TELLDIR
346 Useless use of telldir in void context at - line 13.
349 use warnings 'void' ;
352 if ( ! $Config{d_getppid}) {
355 # getppid not present
360 getppid ; # OP_GETPPID
362 getppid ; # OP_GETPPID
364 Useless use of getppid in void context at - line 13.
367 use warnings 'void' ;
370 if ( ! $Config{d_getpgrp}) {
373 # getpgrp not present
378 getpgrp ; # OP_GETPGRP
380 getpgrp ; # OP_GETPGRP
382 Useless use of getpgrp in void context at - line 13.
385 use warnings 'void' ;
388 if ( ! $Config{d_times}) {
400 Useless use of times in void context at - line 13.
403 use warnings 'void' ;
406 if ( ! $Config{d_getprior} or $^O eq 'os2') { # Locks before fixpak22
409 # getpriority not present
414 getpriority 1,2; # OP_GETPRIORITY
416 getpriority 1,2; # OP_GETPRIORITY
418 Useless use of getpriority in void context at - line 13.
421 use warnings 'void' ;
424 if ( ! $Config{d_getlogin}) {
427 # getlogin not present
432 getlogin ; # OP_GETLOGIN
434 getlogin ; # OP_GETLOGIN
436 Useless use of getlogin in void context at - line 13.
439 use warnings 'void' ;
441 if ( ! $Config{d_socket}) {
444 # getsockname not present
445 # getpeername not present
446 # gethostbyname not present
447 # gethostbyaddr not present
448 # gethostent not present
449 # getnetbyname not present
450 # getnetbyaddr not present
451 # getnetent not present
452 # getprotobyname not present
453 # getprotobynumber not present
454 # getprotoent not present
455 # getservbyname not present
456 # getservbyport not present
457 # getservent not present
461 getsockname STDIN ; # OP_GETSOCKNAME
462 getpeername STDIN ; # OP_GETPEERNAME
463 gethostbyname 1 ; # OP_GHBYNAME
464 gethostbyaddr 1,2; # OP_GHBYADDR
465 gethostent ; # OP_GHOSTENT
466 getnetbyname 1 ; # OP_GNBYNAME
467 getnetbyaddr 1,2 ; # OP_GNBYADDR
468 getnetent ; # OP_GNETENT
469 getprotobyname 1; # OP_GPBYNAME
470 getprotobynumber 1; # OP_GPBYNUMBER
471 getprotoent ; # OP_GPROTOENT
472 getservbyname 1,2; # OP_GSBYNAME
473 getservbyport 1,2; # OP_GSBYPORT
474 getservent ; # OP_GSERVENT
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
492 # some functions may not be there, so we exit without running
496 Useless use of getsockname in void context at - line 24.
497 Useless use of getpeername in void context at - line 25.
498 Useless use of gethostbyname in void context at - line 26.
499 Useless use of gethostbyaddr in void context at - line 27.
500 Useless use of gethostent in void context at - line 28.
501 Useless use of getnetbyname in void context at - line 29.
502 Useless use of getnetbyaddr in void context at - line 30.
503 Useless use of getnetent in void context at - line 31.
504 Useless use of getprotobyname in void context at - line 32.
505 Useless use of getprotobynumber in void context at - line 33.
506 Useless use of getprotoent in void context at - line 34.
507 Useless use of getservbyname in void context at - line 35.
508 Useless use of getservbyport in void context at - line 36.
509 Useless use of getservent in void context at - line 37.
512 use warnings 'void' ;
523 Useless use of a variable in void context at - line 3.
524 Useless use of a variable in void context at - line 4.
525 Useless use of a variable in void context at - line 5.
526 Useless use of a variable in void context at - line 6.
529 use warnings 'void' ;
532 "x" . "y"; # optimized to OP_CONST
533 2 + 2; # optimized to OP_CONST
534 use constant U => undef;
536 5 || print "bad\n"; # test OPpCONST_SHORTCIRCUIT
537 print "boo\n" if U; # test OPpCONST_SHORTCIRCUIT
538 $[ = 2; # should not warn
542 "x" . "y"; # optimized to OP_CONST
543 2 + 2; # optimized to OP_CONST
545 Useless use of a constant (abc) in void context at - line 3.
546 Useless use of a constant (7) in void context at - line 4.
547 Useless use of a constant (xy) in void context at - line 5.
548 Useless use of a constant (4) in void context at - line 6.
549 Useless use of a constant (undef) in void context at - line 8.
553 use warnings 'misc' ;
554 my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;
569 my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;
584 Applying pattern match (m//) to @array will act on scalar(@array) at - line 5.
585 Applying substitution (s///) to @array will act on scalar(@array) at - line 6.
586 Applying transliteration (tr///) to @array will act on scalar(@array) at - line 7.
587 Applying pattern match (m//) to @array will act on scalar(@array) at - line 8.
588 Applying substitution (s///) to @array will act on scalar(@array) at - line 9.
589 Applying transliteration (tr///) to @array will act on scalar(@array) at - line 10.
590 Applying pattern match (m//) to %hash will act on scalar(%hash) at - line 11.
591 Applying substitution (s///) to %hash will act on scalar(%hash) at - line 12.
592 Applying transliteration (tr///) to %hash will act on scalar(%hash) at - line 13.
593 Applying pattern match (m//) to %hash will act on scalar(%hash) at - line 14.
594 Applying substitution (s///) to %hash will act on scalar(%hash) at - line 15.
595 Applying transliteration (tr///) to %hash will act on scalar(%hash) at - line 16.
596 Can't modify private array in substitution (s///) at - line 6, near "s/a/b/ ;"
597 BEGIN not safe after errors--compilation aborted at - line 18.
600 use warnings 'parenthesis' ;
602 my @foo,%bar, $quux; # there's a TAB here
604 no warnings 'parenthesis' ;
607 Parentheses missing around "my" list at - line 3.
608 Parentheses missing around "my" list at - line 4.
611 use warnings 'parenthesis' ;
613 no warnings 'parenthesis' ;
616 Parentheses missing around "our" list at - line 3.
619 use warnings 'parenthesis' ;
620 local $a, $b = (1,2);
622 no warnings 'parenthesis' ;
623 local $c, $d = (1,2);
625 Parentheses missing around "local" list at - line 3.
626 Parentheses missing around "local" list at - line 4.
629 use warnings 'bareword' ;
631 no warnings 'bareword' ;
634 Bareword found in conditional at - line 3.
640 use warnings 'misc' ;
642 $x = 1 if $x = <FH> ;
644 $x = 1 if $x = <FH> ;
646 Value of <HANDLE> construct can be "0"; test with defined() at - line 4.
649 use warnings 'misc' ;
651 $x = 1 if $x = readdir FH ;
653 $x = 1 if $x = readdir FH ;
656 Value of readdir() operator can be "0"; test with defined() at - line 4.
659 use warnings 'misc' ;
664 Value of glob construct can be "0"; test with defined() at - line 3.
667 use warnings 'misc' ;
669 $x = 1 if $x = each %a ;
671 $x = 1 if $x = each %a ;
673 Value of each() operator can be "0"; test with defined() at - line 4.
676 use warnings 'misc' ;
677 $x = 1 while $x = <*> and 0 ;
679 $x = 1 while $x = <*> and 0 ;
681 Value of glob construct can be "0"; test with defined() at - line 3.
684 use warnings 'misc' ;
686 $x = 1 while $x = readdir FH and 0 ;
688 $x = 1 while $x = readdir FH and 0 ;
691 Value of readdir() operator can be "0"; test with defined() at - line 4.
696 ($_ = <FH>) // ($_ = 1);
702 use warnings 'redefine' ;
705 no warnings 'redefine' ;
708 Subroutine fred redefined at - line 4.
711 use warnings 'redefine' ;
714 no warnings 'redefine' ;
717 Constant subroutine fred redefined at - line 4.
720 no warnings 'redefine' ;
724 Constant subroutine fred redefined at - line 4.
727 no warnings 'redefine' ;
729 *fred = sub () { 2 };
731 Constant subroutine main::fred redefined at - line 4.
734 use warnings 'redefine' ;
739 no warnings 'redefine' ;
743 Format FRED redefined at - line 5.
746 use warnings 'deprecated' ;
748 no warnings 'deprecated' ;
751 Array @FRED missing the @ in argument 1 of push() at - line 3.
754 use warnings 'deprecated' ;
756 no warnings 'deprecated' ;
759 Hash %FRED missing the % in argument 1 of keys() at - line 3.
763 if ($^O eq 'MacOS') {
771 use warnings 'syntax' ;
775 Statement unlikely to be reached at - line 13.
776 (Maybe you meant system() when you said exec()?)
779 use warnings 'deprecated' ;
782 defined(@array) is deprecated at - line 3.
783 (Maybe you should just omit the defined()?)
786 use warnings 'deprecated' ;
787 defined(@a = (1,2,3));
789 defined(@array) is deprecated at - line 3.
790 (Maybe you should just omit the defined()?)
793 use warnings 'deprecated' ;
796 defined(%hash) is deprecated at - line 3.
797 (Maybe you should just omit the defined()?)
801 if ($^O eq 'MacOS') {
809 no warnings 'syntax' ;
819 Prototype mismatch: sub main::fred () vs ($) at - line 3.
826 no warnings 'prototype' ;
829 use warnings 'prototype' ;
836 Prototype mismatch: sub main::fred () vs ($) at - line 4.
837 Prototype mismatch: sub main::freD () vs ($) at - line 11.
838 Prototype mismatch: sub main::FRED () vs ($) at - line 14.
841 use warnings 'syntax' ;
842 join /---/, 'x', 'y', 'z';
844 /---/ should probably be written as "---" at - line 3.
847 use warnings 'prototype' ;
850 no warnings 'prototype' ;
854 main::fred() called too early to check prototype at - line 3.
856 # op.c [Perl_newATTRSUB]
858 use warnings 'void' ;
859 BEGIN { $| = 1; print "in begin\n"; }
860 CHECK { print "in check\n"; }
861 INIT { print "in init\n"; }
862 END { print "in end\n"; }
863 print "in mainline\n";
867 delete $INC{"abc.pm"};
876 Too late to run CHECK block at abc.pm line 3.
877 Too late to run INIT block at abc.pm line 4.
880 Too late to run CHECK block at abc.pm line 3.
881 Too late to run INIT block at abc.pm line 4.
887 # op.c [Perl_newATTRSUB]
890 BEGIN { $| = 1; print "in begin\n"; }
891 CHECK { print "in check\n"; }
892 INIT { print "in init\n"; }
893 END { print "in end\n"; }
894 print "in mainline\n";
909 use warnings 'syntax' ;
912 no warnings 'syntax' ;
916 Useless use of push with no values at - line 4.
917 Useless use of unshift with no values at - line 5.
920 # 20020401 mjd@plover.com at suggestion of jfriedl@yahoo.com
921 use warnings 'regexp';
922 split /blah/g, "blah";
923 no warnings 'regexp';
924 split /blah/g, "blah";
926 Use of /g modifier is meaningless in split at - line 4.
929 use warnings 'precedence';
937 $a &= $b == $c; $a |= $b == $c; $a ^= $b == $c; # shouldn't warn
938 no warnings 'precedence';
947 Possible precedence problem on bitwise & operator at - line 3.
948 Possible precedence problem on bitwise ^ operator at - line 4.
949 Possible precedence problem on bitwise | operator at - line 5.
950 Possible precedence problem on bitwise & operator at - line 6.
951 Possible precedence problem on bitwise ^ operator at - line 7.
952 Possible precedence problem on bitwise | operator at - line 8.
953 Possible precedence problem on bitwise & operator at - line 9.
957 use warnings 'precedence';
965 no warnings 'precedence';
974 Possible precedence problem on bitwise & operator at - line 4.
975 Possible precedence problem on bitwise ^ operator at - line 5.
976 Possible precedence problem on bitwise | operator at - line 6.
977 Possible precedence problem on bitwise & operator at - line 7.
978 Possible precedence problem on bitwise ^ operator at - line 8.
979 Possible precedence problem on bitwise | operator at - line 9.
980 Possible precedence problem on bitwise & operator at - line 10.
984 # ok => local() has desired effect;
985 # ignore=> local() silently ignored
987 use warnings 'syntax';
989 local(undef); # OP_UNDEF ignore
990 sub lval : lvalue {};
991 local(lval()); # OP_ENTERSUB
992 local($x **= 1); # OP_POW
993 local($x *= 1); # OP_MULTIPLY
994 local($x /= 1); # OP_DIVIDE
995 local($x %= 1); # OP_MODULO
996 local($x x= 1); # OP_REPEAT
997 local($x += 1); # OP_ADD
998 local($x -= 1); # OP_SUBTRACT
999 local($x .= 1); # OP_CONCAT
1000 local($x <<= 1); # OP_LEFT_SHIFT
1001 local($x >>= 1); # OP_RIGHT_SHIFT
1002 local($x &= 1); # OP_BIT_AND
1003 local($x ^= 1); # OP_BIT_XOR
1004 local($x |= 1); # OP_BIT_OR
1007 local($x *= 1); # OP_I_MULTIPLY
1008 local($x /= 1); # OP_I_DIVIDE
1009 local($x %= 1); # OP_I_MODULO
1010 local($x += 1); # OP_I_ADD
1011 local($x -= 1); # OP_I_SUBTRACT
1013 local($x?$y:$z) = 1; # OP_COND_EXPR ok
1014 # these two are fatal run-time errors instead
1015 #local(@$a); # OP_RV2AV ok
1016 #local(%$a); # OP_RV2HV ok
1017 local(*a); # OP_RV2GV ok
1018 local(@a[1,2]); # OP_ASLICE ok
1019 local(@a{1,2}); # OP_HSLICE ok
1020 local(@a = (1,2)); # OP_AASSIGN
1021 local($$x); # OP_RV2SV ok
1022 local($#a); # OP_AV2ARYLEN
1023 local($x = 1); # OP_SASSIGN
1024 local($x &&= 1); # OP_ANDASSIGN
1025 local($x ||= 1); # OP_ORASSIGN
1026 local($x //= 1); # OP_DORASSIGN
1027 local($a[0]); # OP_AELEMFAST ok
1029 local(substr($x,0,1)); # OP_SUBSTR
1030 local(pos($x)); # OP_POS
1031 local(vec($x,0,1)); # OP_VEC
1032 local($a[$b]); # OP_AELEM ok
1033 local($a{$b}); # OP_HELEM ok
1034 local($[); # OP_CONST
1036 no warnings 'syntax';
1038 Useless localization of subroutine entry at - line 10.
1039 Useless localization of exponentiation (**) at - line 11.
1040 Useless localization of multiplication (*) at - line 12.
1041 Useless localization of division (/) at - line 13.
1042 Useless localization of modulus (%) at - line 14.
1043 Useless localization of repeat (x) at - line 15.
1044 Useless localization of addition (+) at - line 16.
1045 Useless localization of subtraction (-) at - line 17.
1046 Useless localization of concatenation (.) or string at - line 18.
1047 Useless localization of left bitshift (<<) at - line 19.
1048 Useless localization of right bitshift (>>) at - line 20.
1049 Useless localization of bitwise and (&) at - line 21.
1050 Useless localization of bitwise xor (^) at - line 22.
1051 Useless localization of bitwise or (|) at - line 23.
1052 Useless localization of integer multiplication (*) at - line 26.
1053 Useless localization of integer division (/) at - line 27.
1054 Useless localization of integer modulus (%) at - line 28.
1055 Useless localization of integer addition (+) at - line 29.
1056 Useless localization of integer subtraction (-) at - line 30.
1057 Useless localization of list assignment at - line 39.
1058 Useless localization of array length at - line 41.
1059 Useless localization of scalar assignment at - line 42.
1060 Useless localization of logical and assignment (&&=) at - line 43.
1061 Useless localization of logical or assignment (||=) at - line 44.
1062 Useless localization of defined or assignment (//=) at - line 45.
1063 Useless localization of substr at - line 48.
1064 Useless localization of match position at - line 49.
1065 Useless localization of vec at - line 50.
1068 use warnings 'deprecated';
1073 my ($x5,@x6, %x7) if 0;
1076 # these shouldn't warn
1080 if (my $w2) { $a=1 }
1081 if ($a && (my $w3 = 1)) {$a = 2}
1084 Deprecated use of my() in false conditional at - line 3.
1085 Deprecated use of my() in false conditional at - line 4.
1086 Deprecated use of my() in false conditional at - line 5.
1087 Deprecated use of my() in false conditional at - line 6.
1088 Deprecated use of my() in false conditional at - line 7.
1089 Deprecated use of my() in false conditional at - line 8.
1090 Deprecated use of my() in false conditional at - line 9.