perl -d: add a test for s EXPR().
[perl.git] / lib / perl5db / t / uncalled-subroutine
1 #!/usr/bin/perl
2
3 use strict;
4 use warnings;
5
6 exit(0);
7
8 sub uncalled_subroutine
9 {
10     print '<', join(',', 1 .. 5), ">\n";
11 }