import perl 5.16.3 from CPAN - worked on by Andrew Fresh and myself

12 files changed, 197 insertions, 0 deletions

diff --git a/gnu/usr.bin/perl/lib/perl5db/t/EnableModule.pm b/gnu/usr.bin/perl/lib/perl5db/t/EnableModule.pm
new file mode 100644
index 00000000000..910a6db84de
--- /dev/null
+++ b/gnu/usr.bin/perl/lib/perl5db/t/EnableModule.pm
@@ -0,0 +1,18 @@
+package EnableModule;
+
+use strict;
+use warnings;
+
+sub set_x
+{
+    my $x_ref = shift;
+
+    ${$x_ref} .= "TwoHundred";
+
+    my $x = ${$x_ref};
+
+    my $t = $x;
+    $t .= "Foo";
+}
+
+1;
diff --git a/gnu/usr.bin/perl/lib/perl5db/t/MyModule.pm b/gnu/usr.bin/perl/lib/perl5db/t/MyModule.pm
new file mode 100644
index 00000000000..6a72fac4842
--- /dev/null
+++ b/gnu/usr.bin/perl/lib/perl5db/t/MyModule.pm
@@ -0,0 +1,15 @@
+package MyModule;
+
+use strict;
+use warnings;
+
+use vars qw($var);
+
+$var = "Bar";
+
+sub function
+{
+    print "In MyModule.\n";
+}
+
+1;
diff --git a/gnu/usr.bin/perl/lib/perl5db/t/break-on-dot b/gnu/usr.bin/perl/lib/perl5db/t/break-on-dot
new file mode 100644
index 00000000000..a9ee1a30932
--- /dev/null
+++ b/gnu/usr.bin/perl/lib/perl5db/t/break-on-dot
@@ -0,0 +1,10 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+my $exp = 1;
+for my $i (1 .. 20)
+{
+    $exp *= 2;
+}
diff --git a/gnu/usr.bin/perl/lib/perl5db/t/breakpoint-bug b/gnu/usr.bin/perl/lib/perl5db/t/breakpoint-bug
new file mode 100644
index 00000000000..5ac9874beab
--- /dev/null
+++ b/gnu/usr.bin/perl/lib/perl5db/t/breakpoint-bug
@@ -0,0 +1,8 @@
+#!/usr/bin/perl
+my $x = "One";
+
+$x = "Two";
+
+my $y = "Lambda";
+
+$x = "Four";
diff --git a/gnu/usr.bin/perl/lib/perl5db/t/disable-breakpoints-1 b/gnu/usr.bin/perl/lib/perl5db/t/disable-breakpoints-1
new file mode 100644
index 00000000000..10877d6156a
--- /dev/null
+++ b/gnu/usr.bin/perl/lib/perl5db/t/disable-breakpoints-1
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+my $x = "One";
+my $dummy = 0;
+
+$x = "FirstVal";
+
+$dummy++;
+
+$x = "SecondVal";
+
+$dummy++;
+
+$x = "ThirdVal";
+
+$dummy++;
+
+$x = "FourthVal";
+
+$dummy++;
diff --git a/gnu/usr.bin/perl/lib/perl5db/t/disable-breakpoints-2 b/gnu/usr.bin/perl/lib/perl5db/t/disable-breakpoints-2
new file mode 100644
index 00000000000..a3ab1669583
--- /dev/null
+++ b/gnu/usr.bin/perl/lib/perl5db/t/disable-breakpoints-2
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+my $x = "One";
+
+$x = "FirstVal";
+
+set_x();
+
+$x = "SecondVal";
+
+set_x();
+
+$x = "ThirdVal";
+
+set_x();
+
+$x = "FourthVal";
+
+set_x();
+
+sub set_x
+{
+    $x .= "OneHundred";
+
+    my $t = $x;
+    $t .= "Foo";
+}
diff --git a/gnu/usr.bin/perl/lib/perl5db/t/disable-breakpoints-3 b/gnu/usr.bin/perl/lib/perl5db/t/disable-breakpoints-3
new file mode 100644
index 00000000000..990abb11eba
--- /dev/null
+++ b/gnu/usr.bin/perl/lib/perl5db/t/disable-breakpoints-3
@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+
+use EnableModule;
+my $x = "One";
+
+$x = "FirstVal";
+
+EnableModule::set_x(\$x);
+
+$x = "SecondVal";
+
+EnableModule::set_x(\$x);
+
+$x = "ThirdVal";
+
+EnableModule::set_x(\$x);
+
+$x = "FourthVal";
+
+EnableModule::set_x(\$x);
+
diff --git a/gnu/usr.bin/perl/lib/perl5db/t/filename-line-breakpoint b/gnu/usr.bin/perl/lib/perl5db/t/filename-line-breakpoint
new file mode 100644
index 00000000000..83311758417
--- /dev/null
+++ b/gnu/usr.bin/perl/lib/perl5db/t/filename-line-breakpoint
@@ -0,0 +1,14 @@
+#!/perl
+
+use strict;
+use warnings;
+
+use MyModule;
+
+my $x = "Foo";
+
+MyModule::function();
+
+print "In Main File.\n";
+
+1;
diff --git a/gnu/usr.bin/perl/lib/perl5db/t/rt-104168 b/gnu/usr.bin/perl/lib/perl5db/t/rt-104168
new file mode 100644
index 00000000000..345817b6033
--- /dev/null
+++ b/gnu/usr.bin/perl/lib/perl5db/t/rt-104168
@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+#
+# This code is used by lib/perl5db.t !!!
+#
+
+foo();
+
+sub foo {
+  bar();
+}
+
+
+sub bar {
+  baz();
+}
+
+sub baz {
+  1;
+}
+
+1;
diff --git a/gnu/usr.bin/perl/lib/perl5db/t/taint b/gnu/usr.bin/perl/lib/perl5db/t/taint
new file mode 100644
index 00000000000..e40f1945c70
--- /dev/null
+++ b/gnu/usr.bin/perl/lib/perl5db/t/taint
@@ -0,0 +1,17 @@
+#!/usr/bin/perl -T
+#
+# This code is used by lib/perl5db.t !!!
+#
+use Scalar::Util qw(tainted);
+
+# [perl #76872] don't taint $DB::sub
+
+sub f {}
+
+BEGIN {
+    print "[\$^X]" if tainted($^X);
+    ($^X || 1)  && f(); # maybe taint $DB::sub;
+    print "[\$DB::sub]" if tainted($DB::sub);
+}
+print "[done]";
+
diff --git a/gnu/usr.bin/perl/lib/perl5db/t/uncalled-subroutine b/gnu/usr.bin/perl/lib/perl5db/t/uncalled-subroutine
new file mode 100644
index 00000000000..daf7965aa4a
--- /dev/null
+++ b/gnu/usr.bin/perl/lib/perl5db/t/uncalled-subroutine
@@ -0,0 +1,11 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+exit(0);
+
+sub uncalled_subroutine
+{
+    print '<', join(',', 1 .. 5), ">\n";
+}
diff --git a/gnu/usr.bin/perl/lib/perl5db/t/with-subroutine b/gnu/usr.bin/perl/lib/perl5db/t/with-subroutine
new file mode 100644
index 00000000000..b1d70fe8bb3
--- /dev/null
+++ b/gnu/usr.bin/perl/lib/perl5db/t/with-subroutine
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+my $x = 'hello world';
+
+print "$x\n";
+
+back();
+
+exit;
+
+sub back {
+    print "hello back\n";
+}
+