lib/perl5db/t/eval-line-bug

   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);