From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 18 Feb 2008 03:28:19 +0000 (+0000)
Subject:  * Add usage error section and update copyright of the perl script template
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;ds=sidebyside;h=de5f61e6af8833f26846970d0a8307985ea73b67;p=lib.git

 * Add usage error section and update copyright of the perl script template
---

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;
+