perl: Fix -dt: completion.

scop · Jun 2, 2013 · 97efc7c · 97efc7c
1 parent 18c28bb
commit 97efc7c
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/completions/perl b/completions/perl
@@ -27,6 +27,10 @@ _perl()
         temp=$cur
         prev=${temp:0:2}
         cur=${temp:2}
+        if [[ $prev == -d && $cur == t* ]]; then
+            prev=-dt
+            cur=${cur:1}
+        fi
         optPrefix=-P$prev
         optSuffix=-S/
         prefix=$prev

diff --git a/test/lib/completions/perl.exp b/test/lib/completions/perl.exp
@@ -117,4 +117,10 @@ sync_after_int
 assert_complete_any "perl -m-File::"
 sync_after_int
 
+assert_complete_any "perl -d:"
+sync_after_int
+
+assert_complete_any "perl -dt:"
+sync_after_int
+
 teardown