* Subtitle::SRT : update build() : use $self->{eol}

lib/Subtitle/SRT.pm

@@ -121,21 +121,20 @@ sub parse {
 
 sub build {
   my ($self) = @_;
-  my ($hrs, $min, $sec, $msec, $out);
+  my (@lines, $out);
 
-  $out = '';
   foreach my $e (@{ $self->{events} }) {
-    $out .= $e->{id} . "\n";
+    push @lines, $e->{id};
     my $start = sprintf $self->{timing_fmt},
       make_timing($e->{timing}->[0]);
     my $end   = sprintf $self->{timing_fmt},
       make_timing($e->{timing}->[1]);
-    $out .= sprintf "%s --> %s\n", $start, $end;
+    push @lines, sprintf("%s --> %s", $start, $end);
-    $out .= "$e->{text}\n";
+    push @lines, $e->{text};
-    $out .= "\n";
+    push @lines, "";
   }
 
-  return $out;
+  return join($self->{eol} => @lines);
 }
 
 1;