forked from pool/perl-Image-Size
c0e8e19ee4
- endian.patch: use proper endian-agnostic extractor OBS-URL: https://build.opensuse.org/request/show/297861 OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Image-Size?expand=0&rev=30
14 lines
518 B
Diff
14 lines
518 B
Diff
Index: Image-Size-3.300/lib/Image/Size.pm
|
|
===================================================================
|
|
--- Image-Size-3.300.orig/lib/Image/Size.pm
|
|
+++ Image-Size-3.300/lib/Image/Size.pm
|
|
@@ -933,7 +933,7 @@ sub webpsize {
|
|
# - frame meta, 8 bytes
|
|
# - marker, 3 bytes
|
|
my $buf = $READ_IN->($img, 4, 26);
|
|
- my ($raw_w, $raw_h) = unpack 'SS', $buf;
|
|
+ my ($raw_w, $raw_h) = unpack '(SS)<', $buf;
|
|
my $b14 = 2**14 - 1;
|
|
|
|
# The width and height values contain a 2-bit scaling factor,
|