This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
917b9b5
)
regen/embed.pl: Update a branch test
author
Karl Williamson
<khw@cpan.org>
Sat, 14 Sep 2019 20:33:16 +0000
(14:33 -0600)
committer
Karl 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
patch
|
blob
|
blame
|
history
diff --git
a/regen/embed.pl
b/regen/embed.pl
index
8546051
..
0420027
100755
(executable)
--- a/
regen/embed.pl
+++ b/
regen/embed.pl
@@
-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;