3 we seem to have lost a few ambiguous warnings!!
7 Use of comma-less variable list is deprecated
8 (called 3 times via depcom)
10 \1 better written as $1
11 use warnings 'syntax' ;
15 Semicolon seems to be missing
32 Multidimensional syntax %.*s not supported
35 You need to quote \"%s\""
36 sub fred {} ; $SIG{TERM} = fred;
38 Scalar value %.*s better written as $%.*s"
42 Can't use \\%c to mean $%c in expression
43 $_ = "ab" ; s/(ab)/\1/e;
45 Unquoted string "abc" may clash with future reserved word at - line 3.
49 Possible attempt to separate words with commas
52 Possible attempt to put comments in qw() list
55 %s (...) interpreted as function
60 Ambiguous use of %c{%s%s} resolved to %c%s%s
65 Ambiguous use of %c{%s} resolved to %c%s
67 sub fred {} $a = ${fred}
73 Bareword \"%s\" refers to nonexistent package
76 Ambiguous call resolved as CORE::%s(), qualify as such or use &
80 Unrecognized escape \\%c passed through
83 %s number > %s non-portable
84 my $a = 0b011111111111111111111111111111110 ;
85 $a = 0b011111111111111111111111111111111 ;
86 $a = 0b111111111111111111111111111111111 ;
94 Integer overflow in binary number
95 my $a = 0b011111111111111111111111111111110 ;
96 $a = 0b011111111111111111111111111111111 ;
97 $a = 0b111111111111111111111111111111111 ;
105 dump() better written as CORE::dump()
107 Use of /c modifier is meaningless without /g
109 Use of /c modifier is meaningless in s///
113 Use of "%s" without parentheses is ambiguous [check_uni]
116 Ambiguous use of -%s resolved as -&%s() [yylex]
117 sub fred {} ; - fred ;
119 Precedence problem: open %.*s should be open(%.*s) [yylex]
122 Operator or semicolon missing before %c%s [yylex]
123 Ambiguous use of %c resolved as operator %c
132 no warnings 'deprecated' ;
138 Use of comma-less variable list is deprecated at - line 4.
139 Use of comma-less variable list is deprecated at - line 4.
140 Use of comma-less variable list is deprecated at - line 4.
143 $a =~ m/$foo/sand $bar;
144 $a =~ s/$foo/fool/sand $bar;
147 no warnings 'deprecated' ;
148 $a =~ m/$foo/sand $bar;
149 $a =~ s/$foo/fool/sand $bar;
153 Having no space between pattern and following word is deprecated at - line 2.
154 Having no space between pattern and following word is deprecated at - line 3.
155 Use of bare << to mean <<"" is deprecated at - line 4.
158 use warnings 'syntax' ;
160 no warnings 'syntax' ;
163 \1 better written as $1 at - line 3.
166 use warnings 'semicolon' ;
169 no warnings 'semicolon' ;
173 Semicolon seems to be missing at - line 3.
176 use warnings 'syntax' ;
188 Reversed += operator at - line 3.
189 Reversed -= operator at - line 4.
190 Reversed *= operator at - line 5.
191 Reversed %= operator at - line 6.
192 Reversed &= operator at - line 7.
193 Reversed .= operator at - line 8.
194 Reversed ^= operator at - line 9.
195 Reversed |= operator at - line 10.
196 Reversed <= operator at - line 11.
197 syntax error at - line 8, near "=."
198 syntax error at - line 9, near "=^"
199 syntax error at - line 10, near "=|"
200 Unterminated <> operator at - line 11.
203 no warnings 'syntax' ;
215 syntax error at - line 8, near "=."
216 syntax error at - line 9, near "=^"
217 syntax error at - line 10, near "=|"
218 Unterminated <> operator at - line 11.
221 use warnings 'syntax' ;
223 no warnings 'syntax' ;
226 Multidimensional syntax $a[1,2] not supported at - line 3.
229 use warnings 'syntax' ;
230 sub fred {} ; $SIG{TERM} = fred;
231 no warnings 'syntax' ;
234 You need to quote "fred" at - line 3.
237 use warnings 'syntax' ;
240 no warnings 'syntax' ;
244 Scalar value @a[3] better written as $a[3] at - line 3.
245 Scalar value @a{3} better written as $a{3} at - line 4.
248 use warnings 'syntax' ;
251 no warnings 'syntax' ;
255 Can't use \1 to mean $1 in expression at - line 4.
258 use warnings 'reserved' ;
263 no warnings 'reserved' ;
266 Unquoted string "abc" may clash with future reserved word at - line 3.
274 Possible attempt to separate words with commas at - line 3.
282 Possible attempt to put comments in qw() list at - line 3.
285 use warnings 'syntax' ;
287 print ("") and $x = 1;
290 print (1+2) * 3 if 0; # only this one should warn
293 print (...) interpreted as function at - line 7.
296 no warnings 'syntax' ;
302 use warnings 'syntax' ;
306 printf (...) interpreted as function at - line 4.
309 no warnings 'syntax' ;
315 use warnings 'syntax' ;
319 sort (...) interpreted as function at - line 4.
322 no warnings 'syntax' ;
328 use warnings 'ambiguous' ;
330 no warnings 'ambiguous' ;
333 Ambiguous use of ${time[...]} resolved to $time[...] at - line 3.
336 use warnings 'ambiguous' ;
339 Ambiguous use of ${time{...}} resolved to $time{...} at - line 3.
342 no warnings 'ambiguous' ;
348 use warnings 'ambiguous' ;
350 no warnings 'ambiguous' ;
353 Ambiguous use of ${time} resolved to $time at - line 3.
356 use warnings 'ambiguous' ;
359 no warnings 'ambiguous' ;
362 Ambiguous use of ${fred} resolved to $fred at - line 4.
365 use warnings 'syntax' ;
366 $a = _123; print "$a\n"; #( 3 string)
367 $a = 1_23; print "$a\n";
368 $a = 12_3; print "$a\n";
369 $a = 123_; print "$a\n"; # 6
370 $a = _+123; print "$a\n"; # 7 string)
371 $a = +_123; print "$a\n"; #( 8 string)
372 $a = +1_23; print "$a\n";
373 $a = +12_3; print "$a\n";
374 $a = +123_; print "$a\n"; # 11
375 $a = _-123; print "$a\n"; #(12 string)
376 $a = -_123; print "$a\n"; #(13 string)
377 $a = -1_23; print "$a\n";
378 $a = -12_3; print "$a\n";
379 $a = -123_; print "$a\n"; # 16
380 $a = 123._456; print "$a\n"; # 17
381 $a = 123.4_56; print "$a\n";
382 $a = 123.45_6; print "$a\n";
383 $a = 123.456_; print "$a\n"; # 20
384 $a = +123._456; print "$a\n"; # 21
385 $a = +123.4_56; print "$a\n";
386 $a = +123.45_6; print "$a\n";
387 $a = +123.456_; print "$a\n"; # 24
388 $a = -123._456; print "$a\n"; # 25
389 $a = -123.4_56; print "$a\n";
390 $a = -123.45_6; print "$a\n";
391 $a = -123.456_; print "$a\n"; # 28
392 $a = 123.456E_12; printf("%.0f\n", $a); # 29
393 $a = 123.456E1_2; printf("%.0f\n", $a);
394 $a = 123.456E12_; printf("%.0f\n", $a); # 31
395 $a = 123.456E_+12; printf("%.0f\n", $a); # 32
396 $a = 123.456E+_12; printf("%.0f\n", $a); # 33
397 $a = 123.456E+1_2; printf("%.0f\n", $a);
398 $a = 123.456E+12_; printf("%.0f\n", $a); # 35
399 $a = 123.456E_-12; print "$a\n"; # 36
400 $a = 123.456E-_12; print "$a\n"; # 37
401 $a = 123.456E-1_2; print "$a\n";
402 $a = 123.456E-12_; print "$a\n"; # 39
403 $a = 1__23; print "$a\n"; # 40
404 $a = 12.3__4; print "$a\n"; # 41
405 $a = 12.34e1__2; printf("%.0f\n", $a); # 42
406 no warnings 'syntax' ;
407 $a = _123; print "$a\n";
408 $a = 1_23; print "$a\n";
409 $a = 12_3; print "$a\n";
410 $a = 123_; print "$a\n";
411 $a = _+123; print "$a\n";
412 $a = +_123; print "$a\n";
413 $a = +1_23; print "$a\n";
414 $a = +12_3; print "$a\n";
415 $a = +123_; print "$a\n";
416 $a = _-123; print "$a\n";
417 $a = -_123; print "$a\n";
418 $a = -1_23; print "$a\n";
419 $a = -12_3; print "$a\n";
420 $a = -123_; print "$a\n";
421 $a = 123._456; print "$a\n";
422 $a = 123.4_56; print "$a\n";
423 $a = 123.45_6; print "$a\n";
424 $a = 123.456_; print "$a\n";
425 $a = +123._456; print "$a\n";
426 $a = +123.4_56; print "$a\n";
427 $a = +123.45_6; print "$a\n";
428 $a = +123.456_; print "$a\n";
429 $a = -123._456; print "$a\n";
430 $a = -123.4_56; print "$a\n";
431 $a = -123.45_6; print "$a\n";
432 $a = -123.456_; print "$a\n";
433 $a = 123.456E_12; printf("%.0f\n", $a);
434 $a = 123.456E1_2; printf("%.0f\n", $a);
435 $a = 123.456E12_; printf("%.0f\n", $a);
436 $a = 123.456E_+12; printf("%.0f\n", $a);
437 $a = 123.456E+_12; printf("%.0f\n", $a);
438 $a = 123.456E+1_2; printf("%.0f\n", $a);
439 $a = 123.456E+12_; printf("%.0f\n", $a);
440 $a = 123.456E_-12; print "$a\n";
441 $a = 123.456E-_12; print "$a\n";
442 $a = 123.456E-1_2; print "$a\n";
443 $a = 123.456E-12_; print "$a\n";
444 $a = 1__23; print "$a\n";
445 $a = 12.3__4; print "$a\n";
446 $a = 12.34e1__2; printf("%.0f\n", $a);
449 Misplaced _ in number at - line 6.
450 Misplaced _ in number at - line 11.
451 Misplaced _ in number at - line 16.
452 Misplaced _ in number at - line 17.
453 Misplaced _ in number at - line 20.
454 Misplaced _ in number at - line 21.
455 Misplaced _ in number at - line 24.
456 Misplaced _ in number at - line 25.
457 Misplaced _ in number at - line 28.
458 Misplaced _ in number at - line 29.
459 Misplaced _ in number at - line 31.
460 Misplaced _ in number at - line 32.
461 Misplaced _ in number at - line 33.
462 Misplaced _ in number at - line 35.
463 Misplaced _ in number at - line 36.
464 Misplaced _ in number at - line 37.
465 Misplaced _ in number at - line 39.
466 Misplaced _ in number at - line 40.
467 Misplaced _ in number at - line 41.
468 Misplaced _ in number at - line 42.
551 use warnings 'bareword' ;
554 no warnings 'bareword' ;
558 Bareword "FRED::" refers to nonexistent package at bar line 25.
561 use warnings 'ambiguous' ;
564 no warnings 'ambiguous' ;
567 Ambiguous call resolved as CORE::time(), qualify as such or use & at - line 4.
584 Warning: Use of "rand" without parentheses is ambiguous at - line 2.
590 no warnings 'ambiguous' ;
592 use warnings 'ambiguous' ;
597 Warning: Use of "rand" without parentheses is ambiguous at - line 3.
598 Warning: Use of "rand" without parentheses is ambiguous at - line 8.
599 Warning: Use of "rand" without parentheses is ambiguous at - line 10.
602 use warnings "ambiguous";
603 print for keys %+; # should not warn
610 Ambiguous use of -fred resolved as -&fred() at - line 3.
617 no warnings 'ambiguous' ;
619 use warnings 'ambiguous' ;
624 Ambiguous use of -fred resolved as -&fred() at - line 4.
625 Ambiguous use of -fred resolved as -&fred() at - line 9.
626 Ambiguous use of -fred resolved as -&fred() at - line 11.
631 Precedence problem: open FOO should be open(FOO) at - line 2.
633 # toke.c (and [perl #16184])
634 open FOO => "<&0"; close FOO;
641 no warnings 'precedence' ;
643 use warnings 'precedence' ;
648 Precedence problem: open FOO should be open(FOO) at - line 3.
649 Precedence problem: open FOO should be open(FOO) at - line 8.
650 Precedence problem: open FOO should be open(FOO) at - line 10.
656 no warnings 'ambiguous' ;
658 use warnings 'ambiguous' ;
663 Operator or semicolon missing before *foo at - line 3.
664 Ambiguous use of * resolved as operator * at - line 3.
665 Operator or semicolon missing before *foo at - line 8.
666 Ambiguous use of * resolved as operator * at - line 8.
667 Operator or semicolon missing before *foo at - line 10.
668 Ambiguous use of * resolved as operator * at - line 10.
671 use warnings 'misc' ;
676 Unrecognized escape \m passed through at - line 3.
679 use warnings 'portable' ;
680 my $a = 0b011111111111111111111111111111110 ;
681 $a = 0b011111111111111111111111111111111 ;
682 $a = 0b111111111111111111111111111111111 ;
689 no warnings 'portable' ;
690 $a = 0b011111111111111111111111111111110 ;
691 $a = 0b011111111111111111111111111111111 ;
692 $a = 0b111111111111111111111111111111111 ;
700 Binary number > 0b11111111111111111111111111111111 non-portable at - line 5.
701 Hexadecimal number > 0xffffffff non-portable at - line 8.
702 Octal number > 037777777777 non-portable at - line 11.
705 use warnings 'overflow' ;
706 my $a = 0b011111111111111111111111111111110 ;
707 $a = 0b011111111111111111111111111111111 ;
708 $a = 0b10000000000000000000000000000000000000000000000000000000000000000 ;
711 $a = 0x10000000000000000 ;
714 $a = 002000000000000000000000;
715 no warnings 'overflow' ;
716 $a = 0b011111111111111111111111111111110 ;
717 $a = 0b011111111111111111111111111111111 ;
718 $a = 0b10000000000000000000000000000000000000000000000000000000000000000 ;
721 $a = 0x10000000000000000 ;
724 $a = 002000000000000000000000;
726 Integer overflow in binary number at - line 5.
727 Integer overflow in hexadecimal number at - line 8.
728 Integer overflow in octal number at - line 11.
736 dump() better written as CORE::dump() at - line 4.
742 sub dump { print "no warning for overridden dump\n"; }
745 no warning for overridden dump
748 use warnings 'ambiguous';
749 "@mjd_previously_unused_array";
750 no warnings 'ambiguous';
751 "@mjd_previously_unused_array";
753 Possible unintended interpolation of @mjd_previously_unused_array in string at - line 3.
756 # 20020328 mjd-perl-patch+@plover.com at behest of jfriedl@yahoo.com
757 use warnings 'regexp';
760 no warnings 'regexp';
764 Use of /c modifier is meaningless without /g at - line 4.
767 # 20020328 mjd-perl-patch+@plover.com at behest of jfriedl@yahoo.com
768 use warnings 'regexp';
772 no warnings 'regexp';
776 Use of /c modifier is meaningless in s/// at - line 5.
777 Use of /c modifier is meaningless in s/// at - line 6.
781 # 20020414 mjd-perl-patch+@plover.com # -a flag should suppress these warnings
788 # 20020414 mjd-perl-patch+@plover.com # -a flag should suppress these warnings
791 Possible unintended interpolation of @F in string at - line 4.
792 Name "main::F" used only once: possible typo at - line 4.
796 # 20020414 mjd-perl-patch+@plover.com
801 # 20020414 mjd-perl-patch+@plover.com
802 # In 5.7.3, this emitted "Possible unintended interpolation" warnings
803 use warnings 'ambiguous';
810 eval q/if ($a) { } elseif ($b) { }/;
811 no warnings "syntax";
812 eval q/if ($a) { } elseif ($b) { }/;
814 elseif should be elsif at (eval 1) line 1.
819 no warnings "syntax";
822 Number found where operator expected at (eval 1) line 1, near "5 6"
823 (Missing operator before 6?)
826 use warnings "syntax";
836 no warnings "syntax";
845 !=~ should be !~ at - line 4.
846 !=~ should be !~ at - line 5.
847 !=~ should be !~ at - line 6.
848 !=~ should be !~ at - line 7.
849 !=~ should be !~ at - line 8.
850 !=~ should be !~ at - line 9.
851 !=~ should be !~ at - line 10.
858 sub whack_eth ($) : locked {
860 no warnings 'deprecated';
863 sub ker_plop :locked {
865 sub swa_a_p ($) : locked {
868 Use of :unique is deprecated at - line 2.
869 Use of :locked is deprecated at - line 3.
870 Use of :locked is deprecated at - line 4.
871 Use of :locked is deprecated at - line 6.
874 use warnings "syntax";
875 sub proto_after_array(@$);
876 sub proto_after_arref(\@$);
877 sub proto_after_arref2(\[@$]);
878 sub proto_after_arref3(\[@$]_);
879 sub proto_after_hash(%$);
880 sub proto_after_hashref(\%$);
881 sub proto_after_hashref2(\[%$]);
882 sub underscore_last_pos($_);
883 sub underscore2($_;$);
884 sub underscore_fail($_$);
885 sub underscore_after_at(@_);
886 no warnings "syntax";
887 sub proto_after_array(@$);
888 sub proto_after_hash(%$);
889 sub underscore_fail($_$);
891 Prototype after '@' for main::proto_after_array : @$ at - line 3.
892 Prototype after '%' for main::proto_after_hash : %$ at - line 7.
893 Illegal character after '_' in prototype for main::underscore_fail : $_$ at - line 12.
894 Prototype after '@' for main::underscore_after_at : @_ at - line 13.
897 use warnings "ambiguous";
898 "foo\nn" =~ /^foo$\n/;
899 "foo\nn" =~ /^foo${\}n/;
900 my $foo = qr/^foo$\n/;
901 my $bar = qr/^foo${\}n/;
902 no warnings "ambiguous";
903 "foo\nn" =~ /^foo$\n/;
904 "foo\nn" =~ /^foo${\}n/;
905 my $foo = qr/^foo$\n/;
906 my $bar = qr/^foo${\}n/;
908 Possible unintended interpolation of $\ in regex at - line 3.
909 Possible unintended interpolation of $\ in regex at - line 5.
912 use warnings 'syntax' ;
916 no warnings 'syntax' ;
921 Missing braces on \o{} at - line 3, within string
922 Missing right brace on \o{ at - line 4, within string
923 Number with no digits at - line 5, within string
924 BEGIN not safe after errors--compilation aborted at - line 6.
927 use warnings 'digit' ;
928 my $a = "\o{1238456}";
929 no warnings 'digit' ;
930 my $a = "\o{1238456}";
932 Non-octal character '8'. Resolved as "\o{123}" at - line 3.
937 print $a =~ ?f? ? "yes\n" : "no\n" foreach 0..2;
939 Use of ?PATTERN? without explicit operator is deprecated at - line 4.
949 no warnings 'syntax';
953 no warnings 'deprecated';
955 "\c{" is deprecated and is more clearly written as ";" at - line 3.
956 "\c," is more clearly written simply as "l" at - line 4.
957 "\c`" is more clearly written simply as "\ " at - line 5.
958 "\c{" is deprecated and is more clearly written as ";" at - line 7.