This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Forbid setting $/ to a reference to a non-postive integer
[perl5.git] / t / lib / warnings / mg
1   mg.c  AOK
2
3   No such signal: SIG%s
4     $SIG{FRED} = sub {}
5
6   SIG%s handler \"%s\" not defined.
7     $SIG{"INT"} = "ok3"; kill "INT",$$;
8
9 __END__
10 # mg.c
11 use warnings 'signal' ;
12 $SIG{FRED} = sub {};
13 EXPECT
14 No such signal: SIGFRED at - line 3.
15 ########
16 # mg.c
17 no warnings 'signal' ;
18 $SIG{FRED} = sub {};
19 EXPECT
20
21 ########
22 # mg.c
23 use warnings 'signal' ;
24 if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') {
25     print "SKIPPED\n# $^O, can't kill() to raise()\n"; exit;
26 }
27 $|=1;
28 $SIG{"INT"} = "fred"; kill "INT",$$;
29 EXPECT
30 SIGINT handler "fred" not defined.
31 ########
32 # mg.c
33 no warnings 'signal' ;
34 if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') {
35     print "SKIPPED\n# $^O, can't kill() to raise()\n"; exit;
36 }
37 $|=1;
38 $SIG{"INT"} = "fred"; kill "INT",$$;
39 EXPECT
40
41 ########
42 # mg.c
43 use warnings 'signal' ;
44 if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') {
45     print "SKIPPED\n# $^O, can't kill() to raise()\n"; exit;
46 }
47 $|=1;
48 $SIG{__WARN__} = sub { warn shift =~ s/\0/\\0/rugs };
49 $SIG{"INT"} = "fr\0d"; kill "INT",$$;
50 EXPECT
51 SIGINT handler "fr\0d" not defined.
52 ########
53 # mg.c
54 use warnings 'signal' ;
55 use open ":std", ":utf8";
56 use utf8;
57 if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') {
58     print "SKIPPED\n# $^O, can't kill() to raise()\n"; exit;
59 }
60 $|=1;
61 $SIG{"INT"} = "프레드"; kill "INT",$$;
62 EXPECT
63 SIGINT handler "프레드" not defined.
64 ########
65 # mg.c
66 use warnings 'uninitialized';
67 'foo' =~ /(foo)/;
68 oct $3;
69 EXPECT
70 Use of uninitialized value $3 in oct at - line 4.
71 ########
72 # mg.c
73 use warnings 'uninitialized';
74 oct $3;
75 EXPECT
76 Use of uninitialized value $3 in oct at - line 3.
77 ########
78 # mg.c
79 use warnings 'uninitialized';
80 $ENV{FOO} = undef; # should not warn
81 EXPECT
82 ########
83 ${^ENCODING} = 42;
84 { local ${^ENCODING}; }
85 ${^ENCODING} = undef;
86 { local ${^ENCODING} = 37; }
87 no warnings 'deprecated';
88 ${^ENCODING} = 42;
89 { local ${^ENCODING}; }
90 ${^ENCODING} = undef;
91 { local ${^ENCODING} = 37; }
92 EXPECT
93 ${^ENCODING} is no longer supported. Its use will be fatal in Perl 5.28 at - line 1.
94 ${^ENCODING} is no longer supported. Its use will be fatal in Perl 5.28 at - line 4.