summaryrefslogtreecommitdiff
path: root/p/tools/todo.pl
diff options
context:
space:
mode:
authorschodet2005-10-12 21:57:47 +0000
committerschodet2005-10-12 21:57:47 +0000
commit348fb728f970ef43218fc6a88b03619860bf8337 (patch)
tree4c8d17e799d6875fb2ca96fa01bd7ab99c2503ee /p/tools/todo.pl
parentcf4aa6ae31d5edcfedf36097791ff533e74a097d (diff)
Éclairsissement des options.
Diffstat (limited to 'p/tools/todo.pl')
-rwxr-xr-x[-rw-r--r--]p/tools/todo.pl14
1 files changed, 7 insertions, 7 deletions
diff --git a/p/tools/todo.pl b/p/tools/todo.pl
index ceee0f5..c6b0267 100644..100755
--- a/p/tools/todo.pl
+++ b/p/tools/todo.pl
@@ -4,7 +4,7 @@
#
use strict;
use Template;
-use Getopt::Long;
+use Getopt::Long qw(:config no_ignore_case no_auto_abbrev bundling);
# Parse a todo file and add tasks to \%todos.
sub parse_todo
@@ -165,15 +165,15 @@ sub config
'format' => 'text',
);
GetOptions (\%config,
- 'todo-dir=s',
+ 'todo-dir|t=s',
'template-dir|T=s',
- 'format=s',
- 'keep-empty',
- 'owner=s',
+ 'format|f=s',
+ 'keep-empty|k',
+ 'owner|o=s',
'open|O',
- 'scheduled',
+ 'scheduled|s',
'dump|d',
- 'help',
+ 'help|h',
) or die;
usage () and exit 0 if (exists ($config{help}));
return %config;