import perl 5.16.3 from CPAN - worked on by Andrew Fresh and myself

1 files changed, 3 insertions, 3 deletions

diff --git a/gnu/usr.bin/perl/t/porting/args_assert.t b/gnu/usr.bin/perl/t/porting/args_assert.t
index 95c24f440e2..e1a2fa5d8e5 100755
--- a/gnu/usr.bin/perl/t/porting/args_assert.t
+++ b/gnu/usr.bin/perl/t/porting/args_assert.t
@@ -16,7 +16,7 @@ my $prefix = '';
 
 unless (-d 't' && -f 'MANIFEST') {
     # we'll assume that we are in t then.
-    # All files are interal to perl, so Unix-style is sufficiently portable.
+    # All files are internal to perl, so Unix-style is sufficiently portable.
     $prefix = '../';
 }
 
@@ -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;