From 348fb728f970ef43218fc6a88b03619860bf8337 Mon Sep 17 00:00:00 2001 From: schodet Date: Wed, 12 Oct 2005 21:57:47 +0000 Subject: Éclairsissement des options. --- p/tools/todo.pl | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) mode change 100644 => 100755 p/tools/todo.pl (limited to 'p') diff --git a/p/tools/todo.pl b/p/tools/todo.pl old mode 100644 new mode 100755 index ceee0f5..c6b0267 --- 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; -- cgit v1.2.3