← 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/WritePhotoshop.pl

  • 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/WritePhotoshop.pl
68
68
# rewrite existing tags in the old directory, deleting ones as necessary
69
69
# (the Photoshop directory entries aren't in any particular order)
70
70
#
71
 
    # Format: 0) Type, 4 bytes - "8BIM" (or the rare "PHUT" or "DCSR")
 
71
    # Format: 0) Type, 4 bytes - '8BIM' (or the rare 'PHUT', 'DCSR' or 'AgHg')
72
72
    #         1) TagID,2 bytes
73
73
    #         2) Name, pascal string padded to even no. bytes
74
74
    #         3) Size, 4 bytes - N
78
78
        # each entry must be on same even byte boundary as directory start
79
79
        ++$pos if ($pos ^ $start) & 0x01;
80
80
        my $type = substr($$dataPt, $pos, 4);
81
 
        if ($type !~ /^(8BIM|PHUT|DCSR)$/) {
 
81
        if ($type !~ /^(8BIM|PHUT|DCSR|AgHg)$/) {
82
82
            $exifTool->Error("Bad Photoshop IRB resource");
83
83
            undef $newData;
84
84
            last;