| Subject: | Illegal division by zero |
When i running this script:
perl -e 'use Audio::Flac::Header; my $f=shift; my $i=Audio::FLAC::Header->new($f); ($g)=grep /genre/i, (keys $i->{tags}); print $i->{tags}{$g}' "$a"
I have this error:
Illegal division by zero at /usr/lib/perl5/site_perl/5.14/Audio/Flac/Header.pm line 446.
I solve this bug for me in attached patch.
| Subject: | patch.txt |
446d445
< my $totalSeconds = $info->{'TOTALSAMPLES'} / $info->{'SAMPLERATE'};
448,453c447,457
< if ($totalSeconds == 0) {
< warn "totalSeconds is 0 - we couldn't find either TOTALSAMPLES or SAMPLERATE!\n" .
< "setting totalSeconds to 1 to avoid divide by zero error!\n";
<
< $totalSeconds = 1;
< }
---
> my $totalSeconds = 0;
> if ($info->{'SAMPLERATE'}) {
> $totalSeconds = $info->{'TOTALSAMPLES'} / $info->{'SAMPLERATE'};
> } else { $totalSeconds = 1 }
>
> # if ($totalSeconds == 0) {
> # warn "totalSeconds is 0 - we couldn't find either TOTALSAMPLES or SAMPLERATE!\n" .
> # "setting totalSeconds to 1 to avoid divide by zero error!\n";
> #
> # $totalSeconds = 1;
> # }