← 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/Photoshop.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/Photoshop.pm
330
330
    $verbose and $exifTool->VerboseDir('Photoshop', 0, $$dirInfo{DirLen});
331
331
 
332
332
    # scan through resource blocks:
333
 
    # Format: 0) Type, 4 bytes - "8BIM" (or the rare "PHUT" or "DCSR")
 
333
    # Format: 0) Type, 4 bytes - '8BIM' (or the rare 'PHUT', 'DCSR' or 'AgHg')
334
334
    #         1) TagID,2 bytes
335
335
    #         2) Name, pascal string padded to even no. bytes
336
336
    #         3) Size, 4 bytes - N
340
340
        my ($ttPtr, $extra, $val, $name);
341
341
        if ($type eq '8BIM') {
342
342
            $ttPtr = $tagTablePtr;
343
 
        } elsif ($type =~ /^(PHUT|DCSR)$/) {
 
343
        } elsif ($type =~ /^(PHUT|DCSR|AgHg)$/) {
344
344
            $ttPtr = Image::ExifTool::GetTagTable('Image::ExifTool::Photoshop::Unknown');
345
345
        } else {
346
 
            $exifTool->Warn("Bad Photoshop IRB resource");
 
346
            $type =~ s/([^\w])/sprintf("\\x%.2x",ord($1))/ge;
 
347
            $exifTool->Warn(qq{Bad Photoshop IRB resource "$type"});
347
348
            last;
348
349
        }
349
350
        my $tag = Get16u($dataPt, $pos + 4);