From 853d2447d4ee85d7a6a7511d6ecf1006f68ecba5 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 5 Sep 2024 14:41:05 +0200
Subject: [PATCH 1/1] charset: silence perl warning on ascii range check

Find 00-7F inherit value in gsm0338 without overly critical hex() complaints
[Illegal hexadecimal digit '-' ignored].
---
 charset.plp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/charset.plp b/charset.plp
index d832d65..7909fa8 100644
--- 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} || ();
 	}
-- 
2.30.2