* add debbugs reopen war

[lib.git] / templates / perl_script

diff --git a/templates/perl_script b/templates/perl_script
index b4b08d9279d9aa289b6eeece7db4ec7bf04096ae..24254d5ad681174f86ab82fa58f4de7946983da2 100755 (executable)
--- a/templates/perl_script
+++ b/templates/perl_script
@@ -2,7 +2,7 @@
 # , and is released
 # under the terms of the GPL version 2, or any later version, at your
 # option. See the file README and COPYING for more information.
-# Copyright 2006 by Don Armstrong <don@donarmstrong.com>.
+# Copyright 2009 by Don Armstrong <don@donarmstrong.com>.
 # $Id$
 
 
@@ -35,7 +35,7 @@ Debug verbosity. (Default 0)
 
 =item B<--help, -h>
 
-Display brief useage information.
+Display brief usage information.
 
 =item B<--man, -m>
 
@@ -56,13 +56,21 @@ my %options = (debug           => 0,
               man             => 0,
               );
 
-GetOptions(\%options,'debug|d+','help|h|?','man|m');
+GetOptions(\%options,
+          'debug|d+','help|h|?','man|m');
 
 pod2usage() if $options{help};
 pod2usage({verbose=>2}) if $options{man};
 
 $DEBUG = $options{debug};
 
+my @USAGE_ERRORS;
+if (1) {
+     push @USAGE_ERRORS,"You must pass something";
+}
+
+pod2usage(join("\n",@USAGE_ERRORS)) if @USAGE_ERRORS;
+