This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regen/embed.pl: Update a branch test
authorKarl Williamson <khw@cpan.org>
Sat, 14 Sep 2019 20:33:16 +0000 (14:33 -0600)
committerKarl Williamson <khw@cpan.org>
Sun, 15 Sep 2019 16:39:56 +0000 (10:39 -0600)
The two flags are now mutually exclusive, so no need to test for both.

regen/embed.pl

index 8546051..0420027 100755 (executable)
@@ -90,7 +90,7 @@ my ($embed, $core, $ext, $api) = setup_embed();
        my $has_context = ( $flags !~ /T/ );
        my $never_returns = ( $flags =~ /r/ );
        my $binarycompat = ( $flags =~ /b/ );
-       my $commented_out = ( ! $binarycompat && $flags =~ /m/ );
+       my $commented_out = ( $flags =~ /m/ );
        my $is_malloc = ( $flags =~ /a/ );
        my $can_ignore = ( $flags !~ /R/ ) && ( $flags !~ /P/ ) && !$is_malloc;
        my @names_of_nn;