Changeset 16383 for src/Pugs/Parser

Timestamp:

05/17/07 23:45:00 (18 months ago)

Author:

audreyt

Message:

* Repair importing from perl5 by giving the ->$_{...}

primitive a default pad to hold $_.

Files:

• src/Pugs/Parser/Program.hs (modified) (1 diff)

src/Pugs/Parser/Program.hs

@@ -179 +179 @@
         [ _Var "@*CHECK"
         , Syn "sub"
-            [ Val . VCode $ mkSub
-                { subBody   = App (_Var "$_") Nothing []
-                , subParams = [defaultScalarParam]
+            [ Val . VCode $ mkPrim
+                { subBody       = App (_Var "$_") Nothing []
+                , subParams     = [defaultScalarParam]
+                , subInnerPad   = defaultScalarPad
                 }
             ]
         ]
+
     -- If there was a exit() in a CHECK block, we have to exit.
     possiblyExit rv