История изменений

Исправление gh0stwizard, 21.01.15 13:37 (текущая версия) :

sub test {
  @_ ? (1,2,3) : 0
}

my @data = test() or die "expected error";

Исходная версия gh0stwizard, 21.01.15 13:36:

sub test {
  @_ ? (1,2,3) : 0
}

my ( $x ) = test() or die "expected error";