This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix typo in Porting/sync-with-cpan
[perl5.git] / t / lib / warnings / toke
CommitLineData
599cee73
PM
1toke.c AOK
2
3 we seem to have lost a few ambiguous warnings!!
4
5
599cee73
PM
6 $a = <<;
7 Use of comma-less variable list is deprecated
8 (called 3 times via depcom)
9
10 \1 better written as $1
4438c4b7 11 use warnings 'syntax' ;
599cee73
PM
12 s/(abc)/\1/;
13
14 warn(warn_nosemi)
15 Semicolon seems to be missing
16 $a = 1
17 &time ;
18
19
20 Reversed %c= operator
21 my $a =+ 2 ;
22 $a =- 2 ;
23 $a =* 2 ;
24 $a =% 2 ;
25 $a =& 2 ;
26 $a =. 2 ;
27 $a =^ 2 ;
28 $a =| 2 ;
29 $a =< 2 ;
30 $a =/ 2 ;
31
32 Multidimensional syntax %.*s not supported
33 my $a = $a[1,2] ;
34
35 You need to quote \"%s\""
36 sub fred {} ; $SIG{TERM} = fred;
37
38 Scalar value %.*s better written as $%.*s"
39 @a[3] = 2;
40 @a{3} = 2;
41
42 Can't use \\%c to mean $%c in expression
43 $_ = "ab" ; s/(ab)/\1/e;
44
45 Unquoted string "abc" may clash with future reserved word at - line 3.
46 warn(warn_reserved
47 $a = abc;
48
599cee73
PM
49 Possible attempt to separate words with commas
50 @a = qw(a, b, c) ;
51
52 Possible attempt to put comments in qw() list
53 @a = qw(a b # c) ;
54
599cee73
PM
55 %s (...) interpreted as function
56 print ("")
57 printf ("")
58 sort ("")
59
60 Ambiguous use of %c{%s%s} resolved to %c%s%s
61 $a = ${time[2]}
62 $a = ${time{2}}
63
64
65 Ambiguous use of %c{%s} resolved to %c%s
66 $a = ${time}
67 sub fred {} $a = ${fred}
68
69 Misplaced _ in number
70 $a = 1_2;
71 $a = 1_2345_6;
72
73 Bareword \"%s\" refers to nonexistent package
74 $a = FRED:: ;
75
76 Ambiguous call resolved as CORE::%s(), qualify as such or use &
77 sub time {}
78 my $a = time()
79
767a6a26
PM
80 Unrecognized escape \\%c passed through
81 $a = "\m" ;
82
820438b1 83 Useless use of \\E.
52ed07f6
BF
84 $a = "abcd\E" ;
85
767a6a26
PM
86 %s number > %s non-portable
87 my $a = 0b011111111111111111111111111111110 ;
88 $a = 0b011111111111111111111111111111111 ;
89 $a = 0b111111111111111111111111111111111 ;
90 $a = 0x0fffffffe ;
91 $a = 0x0ffffffff ;
92 $a = 0x1ffffffff ;
93 $a = 0037777777776 ;
94 $a = 0037777777777 ;
95 $a = 0047777777777 ;
96
97 Integer overflow in binary number
98 my $a = 0b011111111111111111111111111111110 ;
99 $a = 0b011111111111111111111111111111111 ;
100 $a = 0b111111111111111111111111111111111 ;
101 $a = 0x0fffffffe ;
102 $a = 0x0ffffffff ;
103 $a = 0x1ffffffff ;
104 $a = 0037777777776 ;
105 $a = 0037777777777 ;
106 $a = 0047777777777 ;
ac206dc8
RGS
107
108 dump() better written as CORE::dump()
4ac733c9
MJD
109
110 Use of /c modifier is meaningless without /g
111
64e578a2
MJD
112 Use of /c modifier is meaningless in s///
113
0453d815
PM
114 Mandatory Warnings
115 ------------------
116 Use of "%s" without parentheses is ambiguous [check_uni]
117 rand + 4
118
119 Ambiguous use of -%s resolved as -&%s() [yylex]
120 sub fred {} ; - fred ;
121
122 Precedence problem: open %.*s should be open(%.*s) [yylex]
123 open FOO || die;
124
125 Operator or semicolon missing before %c%s [yylex]
126 Ambiguous use of %c resolved as operator %c
127 *foo *foo
128
599cee73
PM
129__END__
130# toke.c
599cee73
PM
131format STDOUT =
132@<<< @||| @>>> @>>>
133$a $b "abc" 'def'
134.
4438c4b7 135no warnings 'deprecated' ;
0453d815
PM
136format STDOUT =
137@<<< @||| @>>> @>>>
138$a $b "abc" 'def'
139.
599cee73 140EXPECT
d1d15184
NC
141Use of comma-less variable list is deprecated at - line 4.
142Use of comma-less variable list is deprecated at - line 4.
143Use of comma-less variable list is deprecated at - line 4.
599cee73
PM
144########
145# toke.c
599cee73
PM
146$a = <<;
147
4438c4b7 148no warnings 'deprecated' ;
0453d815
PM
149$a = <<;
150
599cee73 151EXPECT
0da72d5e
KW
152Use of bare << to mean <<"" is deprecated at - line 2.
153########
154# toke.c
155$a =~ m/$foo/eq;
156$a =~ s/$foo/fool/seq;
157
158EXPECT
159OPTION fatal
160Unknown regexp modifier "/e" at - line 2, near "=~ "
161Unknown regexp modifier "/q" at - line 2, near "=~ "
162Unknown regexp modifier "/q" at - line 3, near "=~ "
163Execution of - aborted due to compilation errors.
84159251
BF
164########
165# toke.c
166use utf8;
167use open qw( :utf8 :std );
168$a =~ m/$foo/eネq;
169$a =~ s/$foo/fool/seネq;
170
171EXPECT
172OPTION fatal
173Unknown regexp modifier "/e" at - line 4, near "=~ "
174Unknown regexp modifier "/ネ" at - line 4, near "=~ "
175Unknown regexp modifier "/q" at - line 4, near "=~ "
176Unknown regexp modifier "/ネ" at - line 5, near "=~ "
177Unknown regexp modifier "/q" at - line 5, near "=~ "
178Execution of - aborted due to compilation errors.
599cee73
PM
179########
180# toke.c
4438c4b7 181use warnings 'syntax' ;
599cee73 182s/(abc)/\1/;
4438c4b7 183no warnings 'syntax' ;
0453d815 184s/(abc)/\1/;
599cee73
PM
185EXPECT
186\1 better written as $1 at - line 3.
187########
188# toke.c
4438c4b7 189use warnings 'semicolon' ;
599cee73
PM
190$a = 1
191&time ;
4438c4b7 192no warnings 'semicolon' ;
0453d815
PM
193$a = 1
194&time ;
599cee73
PM
195EXPECT
196Semicolon seems to be missing at - line 3.
197########
198# toke.c
4438c4b7 199use warnings 'syntax' ;
599cee73
PM
200my $a =+ 2 ;
201$a =- 2 ;
202$a =* 2 ;
203$a =% 2 ;
204$a =& 2 ;
205$a =. 2 ;
206$a =^ 2 ;
207$a =| 2 ;
208$a =< 2 ;
209$a =/ 2 ;
210EXPECT
7f01dc7a
JH
211Reversed += operator at - line 3.
212Reversed -= operator at - line 4.
213Reversed *= operator at - line 5.
214Reversed %= operator at - line 6.
215Reversed &= operator at - line 7.
216Reversed .= operator at - line 8.
217Reversed ^= operator at - line 9.
218Reversed |= operator at - line 10.
219Reversed <= operator at - line 11.
220syntax error at - line 8, near "=."
221syntax error at - line 9, near "=^"
222syntax error at - line 10, near "=|"
223Unterminated <> operator at - line 11.
599cee73
PM
224########
225# toke.c
4438c4b7 226no warnings 'syntax' ;
0453d815
PM
227my $a =+ 2 ;
228$a =- 2 ;
229$a =* 2 ;
230$a =% 2 ;
231$a =& 2 ;
232$a =. 2 ;
233$a =^ 2 ;
234$a =| 2 ;
235$a =< 2 ;
236$a =/ 2 ;
237EXPECT
7f01dc7a
JH
238syntax error at - line 8, near "=."
239syntax error at - line 9, near "=^"
240syntax error at - line 10, near "=|"
241Unterminated <> operator at - line 11.
0453d815
PM
242########
243# toke.c
4438c4b7 244use warnings 'syntax' ;
599cee73 245my $a = $a[1,2] ;
4438c4b7 246no warnings 'syntax' ;
0453d815 247my $a = $a[1,2] ;
599cee73
PM
248EXPECT
249Multidimensional syntax $a[1,2] not supported at - line 3.
250########
251# toke.c
4438c4b7 252use warnings 'syntax' ;
599cee73 253sub fred {} ; $SIG{TERM} = fred;
4438c4b7 254no warnings 'syntax' ;
0453d815 255$SIG{TERM} = fred;
599cee73
PM
256EXPECT
257You need to quote "fred" at - line 3.
258########
259# toke.c
4c01a014
BF
260use utf8;
261use open qw( :utf8 :std );
262use warnings 'syntax' ;
263sub frèd {} ; $SIG{TERM} = frèd;
264no warnings 'syntax' ;
265$SIG{TERM} = frèd;
266EXPECT
267You need to quote "frèd" at - line 5.
268########
269# toke.c
270use utf8;
271use open qw( :utf8 :std );
272use warnings 'syntax' ;
273sub ふれど {} ; $SIG{TERM} = ふれど;
274no warnings 'syntax' ;
275$SIG{TERM} = ふれど;
276EXPECT
277You need to quote "ふれど" at - line 5.
278########
279# toke.c
4438c4b7 280use warnings 'syntax' ;
599cee73
PM
281@a[3] = 2;
282@a{3} = 2;
4438c4b7 283no warnings 'syntax' ;
0453d815
PM
284@a[3] = 2;
285@a{3} = 2;
599cee73
PM
286EXPECT
287Scalar value @a[3] better written as $a[3] at - line 3.
288Scalar value @a{3} better written as $a{3} at - line 4.
289########
290# toke.c
b9e186cd
BF
291use utf8;
292use open qw( :utf8 :std );
293use warnings 'syntax' ;
294@à[3] = 2;
295@à{3} = 2;
296no warnings 'syntax' ;
297@à[3] = 2;
298@à{3} = 2;
299EXPECT
300Scalar value @à[3] better written as $à[3] at - line 5.
301Scalar value @à{3} better written as $à{3} at - line 6.
302########
303# toke.c
304use utf8;
305use open qw( :utf8 :std );
306use warnings 'syntax' ;
307@ぁ[3] = 2;
308@ぁ{3} = 2;
309no warnings 'syntax' ;
310@ぁ[3] = 2;
311@ぁ{3} = 2;
312EXPECT
313Scalar value @ぁ[3] better written as $ぁ[3] at - line 5.
314Scalar value @ぁ{3} better written as $ぁ{3} at - line 6.
315########
316# toke.c
4438c4b7 317use warnings 'syntax' ;
599cee73
PM
318$_ = "ab" ;
319s/(ab)/\1/e;
4438c4b7 320no warnings 'syntax' ;
0453d815
PM
321$_ = "ab" ;
322s/(ab)/\1/e;
599cee73
PM
323EXPECT
324Can't use \1 to mean $1 in expression at - line 4.
325########
326# toke.c
4438c4b7 327use warnings 'reserved' ;
599cee73 328$a = abc;
1c3923b3
GS
329$a = { def
330
331=> 1 };
4438c4b7 332no warnings 'reserved' ;
0453d815 333$a = abc;
599cee73
PM
334EXPECT
335Unquoted string "abc" may clash with future reserved word at - line 3.
336########
337# toke.c
e476b1b5 338use warnings 'qw' ;
599cee73 339@a = qw(a, b, c) ;
e476b1b5 340no warnings 'qw' ;
0453d815 341@a = qw(a, b, c) ;
599cee73
PM
342EXPECT
343Possible attempt to separate words with commas at - line 3.
344########
345# toke.c
e476b1b5 346use warnings 'qw' ;
7e03b518 347@a = qw(a b c # #) ;
e476b1b5 348no warnings 'qw' ;
7e03b518 349@a = qw(a b c # #) ;
599cee73
PM
350EXPECT
351Possible attempt to put comments in qw() list at - line 3.
352########
353# toke.c
7e03b518
EB
354use warnings 'qw' ;
355@a = qw(a, b, c # #) ;
356no warnings 'qw' ;
357@a = qw(a, b, c # #) ;
358EXPECT
359Possible attempt to separate words with commas at - line 3.
360Possible attempt to put comments in qw() list at - line 3.
361########
362# toke.c
4438c4b7 363use warnings 'syntax' ;
b1439985
RGS
364print ("");
365print ("") and $x = 1;
366print ("") or die;
367print ("") // die;
368print (1+2) * 3 if 0; # only this one should warn
369print (1+2) if 0;
599cee73 370EXPECT
b1439985 371print (...) interpreted as function at - line 7.
599cee73
PM
372########
373# toke.c
4438c4b7 374no warnings 'syntax' ;
0453d815
PM
375print ("")
376EXPECT
377
378########
379# toke.c
4438c4b7 380use warnings 'syntax' ;
b1439985
RGS
381printf ("");
382printf ("") . '';
599cee73 383EXPECT
b1439985 384printf (...) interpreted as function at - line 4.
599cee73
PM
385########
386# toke.c
4438c4b7 387no warnings 'syntax' ;
0453d815
PM
388printf ("")
389EXPECT
390
391########
392# toke.c
4438c4b7 393use warnings 'syntax' ;
b1439985
RGS
394sort ("");
395sort ("") . '';
599cee73 396EXPECT
b1439985 397sort (...) interpreted as function at - line 4.
599cee73
PM
398########
399# toke.c
4438c4b7 400no warnings 'syntax' ;
0453d815
PM
401sort ("")
402EXPECT
403
404########
405# toke.c
4438c4b7 406use warnings 'ambiguous' ;
599cee73 407$a = ${time[2]};
4438c4b7 408no warnings 'ambiguous' ;
0453d815 409$a = ${time[2]};
599cee73
PM
410EXPECT
411Ambiguous use of ${time[...]} resolved to $time[...] at - line 3.
412########
413# toke.c
4438c4b7 414use warnings 'ambiguous' ;
599cee73
PM
415$a = ${time{2}};
416EXPECT
417Ambiguous use of ${time{...}} resolved to $time{...} at - line 3.
418########
419# toke.c
4438c4b7 420no warnings 'ambiguous' ;
0453d815
PM
421$a = ${time{2}};
422EXPECT
423
424########
425# toke.c
4438c4b7 426use warnings 'ambiguous' ;
599cee73 427$a = ${time} ;
4438c4b7 428no warnings 'ambiguous' ;
0453d815 429$a = ${time} ;
599cee73
PM
430EXPECT
431Ambiguous use of ${time} resolved to $time at - line 3.
432########
433# toke.c
4438c4b7 434use warnings 'ambiguous' ;
599cee73
PM
435sub fred {}
436$a = ${fred} ;
4438c4b7 437no warnings 'ambiguous' ;
0453d815 438$a = ${fred} ;
599cee73
PM
439EXPECT
440Ambiguous use of ${fred} resolved to $fred at - line 4.
441########
442# toke.c
4438c4b7 443use warnings 'syntax' ;
7fd134d9
JH
444$a = _123; print "$a\n"; #( 3 string)
445$a = 1_23; print "$a\n";
446$a = 12_3; print "$a\n";
447$a = 123_; print "$a\n"; # 6
448$a = _+123; print "$a\n"; # 7 string)
449$a = +_123; print "$a\n"; #( 8 string)
450$a = +1_23; print "$a\n";
451$a = +12_3; print "$a\n";
452$a = +123_; print "$a\n"; # 11
453$a = _-123; print "$a\n"; #(12 string)
454$a = -_123; print "$a\n"; #(13 string)
455$a = -1_23; print "$a\n";
456$a = -12_3; print "$a\n";
457$a = -123_; print "$a\n"; # 16
458$a = 123._456; print "$a\n"; # 17
459$a = 123.4_56; print "$a\n";
460$a = 123.45_6; print "$a\n";
461$a = 123.456_; print "$a\n"; # 20
462$a = +123._456; print "$a\n"; # 21
463$a = +123.4_56; print "$a\n";
464$a = +123.45_6; print "$a\n";
465$a = +123.456_; print "$a\n"; # 24
466$a = -123._456; print "$a\n"; # 25
467$a = -123.4_56; print "$a\n";
468$a = -123.45_6; print "$a\n";
469$a = -123.456_; print "$a\n"; # 28
2bea9a37
JH
470$a = 123.456E_12; printf("%.0f\n", $a); # 29
471$a = 123.456E1_2; printf("%.0f\n", $a);
472$a = 123.456E12_; printf("%.0f\n", $a); # 31
473$a = 123.456E_+12; printf("%.0f\n", $a); # 32
474$a = 123.456E+_12; printf("%.0f\n", $a); # 33
475$a = 123.456E+1_2; printf("%.0f\n", $a);
476$a = 123.456E+12_; printf("%.0f\n", $a); # 35
7fd134d9
JH
477$a = 123.456E_-12; print "$a\n"; # 36
478$a = 123.456E-_12; print "$a\n"; # 37
479$a = 123.456E-1_2; print "$a\n";
480$a = 123.456E-12_; print "$a\n"; # 39
b3b48e3e
JH
481$a = 1__23; print "$a\n"; # 40
482$a = 12.3__4; print "$a\n"; # 41
2bea9a37 483$a = 12.34e1__2; printf("%.0f\n", $a); # 42
4438c4b7 484no warnings 'syntax' ;
7fd134d9
JH
485$a = _123; print "$a\n";
486$a = 1_23; print "$a\n";
487$a = 12_3; print "$a\n";
488$a = 123_; print "$a\n";
489$a = _+123; print "$a\n";
490$a = +_123; print "$a\n";
491$a = +1_23; print "$a\n";
492$a = +12_3; print "$a\n";
493$a = +123_; print "$a\n";
494$a = _-123; print "$a\n";
495$a = -_123; print "$a\n";
496$a = -1_23; print "$a\n";
497$a = -12_3; print "$a\n";
498$a = -123_; print "$a\n";
499$a = 123._456; print "$a\n";
500$a = 123.4_56; print "$a\n";
501$a = 123.45_6; print "$a\n";
502$a = 123.456_; print "$a\n";
503$a = +123._456; print "$a\n";
504$a = +123.4_56; print "$a\n";
505$a = +123.45_6; print "$a\n";
506$a = +123.456_; print "$a\n";
507$a = -123._456; print "$a\n";
508$a = -123.4_56; print "$a\n";
509$a = -123.45_6; print "$a\n";
510$a = -123.456_; print "$a\n";
2bea9a37
JH
511$a = 123.456E_12; printf("%.0f\n", $a);
512$a = 123.456E1_2; printf("%.0f\n", $a);
513$a = 123.456E12_; printf("%.0f\n", $a);
514$a = 123.456E_+12; printf("%.0f\n", $a);
515$a = 123.456E+_12; printf("%.0f\n", $a);
516$a = 123.456E+1_2; printf("%.0f\n", $a);
517$a = 123.456E+12_; printf("%.0f\n", $a);
7fd134d9
JH
518$a = 123.456E_-12; print "$a\n";
519$a = 123.456E-_12; print "$a\n";
520$a = 123.456E-1_2; print "$a\n";
521$a = 123.456E-12_; print "$a\n";
b3b48e3e
JH
522$a = 1__23; print "$a\n";
523$a = 12.3__4; print "$a\n";
2bea9a37 524$a = 12.34e1__2; printf("%.0f\n", $a);
599cee73 525EXPECT
fbfa96bd 526OPTIONS regex
928753ea 527Misplaced _ in number at - line 6.
928753ea 528Misplaced _ in number at - line 11.
7fd134d9 529Misplaced _ in number at - line 16.
928753ea 530Misplaced _ in number at - line 17.
7fd134d9 531Misplaced _ in number at - line 20.
928753ea 532Misplaced _ in number at - line 21.
7fd134d9
JH
533Misplaced _ in number at - line 24.
534Misplaced _ in number at - line 25.
535Misplaced _ in number at - line 28.
536Misplaced _ in number at - line 29.
537Misplaced _ in number at - line 31.
538Misplaced _ in number at - line 32.
539Misplaced _ in number at - line 33.
540Misplaced _ in number at - line 35.
541Misplaced _ in number at - line 36.
542Misplaced _ in number at - line 37.
543Misplaced _ in number at - line 39.
b3b48e3e
JH
544Misplaced _ in number at - line 40.
545Misplaced _ in number at - line 41.
546Misplaced _ in number at - line 42.
928753ea
JH
547_123
548123
928753ea 549123
7fd134d9
JH
550123
551123
552_123
553123
554123
555123
556-123
557-_123
558-123
559-123
560-123
561123.456
562123.456
563123.456
564123.456
565123.456
566123.456
567123.456
568123.456
569-123.456
570-123.456
571-123.456
572-123.456
573123456000000000
574123456000000000
575123456000000000
576123456000000000
577123456000000000
578123456000000000
579123456000000000
fbfa96bd
NIS
5801.23456e-0?10
5811.23456e-0?10
5821.23456e-0?10
5831.23456e-0?10
b3b48e3e
JH
584123
58512.34
58612340000000000
7fd134d9
JH
587_123
588123
589123
590123
591123
592_123
593123
594123
595123
596-123
597-_123
598-123
599-123
600-123
601123.456
602123.456
603123.456
604123.456
605123.456
928753ea
JH
606123.456
607123.456
928753ea 608123.456
7fd134d9
JH
609-123.456
610-123.456
611-123.456
612-123.456
613123456000000000
614123456000000000
615123456000000000
616123456000000000
617123456000000000
618123456000000000
619123456000000000
fbfa96bd
NIS
6201.23456e-0?10
6211.23456e-0?10
6221.23456e-0?10
6231.23456e-0?10
b3b48e3e
JH
624123
62512.34
62612340000000000
599cee73
PM
627########
628# toke.c
e476b1b5 629use warnings 'bareword' ;
60e6418e 630#line 25 "bar"
599cee73 631$a = FRED:: ;
e476b1b5 632no warnings 'bareword' ;
0453d815
PM
633#line 25 "bar"
634$a = FRED:: ;
599cee73 635EXPECT
60e6418e 636Bareword "FRED::" refers to nonexistent package at bar line 25.
979a1401
BF
637########
638# toke.c
639use utf8;
640use open qw( :utf8 :std );
641use warnings 'bareword' ;
642#line 25 "bar"
643$a = FRÈD:: ;
644no warnings 'bareword' ;
645#line 25 "bar"
646$a = FRÈD:: ;
647EXPECT
648Bareword "FRÈD::" refers to nonexistent package at bar line 25.
649########
650# toke.c
651use utf8;
652use open qw( :utf8 :std );
653use warnings 'bareword' ;
654#line 25 "bar"
655$a = ϞϞϞ:: ;
656no warnings 'bareword' ;
657#line 25 "bar"
658$a = ϞϞϞ:: ;
659EXPECT
660Bareword "ϞϞϞ::" refers to nonexistent package at bar line 25.
599cee73
PM
661########
662# toke.c
4438c4b7 663use warnings 'ambiguous' ;
599cee73 664sub time {}
0453d815 665my $a = time() ;
4438c4b7 666no warnings 'ambiguous' ;
0453d815 667my $b = time() ;
599cee73
PM
668EXPECT
669Ambiguous call resolved as CORE::time(), qualify as such or use & at - line 4.
670########
671# toke.c
26d16222 672use warnings ;
0453d815 673eval <<'EOE';
df0deb90
GS
674# line 30 "foo"
675warn "yelp";
0453d815 676{
0453d815
PM
677 $_ = " \x{123} " ;
678}
679EOE
680EXPECT
df0deb90 681yelp at foo line 30.
0453d815
PM
682########
683# toke.c
0453d815 684my $a = rand + 4 ;
fbdd83da
DIM
685$a = rand *^H ;
686$a = rand $^H ;
0453d815 687EXPECT
2d5ccbba 688Warning: Use of "rand" without parentheses is ambiguous at - line 2.
0453d815
PM
689########
690# toke.c
691$^W = 0 ;
692my $a = rand + 4 ;
693{
4438c4b7 694 no warnings 'ambiguous' ;
0453d815 695 $a = rand + 4 ;
4438c4b7 696 use warnings 'ambiguous' ;
0453d815
PM
697 $a = rand + 4 ;
698}
699$a = rand + 4 ;
700EXPECT
2d5ccbba
IT
701Warning: Use of "rand" without parentheses is ambiguous at - line 3.
702Warning: Use of "rand" without parentheses is ambiguous at - line 8.
703Warning: Use of "rand" without parentheses is ambiguous at - line 10.
0453d815 704########
e19a021b
FC
705# [perl #97110]
706sub myrand(;$) { }
b5fb7ce3 707sub whatever($) { }
e19a021b 708my $a = myrand + 4 ;
b5fb7ce3 709my $b = whatever + 4 ;
e19a021b 710EXPECT
b5fb7ce3 711Warning: Use of "myrand" without parentheses is ambiguous at - line 4.
e19a021b 712########
0453d815 713# toke.c
e8ae98db
RGS
714use warnings "ambiguous";
715print for keys %+; # should not warn
716EXPECT
717########
718# toke.c
0453d815
PM
719sub fred {};
720-fred ;
898c3bca
FC
721sub hank : lvalue {$_}
722--hank; # This should *not* warn [perl #77240]
0453d815
PM
723EXPECT
724Ambiguous use of -fred resolved as -&fred() at - line 3.
725########
726# toke.c
727$^W = 0 ;
728sub fred {} ;
729-fred ;
730{
4438c4b7 731 no warnings 'ambiguous' ;
0453d815 732 -fred ;
4438c4b7 733 use warnings 'ambiguous' ;
0453d815
PM
734 -fred ;
735}
736-fred ;
737EXPECT
738Ambiguous use of -fred resolved as -&fred() at - line 4.
739Ambiguous use of -fred resolved as -&fred() at - line 9.
740Ambiguous use of -fred resolved as -&fred() at - line 11.
741########
742# toke.c
43b5ab4c
BF
743use utf8;
744use open qw( :utf8 :std );
745sub frèd {};
746-frèd ;
747EXPECT
748Ambiguous use of -frèd resolved as -&frèd() at - line 5.
749########
750# toke.c
751$^W = 0 ;
752use utf8;
753use open qw( :utf8 :std );
754sub frèd {} ;
755-frèd ;
756{
757 no warnings 'ambiguous' ;
758 -frèd ;
759 use warnings 'ambiguous' ;
760 -frèd ;
761}
762-frèd ;
763EXPECT
764Ambiguous use of -frèd resolved as -&frèd() at - line 6.
765Ambiguous use of -frèd resolved as -&frèd() at - line 11.
766Ambiguous use of -frèd resolved as -&frèd() at - line 13.
767########
768# toke.c
769use utf8;
770use open qw( :utf8 :std );
771sub ᒍᒘᒊ {};
772-ᒍᒘᒊ ;
773EXPECT
774Ambiguous use of -ᒍᒘᒊ resolved as -&ᒍᒘᒊ() at - line 5.
775########
776# toke.c
777$^W = 0 ;
778use utf8;
779use open qw( :utf8 :std );
780sub ᒍᒘᒊ {} ;
781-ᒍᒘᒊ ;
782{
783 no warnings 'ambiguous' ;
784 -ᒍᒘᒊ ;
785 use warnings 'ambiguous' ;
786 -ᒍᒘᒊ ;
787}
788-ᒍᒘᒊ ;
789EXPECT
790Ambiguous use of -ᒍᒘᒊ resolved as -&ᒍᒘᒊ() at - line 6.
791Ambiguous use of -ᒍᒘᒊ resolved as -&ᒍᒘᒊ() at - line 11.
792Ambiguous use of -ᒍᒘᒊ resolved as -&ᒍᒘᒊ() at - line 13.
793########
794# toke.c
0453d815 795open FOO || time;
240d1b6f 796open local *FOO; # should be ok
0453d815
PM
797EXPECT
798Precedence problem: open FOO should be open(FOO) at - line 2.
799########
71aa9713
BF
800# toke.c
801use utf8;
802use open qw( :utf8 :std );
803open FÒÒ || time;
804EXPECT
805Precedence problem: open FÒÒ should be open(FÒÒ) at - line 4.
806########
807# toke.c
808use utf8;
809use open qw( :utf8 :std );
810open ᒍOO || time;
811EXPECT
812Precedence problem: open ᒍOO should be open(ᒍOO) at - line 4.
813########
66fbe8fb
HS
814# toke.c (and [perl #16184])
815open FOO => "<&0"; close FOO;
816EXPECT
817########
0453d815
PM
818# toke.c
819$^W = 0 ;
820open FOO || time;
821{
e476b1b5 822 no warnings 'precedence' ;
0453d815 823 open FOO || time;
e476b1b5 824 use warnings 'precedence' ;
0453d815
PM
825 open FOO || time;
826}
827open FOO || time;
db3abe52 828open Foo::BAR; # this should not warn
0453d815
PM
829EXPECT
830Precedence problem: open FOO should be open(FOO) at - line 3.
831Precedence problem: open FOO should be open(FOO) at - line 8.
832Precedence problem: open FOO should be open(FOO) at - line 10.
833########
834# toke.c
835$^W = 0 ;
71aa9713
BF
836use utf8;
837use open qw( :utf8 :std );
838open FÒÒ || time;
839{
840 no warnings 'precedence' ;
841 open FÒÒ || time;
842 use warnings 'precedence' ;
843 open FÒÒ || time;
844}
845open FÒÒ || time;
846EXPECT
847Precedence problem: open FÒÒ should be open(FÒÒ) at - line 5.
848Precedence problem: open FÒÒ should be open(FÒÒ) at - line 10.
849Precedence problem: open FÒÒ should be open(FÒÒ) at - line 12.
850########
851# toke.c
852use utf8;
853use open qw( :utf8 :std );
854$^W = 0 ;
855open ᒍÒÒ || time;
856{
857 no warnings 'precedence' ;
858 open ᒍÒÒ || time;
859 use warnings 'precedence' ;
860 open ᒍÒÒ || time;
861}
862open ᒍÒÒ || time;
863EXPECT
864Precedence problem: open ᒍÒÒ should be open(ᒍÒÒ) at - line 5.
865Precedence problem: open ᒍÒÒ should be open(ᒍÒÒ) at - line 10.
866Precedence problem: open ᒍÒÒ should be open(ᒍÒÒ) at - line 12.
867########
868# toke.c
869$^W = 0 ;
0453d815
PM
870*foo *foo ;
871{
4438c4b7 872 no warnings 'ambiguous' ;
0453d815 873 *foo *foo ;
4438c4b7 874 use warnings 'ambiguous' ;
0453d815
PM
875 *foo *foo ;
876}
877*foo *foo ;
878EXPECT
879Operator or semicolon missing before *foo at - line 3.
880Ambiguous use of * resolved as operator * at - line 3.
881Operator or semicolon missing before *foo at - line 8.
882Ambiguous use of * resolved as operator * at - line 8.
883Operator or semicolon missing before *foo at - line 10.
884Ambiguous use of * resolved as operator * at - line 10.
767a6a26
PM
885########
886# toke.c
02571fe8
BF
887use utf8;
888use open qw( :utf8 :std );
889$^W = 0 ;
890*foo *foo ;
891{
892 no warnings 'ambiguous' ;
893 *foo *foo ;
894 use warnings 'ambiguous' ;
895 *foo *foo ;
896}
897*foo *foo ;
898EXPECT
899Operator or semicolon missing before *foo at - line 5.
900Ambiguous use of * resolved as operator * at - line 5.
901Operator or semicolon missing before *foo at - line 10.
902Ambiguous use of * resolved as operator * at - line 10.
903Operator or semicolon missing before *foo at - line 12.
904Ambiguous use of * resolved as operator * at - line 12.
905########
906# toke.c
e476b1b5 907use warnings 'misc' ;
767a6a26 908my $a = "\m" ;
e476b1b5 909no warnings 'misc' ;
767a6a26
PM
910$a = "\m" ;
911EXPECT
912Unrecognized escape \m passed through at - line 3.
913########
914# toke.c
52ed07f6
BF
915use warnings 'misc' ;
916my $a = "abcd\E" ;
917no warnings 'misc' ;
918$a = "abcd\E" ;
919EXPECT
820438b1 920Useless use of \E at - line 3.
52ed07f6
BF
921########
922# toke.c
767a6a26
PM
923use warnings 'portable' ;
924my $a = 0b011111111111111111111111111111110 ;
925 $a = 0b011111111111111111111111111111111 ;
926 $a = 0b111111111111111111111111111111111 ;
927 $a = 0x0fffffffe ;
928 $a = 0x0ffffffff ;
929 $a = 0x1ffffffff ;
930 $a = 0037777777776 ;
931 $a = 0037777777777 ;
932 $a = 0047777777777 ;
933no warnings 'portable' ;
934 $a = 0b011111111111111111111111111111110 ;
935 $a = 0b011111111111111111111111111111111 ;
936 $a = 0b111111111111111111111111111111111 ;
937 $a = 0x0fffffffe ;
938 $a = 0x0ffffffff ;
939 $a = 0x1ffffffff ;
940 $a = 0037777777776 ;
941 $a = 0037777777777 ;
942 $a = 0047777777777 ;
943EXPECT
944Binary number > 0b11111111111111111111111111111111 non-portable at - line 5.
945Hexadecimal number > 0xffffffff non-portable at - line 8.
946Octal number > 037777777777 non-portable at - line 11.
947########
948# toke.c
949use warnings 'overflow' ;
950my $a = 0b011111111111111111111111111111110 ;
951 $a = 0b011111111111111111111111111111111 ;
15041a67 952 $a = 0b10000000000000000000000000000000000000000000000000000000000000000 ;
767a6a26
PM
953 $a = 0x0fffffffe ;
954 $a = 0x0ffffffff ;
15041a67 955 $a = 0x10000000000000000 ;
767a6a26
PM
956 $a = 0037777777776 ;
957 $a = 0037777777777 ;
15041a67 958 $a = 002000000000000000000000;
767a6a26
PM
959no warnings 'overflow' ;
960 $a = 0b011111111111111111111111111111110 ;
961 $a = 0b011111111111111111111111111111111 ;
15041a67 962 $a = 0b10000000000000000000000000000000000000000000000000000000000000000 ;
767a6a26
PM
963 $a = 0x0fffffffe ;
964 $a = 0x0ffffffff ;
15041a67 965 $a = 0x10000000000000000 ;
767a6a26
PM
966 $a = 0037777777776 ;
967 $a = 0037777777777 ;
15041a67 968 $a = 002000000000000000000000;
767a6a26
PM
969EXPECT
970Integer overflow in binary number at - line 5.
971Integer overflow in hexadecimal number at - line 8.
972Integer overflow in octal number at - line 11.
8593bda5
GS
973########
974# toke.c
ac206dc8
RGS
975BEGIN { $^C = 1; }
976use warnings 'misc';
977dump;
978CORE::dump;
979EXPECT
980dump() better written as CORE::dump() at - line 4.
981- syntax OK
982########
983# toke.c
984use warnings 'misc';
985use subs qw/dump/;
93f09d7b 986sub dump { print "no warning for overridden dump\n"; }
ac206dc8
RGS
987dump;
988EXPECT
93f09d7b 989no warning for overridden dump
ac206dc8
RGS
990########
991# toke.c
8593bda5
GS
992use warnings 'ambiguous';
993"@mjd_previously_unused_array";
994no warnings 'ambiguous';
29fb1d0e 995"@mjd_previously_unused_array2";
8593bda5
GS
996EXPECT
997Possible unintended interpolation of @mjd_previously_unused_array in string at - line 3.
707afd92
MS
998########
999# toke.c
29fb1d0e
BF
1000use utf8;
1001use open qw( :utf8 :std );
1002use warnings 'ambiguous';
1003"@mjd_previously_unused_àrray";
1004no warnings 'ambiguous';
1005"@mjd_previously_unused_àrray2";
1006EXPECT
1007Possible unintended interpolation of @mjd_previously_unused_àrray in string at - line 5.
1008########
1009# toke.c
1010use utf8;
1011use open qw( :utf8 :std );
1012use warnings 'ambiguous';
1013"@mjd_previously_unused_ぁrrぁy";
1014no warnings 'ambiguous';
1015"@mjd_previously_unused_ぁrrぁy2";
1016EXPECT
1017Possible unintended interpolation of @mjd_previously_unused_ぁrrぁy in string at - line 5.
1018########
1019# toke.c
d8c55666 1020# 20020328 mjd-perl-patch+@plover.com at behest of jfriedl@yahoo.com
4ac733c9
MJD
1021use warnings 'regexp';
1022"foo" =~ /foo/c;
64e578a2 1023"foo" =~ /foo/cg;
4ac733c9
MJD
1024no warnings 'regexp';
1025"foo" =~ /foo/c;
64e578a2 1026"foo" =~ /foo/cg;
4ac733c9
MJD
1027EXPECT
1028Use of /c modifier is meaningless without /g at - line 4.
1029########
1030# toke.c
d8c55666 1031# 20020328 mjd-perl-patch+@plover.com at behest of jfriedl@yahoo.com
4ac733c9
MJD
1032use warnings 'regexp';
1033$_ = "ab" ;
1034s/ab/ab/c;
64e578a2 1035s/ab/ab/cg;
4ac733c9
MJD
1036no warnings 'regexp';
1037s/ab/ab/c;
64e578a2 1038s/ab/ab/cg;
4ac733c9 1039EXPECT
64e578a2
MJD
1040Use of /c modifier is meaningless in s/// at - line 5.
1041Use of /c modifier is meaningless in s/// at - line 6.
d8c55666
MJD
1042########
1043-wa
1044# toke.c
1045# 20020414 mjd-perl-patch+@plover.com # -a flag should suppress these warnings
1046print "@F\n";
1047EXPECT
1048
1049########
1050-w
1051# toke.c
1052# 20020414 mjd-perl-patch+@plover.com # -a flag should suppress these warnings
1053print "@F\n";
1054EXPECT
1055Possible unintended interpolation of @F in string at - line 4.
1056Name "main::F" used only once: possible typo at - line 4.
1057########
1058-wa
1059# toke.c
1060# 20020414 mjd-perl-patch+@plover.com
1061EXPECT
1062
2710853f
MJD
1063########
1064# toke.c
1065# 20020414 mjd-perl-patch+@plover.com
1066# In 5.7.3, this emitted "Possible unintended interpolation" warnings
1067use warnings 'ambiguous';
1068$s = "(@-)(@+)";
1069EXPECT
1070
56da5a46
RGS
1071########
1072# toke.c
1073# mandatory warning
1074eval q/if ($a) { } elseif ($b) { }/;
1075no warnings "syntax";
1076eval q/if ($a) { } elseif ($b) { }/;
1077EXPECT
1078elseif should be elsif at (eval 1) line 1.
1079########
1080# toke.c
1081# mandatory warning
1082eval q/5 6/;
1083no warnings "syntax";
1084eval q/5 6/;
1085EXPECT
1086Number found where operator expected at (eval 1) line 1, near "5 6"
1087 (Missing operator before 6?)
984200d0
YST
1088########
1089# toke.c
7fc874e8 1090use warnings "syntax"; no warnings "deprecated";
984200d0
YST
1091$_ = $a = 1;
1092$a !=~ /1/;
1093$a !=~ m#1#;
1094$a !=~/1/;
1095$a !=~ ?/?;
decca21c
YST
1096$a !=~ y/1//;
1097$a !=~ tr/1//;
1098$a !=~ s/1//;
984200d0
YST
1099$a != ~/1/;
1100no warnings "syntax";
1101$a !=~ /1/;
1102$a !=~ m#1#;
1103$a !=~/1/;
1104$a !=~ ?/?;
decca21c
YST
1105$a !=~ y/1//;
1106$a !=~ tr/1//;
1107$a !=~ s/1//;
984200d0
YST
1108EXPECT
1109!=~ should be !~ at - line 4.
1110!=~ should be !~ at - line 5.
1111!=~ should be !~ at - line 6.
1112!=~ should be !~ at - line 7.
decca21c
YST
1113!=~ should be !~ at - line 8.
1114!=~ should be !~ at - line 9.
1115!=~ should be !~ at - line 10.
1108974d
RGS
1116########
1117# toke.c
1118our $foo :unique;
8e5dadda
NC
1119sub pam :locked;
1120sub glipp :locked {
1121}
1122sub whack_eth ($) : locked {
1123}
d1d15184 1124no warnings 'deprecated';
1108974d 1125our $bar :unique;
8e5dadda
NC
1126sub zapeth :locked;
1127sub ker_plop :locked {
1128}
1129sub swa_a_p ($) : locked {
1130}
1108974d 1131EXPECT
d1d15184
NC
1132Use of :unique is deprecated at - line 2.
1133Use of :locked is deprecated at - line 3.
1134Use of :locked is deprecated at - line 4.
1135Use of :locked is deprecated at - line 6.
9e8d7757
RB
1136########
1137# toke.c
e7d0b801 1138use warnings "syntax"; use feature 'lexical_subs';
9e8d7757
RB
1139sub proto_after_array(@$);
1140sub proto_after_arref(\@$);
1141sub proto_after_arref2(\[@$]);
1142sub proto_after_arref3(\[@$]_);
1143sub proto_after_hash(%$);
1144sub proto_after_hashref(\%$);
1145sub proto_after_hashref2(\[%$]);
1146sub underscore_last_pos($_);
1147sub underscore2($_;$);
1148sub underscore_fail($_$);
1149sub underscore_after_at(@_);
689aac7b
FC
1150our sub hour (@$);
1151my sub migh (@$);
e7d0b801 1152use feature 'state';
689aac7b
FC
1153state sub estate (@$);
1154package other;
1155sub hour (@$);
1156sub migh (@$);
1157sub estate (@$);
9e8d7757
RB
1158no warnings "syntax";
1159sub proto_after_array(@$);
1160sub proto_after_hash(%$);
1161sub underscore_fail($_$);
1162EXPECT
1163Prototype after '@' for main::proto_after_array : @$ at - line 3.
1164Prototype after '%' for main::proto_after_hash : %$ at - line 7.
aef2a98a 1165Illegal character after '_' in prototype for main::underscore_fail : $_$ at - line 12.
9e8d7757 1166Prototype after '@' for main::underscore_after_at : @_ at - line 13.
64fbf0dd 1167The lexical_subs feature is experimental at - line 14.
689aac7b 1168Prototype after '@' for hour : @$ at - line 14.
64fbf0dd 1169The lexical_subs feature is experimental at - line 15.
689aac7b 1170Prototype after '@' for migh : @$ at - line 15.
64fbf0dd 1171The lexical_subs feature is experimental at - line 17.
689aac7b
FC
1172Prototype after '@' for estate : @$ at - line 17.
1173Prototype after '@' for hour : @$ at - line 19.
1174Prototype after '@' for migh : @$ at - line 20.
1175Prototype after '@' for estate : @$ at - line 21.
77772344
B
1176########
1177# toke.c
1178use warnings "ambiguous";
1179"foo\nn" =~ /^foo$\n/;
1180"foo\nn" =~ /^foo${\}n/;
1181my $foo = qr/^foo$\n/;
1182my $bar = qr/^foo${\}n/;
1183no warnings "ambiguous";
1184"foo\nn" =~ /^foo$\n/;
1185"foo\nn" =~ /^foo${\}n/;
1186my $foo = qr/^foo$\n/;
1187my $bar = qr/^foo${\}n/;
1188EXPECT
1189Possible unintended interpolation of $\ in regex at - line 3.
1190Possible unintended interpolation of $\ in regex at - line 5.
d83f38d8
NC
1191########
1192# toke.c
f0a2b745
KW
1193use warnings 'syntax' ;
1194my $a = "\o";
1195my $a = "\o{";
1196my $a = "\o{}";
1197no warnings 'syntax' ;
1198my $a = "\o";
1199my $a = "\o{";
1200my $a = "\o{}";
1201EXPECT
1202Missing braces on \o{} at - line 3, within string
1203Missing right brace on \o{ at - line 4, within string
1204Number with no digits at - line 5, within string
1205BEGIN not safe after errors--compilation aborted at - line 6.
1206########
1207# toke.c
1208use warnings 'digit' ;
1209my $a = "\o{1238456}";
1210no warnings 'digit' ;
1211my $a = "\o{1238456}";
1212EXPECT
1213Non-octal character '8'. Resolved as "\o{123}" at - line 3.
725a61d7
Z
1214########
1215# toke.c
1216use warnings;
1217my $a = "foo";
1218print $a =~ ?f? ? "yes\n" : "no\n" foreach 0..2;
1219EXPECT
1220Use of ?PATTERN? without explicit operator is deprecated at - line 4.
1221yes
1222no
1223no
17a3df4c
KW
1224########
1225# toke.c
1226use warnings;
1227my $a = "\c{ack}";
1228$a = "\c,";
1229$a = "\c`";
1230no warnings 'syntax';
1231$a = "\c{ack}";
1232$a = "\c,";
1233$a = "\c`";
1234no warnings 'deprecated';
1235EXPECT
1236"\c{" is deprecated and is more clearly written as ";" at - line 3.
1237"\c," is more clearly written simply as "l" at - line 4.
1238"\c`" is more clearly written simply as "\ " at - line 5.
1239"\c{" is deprecated and is more clearly written as ";" at - line 7.
3955e1a9
KW
1240########
1241# toke.c
1242use warnings 'syntax' ;
1243my $a = qr/foo/du;
ff3f26d2 1244$a = qr/foo/lai;
3955e1a9 1245$a = qr/foo/lil;
ff3f26d2
KW
1246$a = qr/foo/aia;
1247$a = qr/foo/aaia;
3955e1a9
KW
1248no warnings 'syntax' ;
1249my $a = qr/foo/du;
1250EXPECT
1251Regexp modifiers "/d" and "/u" are mutually exclusive at - line 3, near "= "
1252Regexp modifiers "/l" and "/a" are mutually exclusive at - line 4, near "= "
1253Regexp modifier "/l" may not appear twice at - line 5, near "= "
ff3f26d2
KW
1254Regexp modifier "/a" may appear a maximum of twice at - line 7, near "= "
1255BEGIN not safe after errors--compilation aborted at - line 8.
ba05d9aa
FC
1256########
1257# toke.c
1258# [perl #4362]
1259eval "print q\xabfoo";
1260print "ok\n" if
1261 $@ =~ /Can't find string terminator "\xab" anywhere before EOF/;
1262EXPECT
1263ok
5c66c3dd
BF
1264########
1265# toke.c
1266use utf8;
1267use open qw( :utf8 :std );
1268use warnings 'ambiguous' ;
1269sub frèd {}
1270$a = ${frèd} ;
1271no warnings 'ambiguous' ;
1272$a = ${frèd} ;
1273EXPECT
1274Ambiguous use of ${frèd} resolved to $frèd at - line 6.
1275########
1276# toke.c
1277use utf8;
1278use open qw( :utf8 :std );
1279use warnings 'ambiguous' ;
1280sub f렏 {}
1281$a = ${f렏} ;
1282no warnings 'ambiguous' ;
1283$a = ${f렏} ;
1284EXPECT
1285Ambiguous use of ${f렏} resolved to $f렏 at - line 6.
3773592b
BF
1286########
1287# toke.c
1288use utf8;
1289use open qw( :utf8 :std );
1290use warnings;
1291CORE::렏;
1292EXPECT
1293CORE::렏 is not a keyword at - line 5.
5dc13276
MH
1294########
1295# toke.c
1296# [perl #16249]
1297print '';
1298eval this_method_is_fake ();
1299EXPECT
1300Undefined subroutine &main::this_method_is_fake called at - line 4.
a71a1afb
FC
1301########
1302# toke.c
1303# [perl #107002] Erroneous ambiguity warnings
1304sub { # do not actually call require
1305 require a::b . 1; # These used to produce erroneous
1306 require a::b + 1; # ambiguity warnings.
1307}
1308EXPECT
4d68ffa0
KW
1309########
1310# toke.c
8fb629db 1311# [perl #113094]
4d68ffa0
KW
1312print "aa" =~ m{^a\{1,2\}$}, "\n";
1313print "aa" =~ m{^a\x\{61\}$}, "\n";
1314print "aa" =~ m{^a{1,2}$}, "\n";
1315print "aq" =~ m[^a\[a-z\]$], "\n";
1316print "aq" =~ m(^a\(q\)$), "\n";
1317no warnings 'deprecated';
1318print "aa" =~ m{^a\{1,2\}$}, "\n";
1319print "aa" =~ m{^a\x\{61\}$}, "\n";
1320print "aq" =~ m[^a\[a-z\]$], "\n";
1321print "aq" =~ m(^a\(q\)$), "\n";
1322EXPECT
1323Useless use of '\'; doesn't escape metacharacter '{' at - line 3.
1324Useless use of '\'; doesn't escape metacharacter '{' at - line 4.
1325Useless use of '\'; doesn't escape metacharacter '[' at - line 6.
1326Useless use of '\'; doesn't escape metacharacter '(' at - line 7.
13271
13281
13291
13301
1331q
13321
13331
13341
1335q