You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
43 lines
2.2 KiB
43 lines
2.2 KiB
19 years ago
|
--- 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;
|
||
|
|
}
|