diff options
| -rw-r--r-- | lib/XXV/MODULES/RECORDS.pm | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/lib/XXV/MODULES/RECORDS.pm b/lib/XXV/MODULES/RECORDS.pm index 4105ccd..d9836c2 100644 --- a/lib/XXV/MODULES/RECORDS.pm +++ b/lib/XXV/MODULES/RECORDS.pm @@ -1402,6 +1402,9 @@ sub _calcmarks { unless ($marks) { return $duration; } + unless ($framerate) { + return $duration; + } my $frames = 0; for (my $i = 0; $i < (scalar(@$marks)); $i += 2) { @@ -1472,7 +1475,10 @@ sub readinfo { $info->{vpstime} = $1; } elsif($zeile =~ /^F\s+(.+)$/s) { - $info->{framerate} = int($1); + my $rate = int($1); + if($rate > 0) { + $info->{framerate} = $rate; + } } elsif($zeile =~ /^L\s+(.+)$/s) { $info->{lifetime} = int($1); @@ -1941,7 +1947,9 @@ sub play { $start = &text2frame($params->{start}); } if($start) { - if($start < 0 or ($start / $rec->{framerate}) >= ($rec->{duration})) { + if($start < 0 or + ($rec->{framerate} <= 0) or + ($start / $rec->{framerate}) >= ($rec->{duration})) { $start = 'begin'; } else { $start = &frame2hms($start); @@ -2943,6 +2951,10 @@ sub _recordinglength { return 0 unless($fst and $rst); if($fst->mode & 00400) { # mode & S_IRUSR + unless(int($framerate)>0) { + error sprintf("Unknown framerate : '%s'", $index); + return 0; + } return int(($fst->size / 8) / $framerate); } else { error sprintf("Couldn't read : '%s'", $index); |