diff options
author | Jean Delvare <khali@linux-fr.org> | 2006-05-24 19:52:11 +0000 |
---|---|---|
committer | Jean Delvare <khali@linux-fr.org> | 2006-05-24 19:52:11 +0000 |
commit | 9a8382b0cf89f29c6dafb6dfb81a72c08d3b22ef (patch) | |
tree | 8a031e22e1fc3a20a87e6bd1af6088a5dde27192 /quilt | |
parent | 14a8982f98baaa99205bc62cf272a596fcd693f3 (diff) | |
download | quilt-9a8382b0cf89f29c6dafb6dfb81a72c08d3b22ef.tar.gz |
- quilt/scripts/edmail.in: Declare option parameters as mandatory
rather than optional. This makes more sense as the parameters
are indeed not optional, and this also works around a bug in
Getopt::Long.
Diffstat (limited to 'quilt')
-rw-r--r-- | quilt/scripts/edmail.in | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/quilt/scripts/edmail.in b/quilt/scripts/edmail.in index 06b1beb..8c87218 100644 --- a/quilt/scripts/edmail.in +++ b/quilt/scripts/edmail.in @@ -38,20 +38,20 @@ sub _($) { my (%append_name, %append_value, $remove_empty_headers, %remove_header, %extract_recipients_from, %replace_name, %replace_value, $charset); -GetOptions('add-recipient:s%' => +GetOptions('add-recipient=s%' => sub { $append_name{lc $_[1]} = $_[1]; $append_value{lc $_[1]} .= ",\n " . $_[2]; }, - 'remove-header:s' => sub { $remove_header{lc $_[1]}++ }, + 'remove-header=s' => sub { $remove_header{lc $_[1]}++ }, 'remove-empty-headers' => \$remove_empty_headers, - 'replace-header:s%' => + 'replace-header=s%' => sub { $replace_name{lc $_[1]} = $_[1]; $replace_value{lc $_[1]} = $_[2]; }, - 'extract-recipients:s' => sub { $extract_recipients_from{lc $_[1]} = 1 }, - 'charset:s' => \$charset) + 'extract-recipients=s' => sub { $extract_recipients_from{lc $_[1]} = 1 }, + 'charset=s' => \$charset) or exit 1; my %recipient_headers = map {lc $_ => 1} (@ARGV, keys %append_name); |