← 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/QuickTime.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/QuickTime.pm
20
20
use Image::ExifTool qw(:DataAccess :Utils);
21
21
use Image::ExifTool::Exif;
22
22
 
23
 
$VERSION = '1.11';
 
23
$VERSION = '1.12';
24
24
 
25
25
sub FixWrongFormat($);
26
26
sub ProcessMOV($$;$);
557
557
            $raf->Read($buff, 8) == 8 or last;
558
558
            $dataPos += 8;
559
559
            my ($hi, $lo) = unpack('NN', $buff);
560
 
            $hi and $exifTool->Warn('End of processing at large atom'), last;
 
560
            if ($hi or $lo > 0x7fffffff) {
 
561
                $exifTool->Warn('End of processing at large atom');
 
562
                last;
 
563
            }
561
564
            $size = $lo;
562
565
        }
563
566
        $size -= 8;
583
586
            }
584
587
            Image::ExifTool::AddTagToTable($tagTablePtr, $tag, $tagInfo);
585
588
        }
586
 
        if (defined $tagInfo or $verbose) {
 
589
        # load values only if associated with a tag (or verbose) and < 16MB long
 
590
        if ((defined $tagInfo or $verbose) and $size < 0x1000000) {
587
591
            my $val;
588
592
            unless ($raf->Read($val, $size) == $size) {
589
593
                $exifTool->Warn("Truncated '$tag' data");