Исправление Jetty, (текущая версия) :
Проникнись духом перла и тебе все остальное покажется унылым говном:
sub f() {
my $p1 = shift or die "Xaxaxaxaxaxaxa ".$!;
my $p2 = shift or die "Muxoxoxoxoxoxo ".$!;
return $p1.$p2;
}
Исправление Jetty, :
sub f() {
my $p1 = shift or die "Xaxaxaxaxaxaxa ".$!;
my $p2 = shift or die "Muxoxoxoxoxoxo ".$!;
return $p1.$p2;
}
Исходная версия Jetty, :
sub f() {
my $p1 = shift or die "Xaxaxaxaxaxaxa ".$!;
my $p2 = shift or die "Muxoxoxoxoxoxo ".$!;
return $p1.$p2;
}
[/perl]