import perl 5.10.0 from CPAN

1 files changed, 24 insertions, 0 deletions

diff --git a/gnu/usr.bin/perl/lib/perl5db/t/eval-line-bug b/gnu/usr.bin/perl/lib/perl5db/t/eval-line-bug
new file mode 100644
index 00000000000..cf6346e9aa6
--- /dev/null
+++ b/gnu/usr.bin/perl/lib/perl5db/t/eval-line-bug
@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+#
+# This code is used by lib/perl5db.t !!!
+#
+
+my $i = 5;
+eval "
+#line 5 script.pl
+\$i = 10;
+";
+
+for my $q (1 .. 10) {
+    $i += $q;
+}
+
+sub factorial
+{
+    my $i = shift;
+    return +($i < 2) ? 1 : $i*factorial($i-1);
+}
+
+my $j = 4;
+$j = factorial($j);
+$j = factorial(10);