Select Code to Download

# Works with 5.8 only!
sub ok_test_wrapper($@) {
  my ($desc,@params) = @_;
...
  return;
}
sub ok($;$$) { ok_test_wrapper("$_[[1]]",$_[[0]]); }

# Hack
sub ok_test_wrapper($@) {
  my ($desc,@params) = @_;
...
  print "$tmp - $desc\n";
  return;
}