forked from pool/perl-Image-Size
Dirk Stoecker
70bad24ca4
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Image-Size?expand=0&rev=32
21 lines
800 B
Diff
21 lines
800 B
Diff
diff -ur Image-Size-3.300/lib/Image/Size.pm Image-Size-3.300_fix/lib/Image/Size.pm
|
|
--- Image-Size-3.300/lib/Image/Size.pm 2015-02-28 18:00:55.000000000 +0100
|
|
+++ Image-Size-3.300_fix/lib/Image/Size.pm 2021-03-01 11:17:29.058012588 +0100
|
|
@@ -604,6 +604,7 @@
|
|
my $stream = shift;
|
|
|
|
my $MARKER = chr 0xff; # Section marker
|
|
+ my $MARKER2 = chr 0x00; # some sections also use 0x00
|
|
|
|
my $SIZE_FIRST = 0xC0; # Range of segment identifier codes
|
|
my $SIZE_LAST = 0xC3; # that hold size info.
|
|
@@ -630,7 +631,7 @@
|
|
$length = unpack 'n', $segheader;
|
|
|
|
# Verify that it's a valid segment.
|
|
- if ($marker ne $MARKER)
|
|
+ if ($marker ne $MARKER && $marker ne $MARKER2)
|
|
{
|
|
# Was it there?
|
|
$id = 'JPEG marker not found';
|