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

Timestamp:

2011-03-10T11:59:25+13:00 (13 years ago)

Author:

sjm84

Message:

Updated several lines in ExifTool.pm and ExifTool/TagLookup.pm to prevent warnings that were being produced on Perl 5.12

File:

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

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

@@ -1412 +1412 @@
 
     # first, add user-defined composite tags if necessary
-    if (defined %UserDefined and $UserDefined{'Image::ExifTool::Composite'}) {
+    if (%UserDefined and $UserDefined{'Image::ExifTool::Composite'}) {
         AddCompositeTags($UserDefined{'Image::ExifTool::Composite'},1);
         delete $UserDefined{'Image::ExifTool::Composite'};
@@ -3500 +3500 @@
     unless ($table) {
         no strict 'refs';
-        unless (defined %$tableName) {
+        unless (%$tableName) {
             # try to load module for this table
             if ($tableName =~ /(.*)::/) {
@@ -3508 +3508 @@
                 }
             }
-            unless (defined %$tableName) {
+            unless (%$tableName) {
                 warn "Can't find table $tableName\n";
                 return undef;
@@ -3542 +3542 @@
         SetupTagTable($table);
         # add any user-defined tags
-        if (defined %UserDefined and $UserDefined{$tableName}) {
+        if (%UserDefined and $UserDefined{$tableName}) {
             my $tagID;
             foreach $tagID (TagTableKeys($UserDefined{$tableName})) {