Changeset 12323 for src/Pugs/Run

Timestamp:

08/16/06 19:59:13 (2 years ago)

Author:

audreyt

Message:

* Change Var to _Var in Perl5.hs

Files:

• src/Pugs/Run/Perl5.hs (modified) (1 diff)

src/Pugs/Run/Perl5.hs

@@ -73 +73 @@
     args    <- mapM deVal =<< peekArray0 nullPtr argsPtr
     let subExp = case sub of
-            VStr name@('&':_)   -> Var name
-            VStr name           -> Var ('&':name)
+            VStr name@('&':_)   -> _Var name
+            VStr name           -> _Var ('&':name)
             _                   -> Val sub
     val <- runEvalIO env $