regmatch(): do nextchr=*locinput at top of loop

[perl5.git] / t / porting / args_assert.t

diff --git a/t/porting/args_assert.t b/t/porting/args_assert.t
index df62755..e1a2fa5 100644 (file)
--- a/t/porting/args_assert.t
+++ b/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 = '../';
 }