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
1 #!/usr/bin/perl
2
3 use strict;
4 use warnings;
5
6 print "One\n";
7
8 sub my_pass_args_to
9 {
10     print "Two\n";
11 }
12
13 my_pass_args_to ("Arg1", "Capsula", "GreekHumor", "Socrates");
14
15 print "Three\n";