15 files changed, 317 insertions, 0 deletions
diff --git a/gnu/usr.bin/perl/lib/perl5db/t/fact b/gnu/usr.bin/perl/lib/perl5db/t/fact
new file mode 100644
index 00000000000..ac25eac1edb
--- /dev/null
+++ b/gnu/usr.bin/perl/lib/perl5db/t/fact
@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+sub fact {
+    my $n = shift;
+    if ($n > 1) {
+        return $n * fact($n - 1);
+    } else {
+        return 1;
+    }
+}
+fact(5);
diff --git a/gnu/usr.bin/perl/lib/perl5db/t/load-modules b/gnu/usr.bin/perl/lib/perl5db/t/load-modules
new file mode 100644
index 00000000000..202326357c5
--- /dev/null
+++ b/gnu/usr.bin/perl/lib/perl5db/t/load-modules
@@ -0,0 +1,6 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Scalar::Util;
diff --git a/gnu/usr.bin/perl/lib/perl5db/t/source-cmd-test-no-q.perldb b/gnu/usr.bin/perl/lib/perl5db/t/source-cmd-test-no-q.perldb
new file mode 100644
index 00000000000..6a6fddd3676
--- /dev/null
+++ b/gnu/usr.bin/perl/lib/perl5db/t/source-cmd-test-no-q.perldb
@@ -0,0 +1 @@
+l 3-10
diff --git a/gnu/usr.bin/perl/lib/perl5db/t/source-cmd-test.perldb b/gnu/usr.bin/perl/lib/perl5db/t/source-cmd-test.perldb
new file mode 100644
index 00000000000..41a73657640
--- /dev/null
+++ b/gnu/usr.bin/perl/lib/perl5db/t/source-cmd-test.perldb
@@ -0,0 +1,2 @@
+l 3-10
+q
diff --git a/gnu/usr.bin/perl/lib/perl5db/t/test-PrintRet-option-1 b/gnu/usr.bin/perl/lib/perl5db/t/test-PrintRet-option-1
new file mode 100644
index 00000000000..ccf6607f794
--- /dev/null
+++ b/gnu/usr.bin/perl/lib/perl5db/t/test-PrintRet-option-1
@@ -0,0 +1,46 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+my ($x, $y);
+
+sub return_scalar
+{
+    $y++;
+
+    return "20024";
+}
+
+sub return_list
+{
+    $y++;
+
+    return ("Foo", "Bar", "Baz");
+}
+
+sub return_void
+{
+    $y++;
+
+    return;
+}
+
+$y++;
+
+# Choose one based on $x
+#
+if ($x eq "s")
+{
+    my $s = return_scalar();
+}
+elsif ($x eq "l")
+{
+    my @l = return_list();
+}
+else
+{
+    return_void();
+    $y++;
+}
+
diff --git a/gnu/usr.bin/perl/lib/perl5db/t/test-a-statement-1 b/gnu/usr.bin/perl/lib/perl5db/t/test-a-statement-1
new file mode 100644
index 00000000000..a1782a0034b
--- /dev/null
+++ b/gnu/usr.bin/perl/lib/perl5db/t/test-a-statement-1
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+while (my $l = <DATA>) {
+    chomp $l;
+    print "$l\n";
+}
+
+__DATA__
+123456789012 This is a test
+3456789012345This is another test
+6789012345678This is yet another test
+9012345678901Is this yet another test?
+234567890123 Yes, this is another test.
+4567890123456I think this is a test.
+7890123456789Now is the time.
+0123456789012For all good men.
+3456789012345To come to the aid party.
+678901234678 This is the tenth line.
+
diff --git a/gnu/usr.bin/perl/lib/perl5db/t/test-dieLevel-option-1 b/gnu/usr.bin/perl/lib/perl5db/t/test-dieLevel-option-1
new file mode 100644
index 00000000000..0849ae2a0d2
--- /dev/null
+++ b/gnu/usr.bin/perl/lib/perl5db/t/test-dieLevel-option-1
@@ -0,0 +1,22 @@
+use strict;
+use warnings;
+
+sub foo
+{
+    print "In foo\n";
+    bar();
+}
+
+sub bar
+{
+    print "In baz\n";
+    baz();
+}
+
+sub baz
+{
+    die "This program dies.";
+}
+
+foo();
+
diff --git a/gnu/usr.bin/perl/lib/perl5db/t/test-frame-option-1 b/gnu/usr.bin/perl/lib/perl5db/t/test-frame-option-1
new file mode 100644
index 00000000000..a6b4dd8c4fb
--- /dev/null
+++ b/gnu/usr.bin/perl/lib/perl5db/t/test-frame-option-1
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+sub my_func
+{
+    my ($num1, $num2) = @_;
+
+    print $num1+$num2, "\n";
+
+    my_other_func ($num1*3, $num2*24);
+
+    return $num1*$num2;
+}
+
+sub my_other_func
+{
+    my ($num1, $num2) = @_;
+
+    print "my_other_func: n1=<$num1> n2=<$num2>\n";
+
+    return $num1 * $num2;
+}
+
+my_func(1, 50);
diff --git a/gnu/usr.bin/perl/lib/perl5db/t/test-l-statement-1 b/gnu/usr.bin/perl/lib/perl5db/t/test-l-statement-1
new file mode 100644
index 00000000000..990a1695034
--- /dev/null
+++ b/gnu/usr.bin/perl/lib/perl5db/t/test-l-statement-1
@@ -0,0 +1,20 @@
+$x = 1;
+print "1\n";
+
+$x = 2;
+print "2\n";
+
+$x = 3;
+print "3\n";
+
+$x = 4;
+print "4\n";
+
+$x = 5;
+print "5\n";
+
+$x = 6;
+print "6\n";
+
+$x = 7;
+print "7\n";
diff --git a/gnu/usr.bin/perl/lib/perl5db/t/test-l-statement-2 b/gnu/usr.bin/perl/lib/perl5db/t/test-l-statement-2
new file mode 100644
index 00000000000..9e6a2105e98
--- /dev/null
+++ b/gnu/usr.bin/perl/lib/perl5db/t/test-l-statement-2
@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+sub fact {
+    my $n = shift;
+    if ($n > 1) {
+        return $n * fact($n - 1);
+    } else {
+        return 1;
+    }
+}
+
+sub bar {
+    print "One\n";
+    print "Two\n";
+    print "Three\n";
+
+    return;
+}
+
+fact(5);
+bar();
diff --git a/gnu/usr.bin/perl/lib/perl5db/t/test-m-statement-1 b/gnu/usr.bin/perl/lib/perl5db/t/test-m-statement-1
new file mode 100644
index 00000000000..a699ed342e7
--- /dev/null
+++ b/gnu/usr.bin/perl/lib/perl5db/t/test-m-statement-1
@@ -0,0 +1,43 @@
+use strict;
+use warnings;
+
+package MyClass;
+
+sub new
+{
+    my $class = shift;
+
+    my $self = bless {}, $class;
+
+    $self->_init(@_);
+
+    return $self;
+}
+
+sub _init
+{
+    my $self = shift;
+
+    $self->{foo} = 'bar';
+
+    return;
+}
+
+sub greet
+{
+    my ($self, $msg) = @_;
+
+    print "$msg - $self->{foo}\n";
+
+    return;
+}
+
+1;
+
+package main;
+
+my $obj = MyClass->new;
+
+$obj->greet("Hello");
+
+1;
diff --git a/gnu/usr.bin/perl/lib/perl5db/t/test-passing-at-underscore-to-x-etc b/gnu/usr.bin/perl/lib/perl5db/t/test-passing-at-underscore-to-x-etc
new file mode 100644
index 00000000000..ff14df65739
--- /dev/null
+++ b/gnu/usr.bin/perl/lib/perl5db/t/test-passing-at-underscore-to-x-etc
@@ -0,0 +1,15 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+print "One\n";
+
+sub my_pass_args_to
+{
+    print "Two\n";
+}
+
+my_pass_args_to ("Arg1", "Capsula", "GreekHumor", "Socrates");
+
+print "Three\n";
diff --git a/gnu/usr.bin/perl/lib/perl5db/t/test-r-statement b/gnu/usr.bin/perl/lib/perl5db/t/test-r-statement
new file mode 100644
index 00000000000..f8c7bf5555c
--- /dev/null
+++ b/gnu/usr.bin/perl/lib/perl5db/t/test-r-statement
@@ -0,0 +1,27 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+my $var = "Test";
+
+sub mysub
+{
+    my $flag = 1;
+
+    $flag = 0;
+
+    print "Foo\n";
+
+    if ($flag)
+    {
+        print "Bar\n";
+    }
+
+    return;
+}
+
+mysub();
+
+$var .= "More";
+
diff --git a/gnu/usr.bin/perl/lib/perl5db/t/test-w-statement-1 b/gnu/usr.bin/perl/lib/perl5db/t/test-w-statement-1
new file mode 100644
index 00000000000..bfd5ccd7d80
--- /dev/null
+++ b/gnu/usr.bin/perl/lib/perl5db/t/test-w-statement-1
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use vars qw($foo);
+
+$foo = 1;
+
+print "Hello\n";
+
+for my $idx (map { $_ * 10 } 1 .. 10)
+{
+    if ($idx > 17)
+    {
+        $foo = 2;
+        print "Baz\n";
+    }
+}
+
diff --git a/gnu/usr.bin/perl/lib/perl5db/t/test-warnLevel-option-1 b/gnu/usr.bin/perl/lib/perl5db/t/test-warnLevel-option-1
new file mode 100644
index 00000000000..04b71f99137
--- /dev/null
+++ b/gnu/usr.bin/perl/lib/perl5db/t/test-warnLevel-option-1
@@ -0,0 +1,29 @@
+use strict;
+use warnings;
+
+sub foo
+{
+    print "In foo\n";
+    bar();
+}
+
+sub bar
+{
+    print "In baz\n";
+    baz();
+}
+
+sub baz
+{
+    warn "This is not a warning.";
+
+    return;
+}
+
+sub myfunc
+{
+    bar();
+}
+
+myfunc();
+