perl -d: add a test for s EXPR().

This patch involves addding another "perl -d" input script that contains a
subroutine that isn't called by default.

1 files changed, 11 insertions, 0 deletions

diff --git a/lib/perl5db/t/uncalled-subroutine b/lib/perl5db/t/uncalled-subroutine
new file mode 100644
index 0000000000..daf7965aa4
--- /dev/null
+++ b/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";
+}