* Subtitle::SSA::Event : fix parse

9 years ago · 2e5e07f556
1 changed files with 1 additions and 1 deletions
--- a/lib/Subtitle/SSA/Event.pm
+++ b/lib/Subtitle/SSA/Event.pm
@ -46,7 +46,7 @@ sub new {
  $self->{_format} = \@FIELDS_SSA
    if $self->{_vers} eq 'ssa';
-  my @fields = $self->{_fields};
+  my @fields = @{ $self->{_format} };
  $self->{$_} = $FIELDS{$_}->{value}
    foreach @fields;