Cross Reference: test6_t
xref
: /
osnet-11
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
t
/
lib
/
dprof
/
test6_t
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
test6_t revision 1
1
N/A
sub foo {
1
N/A
my $x;
1
N/A
my $y;
1
N/A
print "in sub foo\n";
1
N/A
for( $x = 1; $x < 100; ++$x ){
1
N/A
bar();
1
N/A
for( $y = 1; $y < 100; ++$y ){
1
N/A
}
1
N/A
}
1
N/A
}
1
N/A
1
N/A
sub bar {
1
N/A
my $x;
1
N/A
print "in sub bar\n";
1
N/A
for( $x = 1; $x < 100; ++$x ){
1
N/A
}
1
N/A
die "bar exiting";
1
N/A
}
1
N/A
1
N/A
sub baz {
1
N/A
print "in sub baz\n";
1
N/A
eval { bar(); };
1
N/A
eval { foo(); };
1
N/A
}
1
N/A
1
N/A
eval { bar(); };
1
N/A
baz();
1
N/A
eval { foo(); };
1
N/A