This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regen/embed.pl: Sort accepted flags list; N n s are legal
authorKarl Williamson <khw@cpan.org>
Fri, 30 Aug 2019 19:06:18 +0000 (13:06 -0600)
committerKarl Williamson <khw@cpan.org>
Tue, 3 Sep 2019 03:52:10 +0000 (21:52 -0600)
This makes it easier to look up a flag in the list.  It had gotten out
of order due to an earlier renaming of a flag.  And several legal flags
(though not used in embed.fnc) were missing

regen/embed.pl

index d5b04b4..ca466a3 100755 (executable)
@@ -81,7 +81,7 @@ my ($embed, $core, $ext, $api) = setup_embed();
        }
 
        my ($flags,$retval,$plain_func,@args) = @$_;
-        if ($flags =~ / ( [^AabDdEefiMmTOoPpRrSUWXx] ) /x) {
+        if ($flags =~ / ( [^AabDdEefiMmNnOoPpRrSsTUWXx] ) /x) {
            die_at_end "flag $1 is not legal (for function $plain_func)";
        }
        my @nonnull;