Changeset 94ef58c

Timestamp:

Aug 29, 2009, 10:17:09 PM (15 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

4ccd92c

Parents:

6c144b3

git-author:

David Benjamin <davidben@mit.edu> (08/21/09 21:12:52)

git-committer:

Nelson Elhage <nelhage@mit.edu> (08/29/09 22:17:09)

Message:

Add keyword arg to complete_flags: stop_at_nonflag

Signed-off-by: David Benjamin <davidben@mit.edu>

File:

• perl/lib/BarnOwl/Completion/Util.pm (modified) (2 diffs)

perl/lib/BarnOwl/Completion/Util.pm

@@ -15 +15 @@
     my $default = shift;
 
+    my %options = ();
+    %options = @_ if @_;
 
     my $idx = 1;
@@ -38 +40 @@
         } else {
             $argct++;
+            if ($options{stop_at_nonflag}) {
+                $optsdone = 1;
+                $idx++;
+                last;
+            }
         }
         $idx++;