regen/embed.pl: Enforce static fcn can't be declared pure.
authorKarl Williamson <khw@cpan.org>
Mon, 12 Dec 2016 21:52:24 +0000 (14:52 -0700)
committerKarl Williamson <khw@cpan.org>
Wed, 14 Dec 2016 17:45:02 +0000 (10:45 -0700)
regen/embed.pl

index 4b39e15..01bcc78 100755 (executable)
@@ -111,6 +111,7 @@ my ($embed, $core, $ext, $api) = setup_embed();
                $type = $1 eq 's' ? "STATIC" : "PERL_STATIC_INLINE";
            }
            $retval = "$type $retval";
+           die_at_end "Don't declare static function '$plain_func' pure" if $flags =~ /P/;
        }
        else {
            if ($never_returns) {