diff options
| author | Karl Williamson <khw@cpan.org> | 2019-09-14 14:26:05 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2019-09-15 10:39:56 -0600 |
| commit | 5178f485275d46a234a36077d213f9aee11b81ba (patch) | |
| tree | 80d0112bc19b00b65c3e22ab8d544c67a8fda2a7 /regen/embed.pl | |
| parent | 9c10ff02ede505e07dd601a89271a2e3e5e79b52 (diff) | |
| download | perl-5178f485275d46a234a36077d213f9aee11b81ba.tar.gz | |
embed.fnc: 'm' and 'p' flags don't make sense together
This is a macro, so doesn't have a Perl_ long form function call.
Also forbid 'm' and 'S', but there weren't any current uses of that.
Diffstat (limited to 'regen/embed.pl')
| -rwxr-xr-x | regen/embed.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/regen/embed.pl b/regen/embed.pl index a5570d1a01..8546051a75 100755 --- a/regen/embed.pl +++ b/regen/embed.pl @@ -101,7 +101,9 @@ my ($embed, $core, $ext, $api) = setup_embed(); } die_at_end "$plain_func: S flag is mutually exclusive from the i and p plags" - if $flags =~ /S/ && $flags =~ /[ip]/; + if $flags =~ /S/ && $flags =~ /([ip])/; + die_at_end "$plain_func: m and $1 flags are mutually exclusive" + if $flags =~ /m/ && $flags =~ /([pS])/; die_at_end "$plain_func: u flag only usable with m" if $flags =~ /u/ && $flags !~ /m/; |