diff options
author | exiftool <phil@work3.phy.queensu.ca> | 2018-01-26 12:41:32 -0500 |
---|---|---|
committer | exiftool <phil@work3.phy.queensu.ca> | 2018-01-26 12:41:32 -0500 |
commit | d62e2cf739cb954b77b9c309506e0d0c14ac0fdc (patch) | |
tree | a87f77cc6b3f0ea55c47e2643ec263694f485891 /lib/Image/ExifTool/HTML.pm | |
parent | 5a96e29ffec7118456020aa340b139db2d172110 (diff) |
Update to 10.77
Diffstat (limited to 'lib/Image/ExifTool/HTML.pm')
-rw-r--r-- | lib/Image/ExifTool/HTML.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Image/ExifTool/HTML.pm b/lib/Image/ExifTool/HTML.pm index 2897b92d..695948f4 100644 --- a/lib/Image/ExifTool/HTML.pm +++ b/lib/Image/ExifTool/HTML.pm @@ -502,7 +502,7 @@ sub ProcessHTML($$) $name =~ s/\s(.)/\U$1/g; # capitalize all words in tag name $name =~ tr/-_a-zA-Z0-9//dc; # remove illegal characters (also hex code wide chars) AddTagToTable($table, $tag, { Name => $name }); - $et->VPrint(0, " [adding $tag '$name']\n"); + $et->VPrint(0, " [adding $tag '${name}']\n"); } $val = $et->Decode($val, $$et{HTMLCharset}) if $$et{HTMLCharset}; $et->HandleTag($table, $tag, UnescapeXML($val)); @@ -518,7 +518,7 @@ sub ProcessHTML($$) my $info = { Name => $name, Groups => { 0 => 'HTML' } }; $info->{Groups}->{1} = ($grp eq 'http-equiv' ? 'HTTP-equiv' : "HTML-$grp") if $grp; AddTagToTable($table, $tag, $info); - $et->VPrint(0, " [adding $tag '$tagName']\n"); + $et->VPrint(0, " [adding $tag '${tagName}']\n"); } # recode if necessary $val = $et->Decode($val, $$et{HTMLCharset}) if $$et{HTMLCharset}; |