From 7a31bbc7273d4ae8b6654172c94ef42b15a7c05e Mon Sep 17 00:00:00 2001
From: Alex 'AdUser' Z <ad_user@runbox.com>
Date: Thu, 30 Jun 2016 16:46:10 +1000
Subject: [PATCH] * Subtitle::SSA::Record->new : fix parse()

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

diff --git a/lib/Subtitle/SSA/Record.pm b/lib/Subtitle/SSA/Record.pm
index ace5df8..b5f445f 100644
--- a/lib/Subtitle/SSA/Record.pm
+++ b/lib/Subtitle/SSA/Record.pm
@@ -27,6 +27,7 @@ sub new {
   }
 
   my @fields = $self->fields();
+  $self->{_fieldcnt} = scalar @fields;
   foreach my $field (@fields) {
     $self->{$field} = ($opts{defaults})
       ? $FIELDS{$field}->{value}