Commit | Line | Data |
---|---|---|
635f2c9e RGS |
1 | #!/usr/bin/perl |
2 | # | |
3 | # This code is used by lib/perl5db.t !!! | |
4 | # | |
5 | ||
6 | my $i = 5; | |
7 | eval " | |
8 | #line 5 script.pl | |
9 | \$i = 10; | |
10 | "; | |
11 | ||
12 | for my $q (1 .. 10) { | |
13 | $i += $q; | |
14 | } | |
15 | ||
16 | sub factorial | |
17 | { | |
18 | my $i = shift; | |
19 | return +($i < 2) ? 1 : $i*factorial($i-1); | |
20 | } | |
21 | ||
22 | my $j = 4; | |
23 | $j = factorial($j); | |
24 | $j = factorial(10); |