From d51ec3db8ea15a3ec084cc75683ec737b1a78c32 Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Sat, 29 Dec 2018 18:11:49 -0200
Subject: Improve usage message when arguments are missing.

---
 slides/website-slides | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'slides')

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`;
-- 
cgit v1.2.3