diff options
Diffstat (limited to 'slides')
-rwxr-xr-x | slides/website-slides | 11 |
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`; |