diff options
author | Karl Williamson <khw@cpan.org> | 2021-04-14 09:58:18 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2021-04-14 10:16:17 -0600 |
commit | 99eff296d35ab93f0ed6df6a5736da6152229e30 (patch) | |
tree | 448ad87e364fca7dd540997b42b7b199a2b9432f | |
parent | e73c00e2879051ea3c298e4e52ff61b3fedcbea0 (diff) | |
download | perl-99eff296d35ab93f0ed6df6a5736da6152229e30.tar.gz |
regen/embed.pl: G flag mean NN, NULLOK not reqd
The G flag for a function indicates to not generate a PERL_ARGS_ASSERT
macro for the function. This macro is the only consumer of the NN and
NULLOK indicators to pointer arguments. Since the consumer is absent,
there is no need for them, and they shouldn't be required.
This commit does not change the check that If a NN is furnished, the G
flag is illegal.
-rwxr-xr-x | regen/embed.pl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/regen/embed.pl b/regen/embed.pl index 64a8da3f47..df4e692ac5 100755 --- a/regen/embed.pl +++ b/regen/embed.pl @@ -165,7 +165,10 @@ my ($embed, $core, $ext, $api) = setup_embed(); my $n; for my $arg ( @args ) { ++$n; - if ( $arg =~ /\*/ && $arg !~ /\b(NN|NULLOK)\b/ ) { + if ( $args_assert_line + && $arg =~ /\*/ + && $arg !~ /\b(NN|NULLOK)\b/ ) + { warn "$func: $arg needs NN or NULLOK\n"; ++$unflagged_pointers; } |