Changeset 19541 for util

Timestamp:

01/17/08 02:49:52 (10 months ago)

Author:

lwall

Message:

[Test] allow todo 'feature', :by<6.28>
[fudge] fix bracket bug on block todo

Files:

• util/fudge (modified) (3 diffs)

util/fudge

@@ -26 +26 @@
                 $PENDING = 1;
             }
-            $ARGS =~ s/^(\w+)//;
+            $ARGS =~ s/^(\w+)\s*//;
             $FUDGE = $1;
         }
@@ -39 +39 @@
             if ($FUDGE eq 'todo') {
                 local $PENDING = 999999;        # do all in block as one action
+                print $_;
                 fudgeblock();
+                $_ = '';
             }
             else {
@@ -68 +70 @@
         else {
             if ($FUDGE eq 'todo') {
-                $PENDING -= s/^/todo$ARGS; / if /^\s*$IS/;
+                $PENDING -= s/^(\s*)/${1}todo($ARGS); / if /^\s*$IS/;
             }
             else {