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

diff --git a/templates/perl_script b/templates/perl_script
index b4b08d9..412a386 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$
 
 
@@ -63,6 +63,13 @@ 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;
+