git.shiar.nl
/
sheet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
4e5cd85
)
charset: silence perl warning on ascii range check
author
Mischa POSLAWSKY
<perl@shiar.org>
Thu, 5 Sep 2024 12:41:05 +0000
(14:41 +0200)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Sat, 7 Sep 2024 23:50:14 +0000
(
01:50
+0200)
Find 00-7F inherit value in gsm0338 without overly critical hex() complaints
[Illegal hexadecimal digit '-' ignored].
charset.plp
patch
|
blob
|
history
diff --git
a/charset.plp
b/charset.plp
index d832d653c17807ee466fd7c0b5ebfbaf978928b1..7909fa8d4ed0f5b06f5bcb4351bdd3cfe9e3b004 100644
(file)
--- a/
charset.plp
+++ b/
charset.plp
@@
-115,7
+115,7
@@
sub tabinput {
}
elsif (@parents) {
$row{parent} = $parents[0];
- $params = $parents[1] if
hex $parents[1] == 0
; # apply ascii end
+ $params = $parents[1] if
$parents[1] =~ /^0+-/
; # apply ascii end
}
$visible->{$_} //= 0 for $row{parent} || ();
}