From 84cdef8f454acf4db36c5ee47ce0dd3b893c9bf9 Mon Sep 17 00:00:00 2001
From: kobaken <kentafly88@gmail.com>
Date: Thu, 4 Jan 2024 10:13:29 +0900
Subject: [PATCH] =?UTF-8?q?atan2=E3=82=92=E9=96=A2=E6=95=B0=E3=81=AE?=
 =?UTF-8?q?=E5=80=99=E8=A3=9C=E3=81=AB=E5=85=A5=E3=82=8C=E3=82=8B=E3=82=88?=
 =?UTF-8?q?=E3=81=86=E3=81=AB=E6=AD=A3=E8=A6=8F=E8=A1=A8=E7=8F=BE=E3=82=92?=
 =?UTF-8?q?=E5=BE=AE=E8=AA=BF=E6=95=B4?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 lib/PJP/M/BuiltinFunction.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/PJP/M/BuiltinFunction.pm b/lib/PJP/M/BuiltinFunction.pm
index 4a12000..7e6ba7f 100644
--- a/lib/PJP/M/BuiltinFunction.pm
+++ b/lib/PJP/M/BuiltinFunction.pm
@@ -68,7 +68,7 @@ sub generate {
             while (<$fh>) {
                 $_encoding = $1 and next if !defined $_encoding && m{^=encoding\s+(.+)$};
                 s{E<sol>}{/}g;
-                my @names = m{C<(\-?[a-zA-Z_]+)(?:[^>]+)?>}g;
+                my @names = m{C<(\-?[a-zA-Z0-9_]+)(?:[^>]+)?>}g;
                 push @_candidate, map {s{^($OPS_REGEXP)(?:/+|/STRING/)$}{$1}; $_} @names;
             }
             close $fh;