Tom Callaway
9 years ago
parent
cb4ab6079b
commit
b038b8c76e
@ -1,42 +0,0 @@
|
||||
--- 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;
|
||||
}
|
||||
Loading…
Reference in new issue