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

Timestamp:

02/22/07 09:47:16 (21 months ago)

Author:

audreyt

Message:

* Support for the full test of file test operators: oRWXOlpSbctugkTB

(the rest were already supported.) For example:

"README" :T # True

Thanks to jisom++ for prompting it.

Files:

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

src/Pugs/Prim/Match.hs

@@ -141 +141 @@
         "f" -> FileTest.isFile
         "d" -> FileTest.isDirectory
+        [op] | op `elem` "oRWXOlpSbctugkTB" -> FileTest.fileTestViaPerl5 testOp
         _   -> const $ die "Unknown file test operator" testOp
     if isTrue