Break upon <filename>:<line>

2 files changed, 29 insertions, 0 deletions

diff --git a/lib/perl5db/t/MyModule.pm b/lib/perl5db/t/MyModule.pm
new file mode 100644
index 0000000000..6a72fac484
--- /dev/null
+++ b/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/lib/perl5db/t/filename-line-breakpoint b/lib/perl5db/t/filename-line-breakpoint
new file mode 100644
index 0000000000..8331175841
--- /dev/null
+++ b/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;