Changeset 9212 for src/Pugs/Run

Timestamp:

02/28/06 17:56:18 (3 years ago)

Author:

audreyt

Message:

* Pugs.Run.Args: Now that autochomping is the default,

we don't need to do .=chomp anymore for -p and -n.

Files:

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

src/Pugs/Run/Args.hs

@@ -166 +166 @@
 desugarDashE [] = []
 desugarDashE ((Switch 'p'):args) = desugarDashE $
-    (Opt "-e" "env $_; while ($_ = =<>) { $_ = chomp($_);" : args) ++ [Opt "-e" "; say $_; }"]
+    (Opt "-e" "env $_; while (defined($_ = =<>)) { " : args) ++ [Opt "-e" "; say $_; }"]
 desugarDashE ((Switch 'n'):args) = desugarDashE $
-    (Opt "-e" "env $_; while ($_ = =<>) { $_ = chomp($_);" : args) ++ [Opt "-e" "}"]
+    (Opt "-e" "env $_; while (defined($_ = =<>)) { " : args) ++ [Opt "-e" "}"]
 
 -- -E is like -e, but not accessible as a normal parameter and used only