From 2391bfdfaae9018b1121520fa25a573f03d773c1 Mon Sep 17 00:00:00 2001
From: Karl Williamson <khw@cpan.org>
Date: Mon, 12 Dec 2016 14:52:24 -0700
Subject: [PATCH] regen/embed.pl: Enforce static fcn can't be declared pure.

---
 regen/embed.pl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/regen/embed.pl b/regen/embed.pl
index 4b39e15..01bcc78 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) {
-- 
1.8.3.1