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

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

@@ -17 +17 @@
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.04';
+$VERSION = '1.05';
 
 #------------------------------------------------------------------------------
@@ -85 +85 @@
 #
     if ($outfile) {
-        my $newValueHash;
-        my $newComment = $exifTool->GetNewValues('Comment', \$newValueHash);
+        my $nvHash;
+        my $newComment = $exifTool->GetNewValues('Comment', \$nvHash);
         my $oldComment = $info{Comment};
-        if (Image::ExifTool::IsOverwriting($newValueHash, $oldComment)) {
+        if (Image::ExifTool::IsOverwriting($nvHash, $oldComment)) {
             ++$exifTool->{CHANGED};
-            if ($verbose > 1) {
-                print $out "    - Comment = '$oldComment'\n" if defined $oldComment;
-                print $out "    + Comment = '$newComment'\n" if defined $newComment;
-            }
+            $exifTool->VerboseValue('- Comment', $oldComment) if defined $oldComment;
+            $exifTool->VerboseValue('+ Comment', $newComment) if defined $newComment;
         } else {
             $newComment = $oldComment;  # use existing comment
@@ -146 +144 @@
 =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