Don’t create formats after compilation errors

Otherwise you can end up with a format that has nonsensical op tree,
but it gets attached and you can call it anyway.

1 files changed, 0 insertions, 1 deletions

diff --git a/perly.y b/perly.y
index b940bc63f8..b9bc0eb859 100644
--- a/perly.y
+++ b/perly.y
@@ -288,7 +288,6 @@ barestmt:	PLUGSTMT
 	|	FORMAT startformsub formname formblock
 			{
 			  CV *fmtcv = PL_compcv;
-			  SvREFCNT_inc_simple_void(PL_compcv);
 #ifdef MAD
 			  $$ = newFORM($2, $3, $4);
 			  prepend_madprops($1->tk_mad, $$, 'F');