← Back to branch summary

~ubuntu-branches/ubuntu/karmic/libimage-exiftool-perl/karmic

« back to all changes in this revision

Viewing changes to lib/Image/ExifTool/GIF.pm

  • Committer: Bazaar Package Importer
  • Author(s): Mari Wang
  • Date: 2008-02-04 20:32:53 UTC
  • mfrom: (1.1.5 upstream)
  • Revision ID: james.westby@ubuntu.com-20080204203253-mpbal8trlfe1fz5d
Tags: 7.00-1
http://bugs.debian.org/456430
http://bugs.debian.org/435589
http://bugs.debian.org/436100
* Upload of new production release (Closes: #456430)
* Added Recommends: libcompress-zlib-perl (Closes: #435589)
* Package now includes iptc2xmp.args and xmp2iptc.args, they are put
  into /usr/share/libimage-exiftool/ (Closes: #436100)
* Updated standards-version (3.7.2 -> 3.7.3). No changes needed.
* Lots of updates and bugfixes compared to last debian version
  (6.90).  See the Changes file for details
* Upload sponsored by Petter Reinholdtsen

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/Image/ExifTool/GIF.pm
17
17
use vars qw($VERSION);
18
18
use Image::ExifTool qw(:DataAccess);
19
19
 
20
 
$VERSION = '1.03';
 
20
$VERSION = '1.04';
21
21
 
22
22
#------------------------------------------------------------------------------
23
23
# Process meta information in GIF image
154
154
                    $length = ord($ch);  # get next block size
155
155
                }
156
156
                last if $length;    # was a read error if length isn't zero
157
 
                # all done once we have found the comment unless writing file
158
157
                unless ($outfile) {
159
158
                    $rtnVal = 1;
160
 
                    last;
 
159
                    $exifTool->FoundTag('Comment', $comment) if $comment;
 
160
                    undef $comment;
 
161
                    # assume no more than one comment in FastScan mode
 
162
                    last if $exifTool->Options('FastScan');
161
163
                }
162
164
            } else {
163
165
                Write($outfile, $ch, $s) or $err = 1 if $outfile;