diff options
author | Florian Pritz <bluewind@xinu.at> | 2018-11-08 10:23:43 +0100 |
---|---|---|
committer | Florian Pritz <bluewind@xinu.at> | 2018-11-08 10:23:43 +0100 |
commit | 70d89c2cf7bc52e1c6d9505e44649b3ef1220c0c (patch) | |
tree | 320eee3e363a48422070a5e948ce88ce386677b1 | |
parent | 89a1597941fd364ed250b59094a5411822746ba4 (diff) | |
download | bin-70d89c2cf7bc52e1c6d9505e44649b3ef1220c0c.tar.gz bin-70d89c2cf7bc52e1c6d9505e44649b3ef1220c0c.tar.xz |
masterkey.pl: Add missing check for required option
Signed-off-by: Florian Pritz <bluewind@xinu.at>
-rwxr-xr-x | masterkey.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/masterkey.pl b/masterkey.pl index 41a167c..dca2c93 100755 --- a/masterkey.pl +++ b/masterkey.pl @@ -1,6 +1,5 @@ #!/usr/bin/perl -use warnings; -use strict; +use strictures; use v5.10; use Data::Dumper; @@ -86,6 +85,7 @@ on behalf of {$sender_name} ({$sender_key}) # TODO: print all errors at once die "Error: --from option is required but not set\n" if not $opts{from}; + die "Error: --from-address option is required but not set\n" if not $opts{from-address}; die "Error: --tokenfile option is required but not set\n" if not $opts{tokenfile}; die "Error: no or invalid command\n" unless $templates{$command}; |