diff options
Diffstat (limited to 'bin/gtk-fair-viewer')
| -rwxr-xr-x | bin/gtk-fair-viewer | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/bin/gtk-fair-viewer b/bin/gtk-fair-viewer index 952a84a..a11ef49 100755 --- a/bin/gtk-fair-viewer +++ b/bin/gtk-fair-viewer @@ -30,7 +30,7 @@ use warnings; no warnings 'once'; my $DEVEL; # true in devel mode -use if ($DEVEL = 1), lib => qw(../lib); # devel only +use if ($DEVEL = 0), lib => qw(../lib); # devel only use WWW::FairViewer v1.0.4; use WWW::FairViewer::RegularExpressions; @@ -2331,7 +2331,7 @@ sub append_next_page { sub determine_image_format { # - ## Code from: https://metacpan.org/source/SREZIC/Image-Info-1.39/lib/Image/Info.pm + ## Code from: https://metacpan.org/release/Image-Info/source/lib/Image/Info.pm # local ($_) = @_; @@ -2343,9 +2343,10 @@ sub determine_image_format { return "BMP" if /^BM/; return "ICO" if /^\000\000\001\000/; return "PPM" if /^P[1-6]/; - return "XPM" if m,(^\/\* XPM \*\/)|(static\s+char\s+\*\w+\[\]\s*=\s*\{\s*"\d+),; - return "XBM" if m|^(?:\/\*.*\*\/\n)?#define\s|; - return "SVG" if /^(?:[\012\015\t ]*<svg\b|<\?xml)/; + return "XPM" if /(^\/\* XPM \*\/)|(static\s+char\s+\*\w+\[\]\s*=\s*{\s*"\d+)/; + return "XBM" if /^(?:\/\*.*\*\/\n)?#define\s/; + return "SVG" if /^(<\?xml|[\012\015\t ]*<svg\b)/; + return "WEBP" if /^RIFF.{4}WEBP/s; return undef; } |