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

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

@@ -3726 +3726 @@
 
 # insert any user-defined tags into our tag lookup
-if (defined %Image::ExifTool::UserDefined) {
+if (%Image::ExifTool::UserDefined) {
     my ($table, %tableNum, $tagID);
     my $tnum = 0; # make hash lookup to get table numbers
@@ -3769 +3769 @@
             next if $Image::ExifTool::UserDefined{$subTable};
             no strict 'refs';
-            next unless defined %$subTable;
+            next unless %$subTable;
             $Image::ExifTool::UserDefined{$subTable} = \%$subTable;
             push @userTables, $subTable;