Changeset 14351 for src/Pugs/Prim/Match.hs

Timestamp:

10/17/06 08:26:01 (2 years ago)

Author:

audreyt

svk:copy_cache_prev:

21206

Message:

* Pugs.Embed.Perl5: Correctly find out the installed version

of Pugs::Compiler::Rules after a "make install".

Files:

• src/Pugs/Prim/Match.hs (modified) (1 diff)

src/Pugs/Prim/Match.hs

@@ -31 +31 @@
 doMatch :: String -> VRule -> Eval VMatch
 doMatch cs rule@MkRulePGE{ rxRule = ruleStr } = do
-    let pwd1 = getConfig "installarchlib" ++ "/CORE/pugs"
-        pwd2 = getConfig "sourcedir"
+    let pwd1 = getConfig "installsitelib" ++ "/auto/pugs/perl5/lib"
+        pwd2 = getConfig "sourcedir" ++ "/perl5/Pugs-Compiler-Rule/lib"
     hasSrc <- liftIO $ doesDirectoryExist pwd2
     let pwd = if hasSrc then pwd2 else pwd1