* Subtitle::BASE->from_file : return undef on error

bin/ssa-retime

@@ -103,8 +103,10 @@ if ($mode eq 'framerate') {
 }
 
 my $ssa = Subtitle::SSA->new(debug => !!$opts{loglevel});
-if ($ssa->from_file($opts{infile}) < 0) {
-  warn "Can't parse input file: $opts{infile}\n";
+unless ($ssa->from_file($opts{infile})) {
+  foreach my $line (@{ $ssa->{log} }) {
+    print $line, "\n";
+  }
   exit 1;
 }
 

lib/Subtitle/BASE.pm

@@ -34,7 +34,7 @@ sub from_string {
 sub from_file {
   my ($self, $path) = @_;
   open my $FH, '<', $path
-    or return -1;
+    or return $self->log(error => "can't open file: $path -- $!");
   my @lines = <$FH>;
   close $FH;
   return unless @lines; # empty file?