summaryrefslogtreecommitdiff
path: root/lib/perl5db
diff options
context:
space:
mode:
authorShlomi Fish <shlomif@shlomifish.org>2013-05-26 16:35:04 +0300
committerRicardo Signes <rjbs@cpan.org>2013-06-10 18:16:38 -0400
commite3d167f6f658f94468bfebb782378eee0368e9f0 (patch)
treef6bc1bc4c90eb3849f0ffe8d748e5cf356c917b0 /lib/perl5db
parent1ebabb47e140c4b8dd1d47c3c821c655f6824a9a (diff)
downloadperl-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-etc15
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";