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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
errout = ARGV.shift
BEGIN {
puts "b1"
local_begin1 = "local_begin1"
$global_begin1 = "global_begin1"
ConstBegin1 = "ConstBegin1"
}
BEGIN {
puts "b2"
BEGIN {
puts "b2-1"
}
}
# for scope check
#raise if defined?(local_begin1)
raise unless defined?($global_begin1)
raise unless defined?(::ConstBegin1)
local_for_end2 = "e2"
$global_for_end1 = "e1"
puts "main"
END {
puts local_for_end2 # e2
}
eval <<EOE
BEGIN {
puts "b3"
BEGIN {
puts "b3-1"
}
}
BEGIN {
puts "b4"
}
END {
puts "e3"
}
END {
puts "e4"
END {
puts "e4-1"
END {
puts "e4-1-1"
}
}
END {
puts "e4-2"
}
}
EOE
END {
exit
puts "should not be dumped"
END {
puts "not reached"
}
}
END {
puts $global_for_end1 # e1
END {
puts "e1-1"
}
}
|
