diff options
| -rw-r--r-- | lib/WWW/FairViewer/Utils.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/WWW/FairViewer/Utils.pm b/lib/WWW/FairViewer/Utils.pm index 06ea9d9..852d870 100644 --- a/lib/WWW/FairViewer/Utils.pm +++ b/lib/WWW/FairViewer/Utils.pm @@ -80,10 +80,11 @@ From a string like 'video/webm;+codecs="vp9"', it returns 'webm'. sub extension { my ($self, $type) = @_; $type =~ /\bflv\b/i ? q{flv} - : $type =~ /\bwebm\b/i ? q{webm} + : $type =~ /\bopus\b/i ? q{opus} : $type =~ /\b3gpp?\b/i ? q{3gp} : $type =~ m{^video/(\w+)} ? $1 : $type =~ m{^audio/(\w+)} ? $1 + : $type =~ /\bwebm\b/i ? q{webm} : q{mp4}; } |