Changeset 24107 for main/trunk/greenstone2/perllib/cpan/Image/ExifTool/Leaf.pm

Timestamp:

2011-06-01T12:33:42+12:00 (13 years ago)

Author:

sjm84

Message:

Updating the ExifTool perl modules

File:

• main/trunk/greenstone2/perllib/cpan/Image/ExifTool/Leaf.pm (modified) (5 diffs)

main/trunk/greenstone2/perllib/cpan/Image/ExifTool/Leaf.pm

@@ -14 +14 @@
 use Image::ExifTool::Exif;
 
-$VERSION = '1.01';
+$VERSION = '1.03';
 
 sub ProcessLeaf($$$);
@@ -22 +22 @@
     GROUPS => { 0 => 'Leaf', 2 => 'Camera' },
     NOTES => q{
-These tags are found in .MOS images from Leaf digital camera backs as
-written by Creo Leaf Capture.  They exist within the Leaf-specific directory
-structure of EXIF tag 0x8606. The tables below list observed Leaf tags,
-however ExifTool will extract any tags found in the Leaf directories even if
-they don't appear in these tables.
+        These tags are found in .MOS images from Leaf digital camera backs as
+        written by Creo Leaf Capture.  They exist within the Leaf-specific directory
+        structure of EXIF tag 0x8606.  The tables below list observed Leaf tags,
+        however ExifTool will extract any tags found in the Leaf directories even if
+        they don't appear in these tables.
     },
     icc_camera_profile => {
@@ -336 +336 @@
 # table for Leaf SubIFD entries
 %Image::ExifTool::Leaf::SubIFD = (
-    GROUPS => { 0 => 'EXIF', 1 => 'LeafSubIFD', 2 => 'Image'},
+    GROUPS => { 0 => 'MakerNotes', 1 => 'LeafSubIFD', 2 => 'Image'},
     WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
     NOTES => q{
-Leaf also writes a TIFF-format sub-IFD inside IFD0 of a MOS image.  No tags
-in this sub-IFD are currently known, except for tag 0x8606 which really
-shouldn't be here anyway (so it doesn't appear in the table below) because
-it duplicates a reference to the same data of tag 0x8606 in IFD0.
+        Leaf writes a TIFF-format sub-IFD inside IFD0 of a MOS image.  No tags in
+        this sub-IFD are currently known, except for tag 0x8606 which really
+        shouldn't be here anyway (so it doesn't appear in the table below) because
+        it duplicates a reference to the same data of tag 0x8606 in IFD0.
     },
 );
@@ -472 +472 @@
                 $exifTool->ProcessDirectory(\%subdirInfo, $subTable);
             } else {
-                $val =~ tr/\n/ /;   # remove newlines from value
+                $val =~ tr/\n/ /;   # translate newlines to spaces
+                $val =~ s/\0+$//;   # remove null terminators
                 $exifTool->FoundTag($tagInfo, $val);
             }
@@ -502 +503 @@
 =head1 AUTHOR
 
-Copyright 2003-2007, Phil Harvey (phil at owl.phy.queensu.ca)
+Copyright 2003-2011, Phil Harvey (phil at owl.phy.queensu.ca)
 
 This library is free software; you can redistribute it and/or modify it