Fix the regexp in t/porting/args_assert.t, and add 3 missing macros.

Resolves RT #72800.

1 files changed, 2 insertions, 2 deletions

diff --git a/t/porting/args_assert.t b/t/porting/args_assert.t
index 95c24f440e..df62755b34 100644
--- a/t/porting/args_assert.t
+++ b/t/porting/args_assert.t
@@ -26,7 +26,7 @@ unless (-d 't' && -f 'MANIFEST') {
     open my $fh, '<', $proto or die "Can't open $proto: $!";
 
     while (<$fh>) {
-	$declared{$1}++ if /^#define\s+(PERL_ARGS_ASSERT[A-Za-z_]+)\s+/;
+	$declared{$1}++ if /^#define\s+(PERL_ARGS_ASSERT[A-Za-z0-9_]+)\s+/;
     }
 }
 
@@ -42,7 +42,7 @@ if (!@ARGV) {
 }
 
 while (<>) {
-    $used{$1}++ if /^\s+(PERL_ARGS_ASSERT_[A-Za-z_]+);$/;
+    $used{$1}++ if /^\s+(PERL_ARGS_ASSERT_[A-Za-z0-9_]+);$/;
 }
 
 my %unused;