diff options
author | Shlomi Fish <shlomif@shlomifish.org> | 2013-05-26 16:35:04 +0300 |
---|---|---|
committer | Ricardo Signes <rjbs@cpan.org> | 2013-06-10 18:16:38 -0400 |
commit | e3d167f6f658f94468bfebb782378eee0368e9f0 (patch) | |
tree | f6bc1bc4c90eb3849f0ffe8d748e5cf356c917b0 /lib/perl5db | |
parent | 1ebabb47e140c4b8dd1d47c3c821c655f6824a9a (diff) | |
download | perl-e3d167f6f658f94468bfebb782378eee0368e9f0.tar.gz |
Fix for RT #118169
https://rt.perl.org/rt3/Public/Bug/Display.html?id=118169
subroutine arguments are no longer shown in perl debugger ( x @_ in perl
-d) .
Regression from perl-5.16.x due to the perl -d refactoring. Fixed with a
test.
Diffstat (limited to 'lib/perl5db')
-rw-r--r-- | lib/perl5db/t/test-passing-at-underscore-to-x-etc | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/lib/perl5db/t/test-passing-at-underscore-to-x-etc b/lib/perl5db/t/test-passing-at-underscore-to-x-etc new file mode 100644 index 0000000000..ff14df6573 --- /dev/null +++ b/lib/perl5db/t/test-passing-at-underscore-to-x-etc @@ -0,0 +1,15 @@ +#!/usr/bin/perl + +use strict; +use warnings; + +print "One\n"; + +sub my_pass_args_to +{ + print "Two\n"; +} + +my_pass_args_to ("Arg1", "Capsula", "GreekHumor", "Socrates"); + +print "Three\n"; |