Changes in perl/lib/BarnOwl/Completion/Util.pm [69c27e6:94ef58c]

File:

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

perl/lib/BarnOwl/Completion/Util.pm

@@ -24 +24 @@
     my $optsdone = 0;
 
-    my %flags_seen;
-
     while($idx < $ctx->word) {
         my $word = $ctx->words->[$idx];
@@ -39 +37 @@
         } elsif ($word =~ m{^-}) {
             $word = "-" . substr($word, -1);
-            $flags_seen{$word} = 1; # record flag
             $flag = $word if(exists $args->{$word});
         } else {
@@ -61 +58 @@
         return;
     } else {
-        my @opts = $optsdone ? () : (@$no_args, keys %$args);
-        # filter out flags we've seen if needbe
-        @opts = grep {!$flags_seen{$_}} @opts unless $options{repeat_flags};
-        return (@opts, $default ? ($default->($ctx, $argct)) : ());
+        return ($optsdone ? () : (@$no_args, keys %$args),
+                $default ? ($default->($ctx, $argct)) : ());
     }
 }