Commit | Line | Data |
---|---|---|
583a019e | 1 | sub foo { |
2 | my $x; | |
3 | my $y; | |
4 | print "in sub foo\n"; | |
5 | for( $x = 1; $x < 100; ++$x ){ | |
6 | bar(); | |
7 | for( $y = 1; $y < 100; ++$y ){ | |
8 | } | |
9 | } | |
10 | } | |
11 | ||
12 | sub bar { | |
13 | my $x; | |
14 | print "in sub bar\n"; | |
15 | for( $x = 1; $x < 100; ++$x ){ | |
16 | } | |
17 | die "bar exiting"; | |
18 | } | |
19 | ||
20 | sub baz { | |
21 | print "in sub baz\n"; | |
22 | eval { bar(); }; | |
23 | eval { foo(); }; | |
24 | } | |
25 | ||
26 | eval { bar(); }; | |
27 | baz(); | |
28 | eval { foo(); }; | |
29 |