1 files changed, 15 insertions, 0 deletions
diff --git a/gnu/usr.bin/perl/lib/perl5db/t/test-passing-at-underscore-to-x-etc b/gnu/usr.bin/perl/lib/perl5db/t/test-passing-at-underscore-to-x-etc
new file mode 100644
index 00000000000..ff14df65739
--- /dev/null
+++ b/gnu/usr.bin/perl/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";