diff options
author | Shlomi Fish <shlomif@shlomifish.org> | 2011-12-13 19:03:06 +0200 |
---|---|---|
committer | Ricardo Signes <rjbs@cpan.org> | 2011-12-30 11:54:46 -0500 |
commit | 5d83cde2a4c547b669d6e41bd2077c48fb227812 (patch) | |
tree | 5642551ed0207a170e7bfb929d704693bb4992ee /lib/perl5db | |
parent | 65ab031493be42ff1395a14fbaf93ed836251d7a (diff) | |
download | perl-5d83cde2a4c547b669d6e41bd2077c48fb227812.tar.gz |
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.
Diffstat (limited to 'lib/perl5db')
-rw-r--r-- | lib/perl5db/t/uncalled-subroutine | 11 |
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"; +} |