The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

TODO: { local $TODO = "not done yet.";

$tcl = <<'EOTCL'; proc me {a args} { puts $a puts $args } me 2 3 4 5 6 EOTCL $expected = "2\n3 4 5 6\n"; language_output_is("tcl",$tcl,$expected,"vararg");

$tcl = <<'EOTCL'; proc me {{a 2}} { puts $a } me EOTCL $expected = "2\n"; language_output_is("tcl",$tcl,$expected,"defaultarg");

}