From 2e5e07f556ee6a8429f48871015cc5c95ae05cbb Mon Sep 17 00:00:00 2001
From: Alex 'AdUser' Z <ad_user@runbox.com>
Date: Sat, 2 Jul 2016 20:20:06 +1000
Subject: [PATCH] * Subtitle::SSA::Event : fix parse

---
 lib/Subtitle/SSA/Event.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Subtitle/SSA/Event.pm b/lib/Subtitle/SSA/Event.pm
index 9999ff5..d64eff0 100644
--- 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;