Improve usage message when arguments are missing.

1 files changed, 6 insertions, 5 deletions

diff --git a/slides/website-slides b/slides/website-slides
index 8907333..e1ae31b 100755
--- a/slides/website-slides
+++ b/slides/website-slides
@@ -48,10 +48,11 @@ GetOptions(
   'name|n=s' => \$name
 ) or pod2usage(-verbose => 1, -exitval => 2);
 pod2usage(-verbose => 2, -exitval => 0) if $help;
-
-if (!$name) {
-  die "Missing required --name argument.";
-}
+pod2usage(
+  -verbose => 1,
+  -exitval => 2,
+  -message => "Missing required --name argument."
+) if !$name;
 
 my $dirname = dirname(__FILE__);
 chdir $dirname ;
@@ -65,4 +66,4 @@ chdir "../";
 
 copy("base.org", "$name/index.org") or die "Failed to copy base.org file: $!";
 
-print `realpath $name/index.org`;
\ No newline at end of file
+print `realpath $name/index.org`;