-
Notifications
You must be signed in to change notification settings - Fork 8
/
eval2.right
54 lines (54 loc) · 1.29 KB
/
eval2.right
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
--
++
-- main::(eval.pl:1)
$var = '
# This line is not a comment of the above $var assignment
$x = 2;
$y = 3;
$z = 4';
Eval result display style is dumper.
set max width is 80.
set auto eval is on.
eval.pl [1-10]
1 -> $var = '
2 # This line is not a comment of the above $var assignment
3 $x = 2;
4 $y = 3;
5 $z = 4';
6 eval $var;
7 $eval_sub='
8 sub five() {
9 my @args = @_;
10 print "ho\n";
-- main::(eval.pl:6)
eval $var;
$DB::D[0] = 1
eval.pl [2-11]
2 # This line is not a comment of the above $var assignment
3 $x = 2;
4 $y = 3;
5 $z = 4';
6 -> eval $var;
7 $eval_sub='
8 sub five() {
9 my @args = @_;
10 print "ho\n";
11 5;
$DB::D[1] = 1
-- main::((eval 1955)[eval.pl:10]:3 remapped bogus.pl:3)
# This line is not a comment of the above $var assignment
-- main::((eval 1955)[eval.pl:10]:4 remapped bogus.pl:4)
$x = 2;
-- main::((eval 1955)[eval.pl:10]:5 remapped bogus.pl:5)
$y = 3;
-- main::(eval.pl:7)
$eval_sub='
-- main::(eval.pl:13)
eval $eval_sub;
-- main::(eval.pl:14)
$y = five();
-- main::((eval 1955)[eval.pl:10]:3 remapped bogus.pl:3)
--> #0 @ = main::five() in
file `(eval 1000)[eval.pl:13]' at line 3
#1 file `eval.pl' at line 14
trepan.pl: That's all, folks...