Changeset 15325 for src/Pugs/Prim/FileTest.hs

Timestamp:

02/22/07 18:04:22 (21 months ago)

Author:

audreyt

Message:

* Remove debug warnings for :T etc.

Files:

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

src/Pugs/Prim/FileTest.hs

@@ -51 +51 @@
     envSV   <- liftIO $ mkEnv env
     argSV   <- fromVal v
-    subSV   <- liftIO $ evalPerl5 ("sub { warn $_[0]; -" ++ testOp ++ " $_[0] }") envSV (enumCxt cxtItemAny)
+    subSV   <- liftIO $ evalPerl5 ("sub { -" ++ testOp ++ " $_[0] }") envSV (enumCxt cxtItemAny)
     rv      <- runInvokePerl5 subSV nullSV [argSV]
     return $ case rv of