From e3d167f6f658f94468bfebb782378eee0368e9f0 Mon Sep 17 00:00:00 2001
From: Shlomi Fish <shlomif@shlomifish.org>
Date: Sun, 26 May 2013 16:35:04 +0300
Subject: 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.
---
 lib/perl5db/t/test-passing-at-underscore-to-x-etc | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 lib/perl5db/t/test-passing-at-underscore-to-x-etc

(limited to 'lib/perl5db')

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";
-- 
cgit v1.2.1