diff options
| author | Andy Lester <andy@petdance.com> | 2016-11-22 06:17:45 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2016-11-22 06:22:37 -0700 |
| commit | b289a0bd3e66981f9f724fb37f0f1aa6c8931ba0 (patch) | |
| tree | 137193973600d6a80166caf6f5cc4b911d56a26e /regen/embed.pl | |
| parent | 6b2c7479d6d33249c2385d8a36d8ee9e61e1a519 (diff) | |
| download | perl-b289a0bd3e66981f9f724fb37f0f1aa6c8931ba0.tar.gz | |
Make (P)ure funcs in embed.fnc imply (R)eturn must be checked
embed.fnc defines that a pure function is one that has no effects other
than its return value. Therefore, calling such a function without using
the return value must be an error.
This patch makes a "P" "pure function" flag also imply the "R" "return
value must be checked" flag.
Diffstat (limited to 'regen/embed.pl')
| -rwxr-xr-x | regen/embed.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/regen/embed.pl b/regen/embed.pl index 19256eb760..f1b7449b0b 100755 --- a/regen/embed.pl +++ b/regen/embed.pl @@ -85,7 +85,7 @@ my ($embed, $core, $ext, $api) = setup_embed(); my $binarycompat = ( $flags =~ /b/ ); my $commented_out = ( ! $binarycompat && $flags =~ /m/ ); my $is_malloc = ( $flags =~ /a/ ); - my $can_ignore = ( $flags !~ /R/ ) && !$is_malloc; + my $can_ignore = ( $flags !~ /R/ ) && ( $flags !~ /P/ ) && !$is_malloc; my @names_of_nn; my $func; |