--- Image-ExifTool-6.26/lib/Image/ExifTool/MIFF.pm.BAD 2006-07-11 08:34:27.000000000 -0500 +++ Image-ExifTool-6.26/lib/Image/ExifTool/MIFF.pm 2006-07-11 08:34:31.000000000 -0500 @@ -214,7 +214,7 @@ my $hdrLen = length($Image::ExifTool::exifAPP1hdr); $dirInfo{DirStart} += $hdrLen; $dirInfo{DirLen} -= $hdrLen; - # use the usual position for EXIF data: 12 bytes from start of file + # choose the usual position for EXIF data: 12 bytes from start of file # (this may be wrong, but I can't see where the PNG stores this information) $dirInfo{Base} = 12; # this is the usual value $processed = $exifTool->ProcessTIFF(\%dirInfo); --- Image-ExifTool-6.26/lib/Image/ExifTool/PNG.pm.BAD 2006-07-11 08:37:26.000000000 -0500 +++ Image-ExifTool-6.26/lib/Image/ExifTool/PNG.pm 2006-07-11 08:37:35.000000000 -0500 @@ -660,7 +660,7 @@ my $compressed = 2 + unpack('C', $val); my $hdr = $tag . "\0" . substr($val, 0, 1); $val = substr($val, 1); # remove compression method byte - # use the PNG chunk tag instead of the embedded tag name for iCCP chunks + # choose the PNG chunk tag instead of the embedded tag name for iCCP chunks if ($$dirInfo{TagInfo} and $$dirInfo{TagInfo}->{Name} eq 'ICC_Profile') { $tag = 'iCCP'; $tagTablePtr = \%Image::ExifTool::PNG::Main; --- Image-ExifTool-6.26/lib/Image/ExifTool/WriteXMP.pl.BAD 2006-07-11 08:37:44.000000000 -0500 +++ Image-ExifTool-6.26/lib/Image/ExifTool/WriteXMP.pl 2006-07-11 08:38:08.000000000 -0500 @@ -118,7 +118,7 @@ childFontFiles=> { List => 'Seq' }, }, # the following stuctures are different: They don't have - # their own namespaces -- instead they use the parent namespace + # their own namespaces -- instead they implement the parent namespace Flash => { NAMESPACE => 'exif', Fired => { }, @@ -555,7 +555,7 @@ my $ns2; foreach $ns2 (keys %$nsUsed) { next unless $$nsUsed{$ns2} eq $uri; - # use the existing namespace prefix instead of ours + # choose the existing namespace prefix instead of ours $prop = "$ns2:$tag"; last; }