Changeset 7463 for src/Pugs.hs

Timestamp:

10/09/05 13:58:21 (3 years ago)

Author:

autrijus

Message:

* look into perl6 sitelib/privlib, not perl5 one...

Files:

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

src/Pugs.hs

@@ -246 +246 @@
 doExecuteHelper :: FilePath -> [String] -> IO ()
 doExecuteHelper helper args = do
-    let searchPaths = concatMap (\x -> map (x++) suffixes) [["."], ["..", ".."], [getConfig "sourcedir"], [getConfig "perl5privlib", "auto", "pugs"], [getConfig "perl5sitelib", "auto", "pugs"]]
+    let searchPaths = concatMap (\x -> map (x++) suffixes) [["."], ["..", ".."], [getConfig "sourcedir"], [getConfig "privlib", "auto", "pugs"], [getConfig "sitelib", "auto", "pugs"]]
     mbin <- findHelper searchPaths
     case mbin of