diff options
| author | exiftool <phil@work3.phy.queensu.ca> | 2017-05-12 07:48:23 -0400 |
|---|---|---|
| committer | exiftool <phil@work3.phy.queensu.ca> | 2017-05-12 07:48:23 -0400 |
| commit | d49da563f95c2cf509302092b59f9571c83f19bd (patch) | |
| tree | 2b77eacf0df1356b85419ddedb6766808c5ff5e2 /lib/Image/ExifTool/TagInfoXML.pm | |
| parent | 47208965579f22cc75d66fa466750ea8950d09f9 (diff) | |
Update to 10.52
Diffstat (limited to 'lib/Image/ExifTool/TagInfoXML.pm')
| -rw-r--r-- | lib/Image/ExifTool/TagInfoXML.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/Image/ExifTool/TagInfoXML.pm b/lib/Image/ExifTool/TagInfoXML.pm index 5fb62acc..bc4b300d 100644 --- a/lib/Image/ExifTool/TagInfoXML.pm +++ b/lib/Image/ExifTool/TagInfoXML.pm @@ -11,15 +11,15 @@ package Image::ExifTool::TagInfoXML; use strict; require Exporter; -use vars qw($VERSION @ISA); +use vars qw($VERSION @ISA $makeMissing); use Image::ExifTool qw(:Utils :Vars); use Image::ExifTool::XMP; -$VERSION = '1.29'; +$VERSION = '1.30'; @ISA = qw(Exporter); # set this to a language code to generate Lang module with 'MISSING' entries -my $makeMissing = ''; +$makeMissing = ''; sub LoadLangModules($;$); sub WriteLangModule($$;$); @@ -391,6 +391,7 @@ sub BuildLangModules($;$) if ($makeMissing and $lang eq 'en') { $lang = $makeMissing; $val = 'MISSING'; + undef $cap; } my $isDefault = ($lang eq $Image::ExifTool::defaultLang); unless ($langInfo{$lang} or $isDefault) { |