regen/embed.pl: Verify flags field of embed.fnc
authorKarl Williamson <khw@cpan.org>
Tue, 10 May 2016 23:34:25 +0000 (17:34 -0600)
committerKarl Williamson <khw@cpan.org>
Fri, 13 May 2016 02:16:39 +0000 (20:16 -0600)
Make sure that the specified flags are legal.

regen/embed.pl

index 3db9c41..4bfb443 100755 (executable)
@@ -75,6 +75,9 @@ my ($embed, $core, $ext, $api) = setup_embed();
        }
 
        my ($flags,$retval,$plain_func,@args) = @$_;
+       if ($flags =~ / ( [^AabDdEfiMmnOoPpRrsUXx] ) /x) {
+           warn "flag $1 is not legal (for function $plain_func)";
+       }
        my @nonnull;
        my $has_context = ( $flags !~ /n/ );
        my $never_returns = ( $flags =~ /r/ );