--- lib/Image/ExifTool/GIF.pm Sun Jan 1 15:35:19 2006 +++ lib/Image/ExifTool/GIF.pm Tue Apr 4 14:57:34 2006 @@ -61,7 +62,8 @@ $raf->Read($buff, $length) == $length or return 0; # skip color table Write($outfile, $buff) or $err = 1 if $outfile; # write the comment first if necessary - if ($outfile and defined $newComment) { + } + if ($outfile and defined $newComment) { if ($type ne 'GIF87a') { # write comment marker Write($outfile, "\x21\xfe") or $err = 1; @@ -81,9 +83,9 @@ } else { $exifTool->Warn("The GIF87a format doesn't support comments"); } - } + } my $comment; - for (;;) { + for (;;) { last unless $raf->Read($ch, 1); if (ord($ch) == 0x2c) { Write($outfile, $ch) or $err = 1 if $outfile; @@ -163,9 +165,8 @@ $length = ord($ch); # get next block size } } - } - $exifTool->FoundTag('Comment', $comment) if $comment; } + $exifTool->FoundTag('Comment', $comment) if $comment; } # set return value to -1 if we only had a write error $rtnVal = -1 if $rtnVal and $err;