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

index 67cb351..2f84b2d 100755 (executable)
@@ -126,6 +126,8 @@ my ($embed, $core, $ext, $api) = setup_embed();
 
        die_at_end "For '$plain_func', M flag requires p flag"
                                            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/;
 
        $func = full_name($plain_func, $flags);
        $ret = "";