Accepting request 297861 from home:AndreasSchwab:f

- 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

perl-Image-Size.changes

@@ -1,3 +1,8 @@
+-------------------------------------------------------------------
+Fri Apr 17 10:12:00 UTC 2015 - schwab@linux-m68k.org
+
+- endian.patch: use proper endian-agnostic extractor
+
 -------------------------------------------------------------------
 Tue Apr 14 20:17:04 UTC 2015 - coolo@suse.com
 

perl-Image-Size.spec

@@ -27,6 +27,7 @@ Group:          Development/Libraries/Perl
 Url:            http://search.cpan.org/dist/Image-Size/
 Source0:        http://www.cpan.org/authors/id/R/RJ/RJRAY/%{cpan_name}-%{version}.tar.gz
 Source1:        cpanspec.yml
+Patch0:         endian.patch
 BuildArch:      noarch
 BuildRoot:      %{_tmppath}/%{name}-%{version}-build
 BuildRequires:  perl
@@ -47,6 +48,7 @@ bulleted lists, for example) do not result in repeated computations.
 
 %prep
 %setup -q -n %{cpan_name}-%{version}
+%patch0 -p1
 find . -type f -print0 | xargs -0 chmod 644
 
 %build

cpanspec.yml

@@ -4,7 +4,8 @@
 #sources:
 #  - source1
 #  - source2
-#patches:
+patches:
+   endian.patch: -p1
 #  foo.patch: -p1
 #  bar.patch:
 #preamble: |-

endian.patch

@@ -0,0 +1,13 @@
+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,