Blob Blame History Raw
--- 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;
         }