This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regen/embed.pl: Enforce 'b' without 'M' requires 'D'
authorKarl Williamson <khw@cpan.org>
Sun, 1 Sep 2019 02:53:03 +0000 (20:53 -0600)
committerKarl Williamson <khw@cpan.org>
Tue, 3 Sep 2019 03:52:10 +0000 (21:52 -0600)
regen/embed.pl

index 2f84b2d..be0c8f8 100755 (executable)
@@ -128,6 +128,8 @@ my ($embed, $core, $ext, $api) = setup_embed();
                                            if $flags =~ /M/ && $flags !~ /p/;
        die_at_end "For '$plain_func', b and m flags are mutually exclusive"
                 . " (try M flag)" if $flags =~ /b/ && $flags =~ /m/;
+       die_at_end "For '$plain_func', b flag without M flag requires D flag"
+                           if $flags =~ /b/ && $flags !~ /M/ && $flags !~ /D/;
 
        $func = full_name($plain_func, $flags);
        $ret = "";