Handle named subs as readonlies

-20K testsuite
sorear · Aug 17, 2010 · c766146 · c766146
1 parent 2fa3d4e
commit c766146
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/Decl.pm b/Decl.pm
@@ -60,7 +60,7 @@ use CgOp;
     sub bodies { $_[0]->code }
 
     sub used_slots {
-        [$_[0]->var, 'Variable', $_[1] ? 1 : 0];
+        [$_[0]->var, 'Variable', $_[1] ? 3 : 0];
     }
 
     sub preinit_code {
@@ -69,7 +69,9 @@ use CgOp;
         $body->needs_protovars ?
             CgOp::prog(
                 CgOp::protosub($self->code),
-                CgOp::proto_var($self->var, CgOp::sub_var($self->code))) :
+                CgOp::proto_var($self->var,
+                    $body->mainline ? CgOp::sub_obj($self->code)
+                                    : CgOp::sub_var($self->code))) :
             CgOp::protosub($self->code);
     }