diff options
| author | Karl Williamson <khw@cpan.org> | 2016-12-12 14:52:24 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2016-12-14 10:45:02 -0700 |
| commit | 2391bfdfaae9018b1121520fa25a573f03d773c1 (patch) | |
| tree | d407255ebb9707d8291fa65cbb0167528b4d28f5 | |
| parent | cfe24c19270f6ccb34742b7199b21718cd2fd8aa (diff) | |
| download | perl-2391bfdfaae9018b1121520fa25a573f03d773c1.tar.gz | |
regen/embed.pl: Enforce static fcn can't be declared pure.
| -rwxr-xr-x | regen/embed.pl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/regen/embed.pl b/regen/embed.pl index 4b39e156de..01bcc78d15 100755 --- a/regen/embed.pl +++ b/regen/embed.pl @@ -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) { |