diff options
author | exiftool <phil@work3.phy.queensu.ca> | 2017-02-10 08:59:06 -0500 |
---|---|---|
committer | exiftool <phil@work3.phy.queensu.ca> | 2017-02-10 08:59:06 -0500 |
commit | 437381d64f8c040622dfacdb433ec4d166c990c9 (patch) | |
tree | 279bec46554b3524ba4ad6d2f9ed570bf07a2c70 /lib/Image/ExifTool/TagInfoXML.pm | |
parent | 30dd181c8da5013b7f12617cf5dc0b437aafe4ac (diff) |
Update to 10.42
Diffstat (limited to 'lib/Image/ExifTool/TagInfoXML.pm')
-rw-r--r-- | lib/Image/ExifTool/TagInfoXML.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/Image/ExifTool/TagInfoXML.pm b/lib/Image/ExifTool/TagInfoXML.pm index 8f8aee3c..5fb62acc 100644 --- a/lib/Image/ExifTool/TagInfoXML.pm +++ b/lib/Image/ExifTool/TagInfoXML.pm @@ -15,7 +15,7 @@ use vars qw($VERSION @ISA); use Image::ExifTool qw(:Utils :Vars); use Image::ExifTool::XMP; -$VERSION = '1.28'; +$VERSION = '1.29'; @ISA = qw(Exporter); # set this to a language code to generate Lang module with 'MISSING' entries @@ -204,6 +204,8 @@ PTILoop: for ($index=0; $index<@infoArray; ++$index) { # short output format print $fp "/>\n"; # empty tag element next; # no descriptions or values + } else { + print $fp ">"; } my $desc = $$tagInfo{Description}; $desc = Image::ExifTool::MakeDescription($name) unless defined $desc; @@ -225,7 +227,7 @@ PTILoop: for ($index=0; $index<@infoArray; ++$index) { # print tag descriptions $desc = Image::ExifTool::XMP::EscapeXML($desc); unless ($opts{Lang} and $altDescr) { - print $fp ">\n <desc lang='$defaultLang'>$desc</desc>"; + print $fp "\n <desc lang='$defaultLang'>$desc</desc>"; } print $fp "$altDescr\n"; for (my $i=0; ; ++$i) { |