X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=templates%2Fperl_script;h=fd9af75337a1e68390966b84eea09d48587acf1f;hb=b4aa1a840069e4a22a3a17b112f9a3c51a820c78;hp=b4b08d9279d9aa289b6eeece7db4ec7bf04096ae;hpb=a2b1a8aa27ff0fe5d69669cf02caad1bb4be533e;p=lib.git

diff --git a/templates/perl_script b/templates/perl_script
index b4b08d9..fd9af75 100755
--- 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 2008 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;
+