This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix for RT #118169
[perl5.git] / lib / perl5db / t / test-passing-at-underscore-to-x-etc
CommitLineData
e3d167f6
SF
1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6print "One\n";
7
8sub my_pass_args_to
9{
10 print "Two\n";
11}
12
13my_pass_args_to ("Arg1", "Capsula", "GreekHumor", "Socrates");
14
15print "Three\n";