blob: 4710a7aeb1bf5cccbfc436324358cae0a0f24eeb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
BEGIN {
puts "begin1"
local_begin1 = "local_begin1"
$global_begin1 = "global_begin1"
ConstBegin1 = "ConstBegin1"
}
BEGIN {
puts "begin2"
}
# for scope check
raise if defined?(local_begin1)
raise unless defined?($global_begin1)
raise unless defined?(::ConstBegin1)
local_for_end2 = "end2"
$global_for_end1 = "end1"
puts "main"
END {
puts local_for_end2
}
END {
raise
puts "should not be dumped"
}
eval <<EOE
BEGIN {
puts "innerbegin1"
}
BEGIN {
puts "innerbegin2"
}
END {
puts "innerend2"
}
END {
puts "innerend1"
}
EOE
END {
exit
puts "should not be dumped"
}
END {
puts $global_for_end1
}
|
