LIMILIC

ちょっと足りない事があるので、

--- Image-JpegCheck-0.02.orig/t/01_simple.t     2009-04-24 13:45:02.000000000 +0900
+++ Image-JpegCheck-0.02/t/01_simple.t  2009-04-24 12:57:56.000000000 +0900
@@ -1,11 +1,13 @@
 use strict;
 use warnings;
-use Test::More tests => 4;
+use Test::More tests => 6;
 use Image::JpegCheck;
 
 is is_jpeg('t/foo.jpg'), 1;
+is is_jpeg('t/bar.jpg'), 1;
 is is_jpeg('t/01_simple.t'), 0;
 test_fh('t/foo.jpg', 1);
+test_fh('t/bar.jpg', 1);
 test_fh('t/01_simple.t', 0);
 
 sub test_fh {
--- Image-JpegCheck-0.02.orig/lib/Image/JpegCheck.pm    2009-04-24 12:48:54.000000000 +0900
+++ Image-JpegCheck-0.02/lib/Image/JpegCheck.pm 2009-04-24 13:40:18.000000000 +0900
@@ -38,8 +38,15 @@
     return 0 if $buf ne MAGICK;
 
     while (1) {
-        read($fh, $buf, 4);
-        ($marker, $code, $len) = unpack("a a n", $buf); # read segment header
+        read($fh, $buf, 2);
+        ($marker, $code) = unpack("a a", $buf); # read segment header
+
+        while ( $code eq SECTION_MARKER && ($marker = $code) ) {
+            read($fh, $buf, 1);
+           ($code) = unpack("a", $buf);
+       }
+       read($fh, $buf, 2);
+       $len = unpack( "n", $buf );
         $code = ord($code);
 
         if ($marker ne SECTION_MARKER) {

XSは修正していません