Fix (and test) breakpoints on subroutines

They were broken since 'use strict' was added to the debugger.

1 files changed, 14 insertions, 0 deletions

diff --git a/lib/perl5db/t/fact b/lib/perl5db/t/fact
new file mode 100644
index 0000000000..ac25eac1ed
--- /dev/null
+++ b/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);