Simple version of after(); t/cmd_after.t passes.

partcl · Nov 29, 2009 · 1e4db42 · 1e4db42
1 parent 2bff6f8
commit 1e4db42
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/PmTcl/Commands.pm b/src/PmTcl/Commands.pm
@@ -1,3 +1,10 @@
+our sub after(*@args) {
+    if +@args < 1 {
+        error('wrong # args: should be "after option ?arg arg ...?"')
+    }
+    pir::sleep__vN(+@args[0] / 1000);
+    '';
+}
 
 our sub append(*@args) {
     if +@args < 1 {