diff options
author | Shlomi Fish <shlomif@shlomifish.org> | 2015-05-25 20:56:23 +0300 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2015-06-03 14:32:03 +1000 |
commit | 0b1fcdcc0341691e2336d33765522b5215d2f8a2 (patch) | |
tree | 1e3ca1116ad10819f4097820aca9e4fb26b0cca7 /lib/perl5db | |
parent | 22055af9e016af9a72e361e971f19d9ba3a83243 (diff) | |
download | perl-0b1fcdcc0341691e2336d33765522b5215d2f8a2.tar.gz |
Fix RT#71678 (-d a command after exit) with a test.
Credits to Heiko Eissfeldt for the reported bug, the test program and a
proposed fix.
Diffstat (limited to 'lib/perl5db')
-rw-r--r-- | lib/perl5db/t/test-a-statement-2 | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lib/perl5db/t/test-a-statement-2 b/lib/perl5db/t/test-a-statement-2 new file mode 100644 index 0000000000..0a3d3042c5 --- /dev/null +++ b/lib/perl5db/t/test-a-statement-2 @@ -0,0 +1,10 @@ +use strict; use warnings; + +greet('Hello'); + +sub greet +{ + my $arg = shift; + print "$arg\n"; + return; +} |