Changeset 24107 for main/trunk/greenstone2/perllib/cpan/Image/ExifTool/MIFF.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/MIFF.pm (modified) (6 diffs)

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

@@ -16 +16 @@
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.03';
+$VERSION = '1.05';
 
 # MIFF chunks
@@ -22 +22 @@
     GROUPS => { 2 => 'Image' },
     NOTES => q{
-The MIFF format allows aribrary tag names to be used.  Only the standard tag
-names are listed below, however ExifTool will decode any tags found in the
-image.
+        The MIFF (Magick Image File Format) format allows aribrary tag names to be
+        used.  Only the standard tag names are listed below, however ExifTool will
+        decode any tags found in the image.
     },
    'background-color' => 'BackgroundColor',
@@ -120 +120 @@
     # slurp those entire files, which will be slower, but will work
     # OK except that the profile information won't be decoded
-    my $oldsep = $/;
-    $/ = ":\x1a";
+    local $/ = ":\x1a";
 
     my $mode = '';
@@ -175 +174 @@
         }
     }
-    $/ = $oldsep;   # restore separator to original value
 
     # process profile information
@@ -232 +230 @@
             if ($verbose) {
                 $exifTool->VerboseDir($type, 0, $len);
-                Image::ExifTool::HexDump(\$buff, undef,
-                    Out => $exifTool->Options('TextOut')
-                ) if $verbose > 2;
-             }
+                $exifTool->VerboseDump(\$buff);
+            }
          }
     }
@@ -260 +256 @@
 =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