Fix --compile test/closures/arg0.pl with empty sig

perl11 · Sep 10, 2013 · edf3f43 · edf3f43
1 parent 256f3ab
commit edf3f43
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/core/compile.c b/core/compile.c
@@ -987,6 +987,7 @@ PN potion_sig_compile(Potion *P, vPN(Proto) f, PN src) {
   f->sig = (sig == PN_NIL ? PN_TUP0() :
 #ifdef P2
             PN_S(sig,0));
+  if (!f->sig) f->sig = PN_TUP0();
 #else
             potion_sig_compile(P, f, sig));
 #endif

diff --git a/syn/syntax-p5.y b/syn/syntax-p5.y
@@ -478,7 +478,7 @@ arg2-type = !'$' i:id space+  { $$ = potion_class_find(P, i); if (!$$) yyerror(G
 arg2 = !arg2-sigil t:arg2-type m:arg-modifier n:arg2-name { SRC_TPL3(n,t,m) }
      | !arg2-sigil t:arg2-type n:arg2-name 		{ SRC_TPL2(n,t) }
      | m:arg-modifier n:arg2-name 		 	{ SRC_TPL3(n,0,m) }
-     | n:arg2-name - '=' - d:value			{ SRC_TPL3(n,PN_NUM(':'), PN_S(d,0)) }
+     | n:arg2-name - assign d:value			{ SRC_TPL3(n,PN_NUM(':'), PN_S(d,0)) }
      | n:arg2-name					{ SRC_TPL1(n) }
 
 %%