perl: Fix -dt: completion.

2013-06-03 00:22:19 +03:00 · 2013-06-03 00:22:19 +03:00 · 97efc7ca08
commit 97efc7ca08
parent 18c28bb9a2
2 changed files with 10 additions and 0 deletions
--- 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
--- 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