Changeset 23771
- Timestamp:
- 2011-03-10T11:59:25+13:00 (13 years ago)
- Location:
- main/trunk/greenstone2/perllib/cpan/Image
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/cpan/Image/ExifTool.pm
r16842 r23771 1412 1412 1413 1413 # first, add user-defined composite tags if necessary 1414 if ( defined%UserDefined and $UserDefined{'Image::ExifTool::Composite'}) {1414 if (%UserDefined and $UserDefined{'Image::ExifTool::Composite'}) { 1415 1415 AddCompositeTags($UserDefined{'Image::ExifTool::Composite'},1); 1416 1416 delete $UserDefined{'Image::ExifTool::Composite'}; … … 3500 3500 unless ($table) { 3501 3501 no strict 'refs'; 3502 unless ( defined%$tableName) {3502 unless (%$tableName) { 3503 3503 # try to load module for this table 3504 3504 if ($tableName =~ /(.*)::/) { … … 3508 3508 } 3509 3509 } 3510 unless ( defined%$tableName) {3510 unless (%$tableName) { 3511 3511 warn "Can't find table $tableName\n"; 3512 3512 return undef; … … 3542 3542 SetupTagTable($table); 3543 3543 # add any user-defined tags 3544 if ( defined%UserDefined and $UserDefined{$tableName}) {3544 if (%UserDefined and $UserDefined{$tableName}) { 3545 3545 my $tagID; 3546 3546 foreach $tagID (TagTableKeys($UserDefined{$tableName})) { -
main/trunk/greenstone2/perllib/cpan/Image/ExifTool/TagLookup.pm
r16842 r23771 3726 3726 3727 3727 # insert any user-defined tags into our tag lookup 3728 if ( defined%Image::ExifTool::UserDefined) {3728 if (%Image::ExifTool::UserDefined) { 3729 3729 my ($table, %tableNum, $tagID); 3730 3730 my $tnum = 0; # make hash lookup to get table numbers … … 3769 3769 next if $Image::ExifTool::UserDefined{$subTable}; 3770 3770 no strict 'refs'; 3771 next unless defined%$subTable;3771 next unless %$subTable; 3772 3772 $Image::ExifTool::UserDefined{$subTable} = \%$subTable; 3773 3773 push @userTables, $subTable;
Note:
See TracChangeset
for help on using the changeset viewer.