From de5f61e6af8833f26846970d0a8307985ea73b67 Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Mon, 18 Feb 2008 03:28:19 +0000 Subject: [PATCH] * Add usage error section and update copyright of the perl script template --- templates/perl_script | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) 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 . +# Copyright 2008 by Don Armstrong . # $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; + -- 2.39.2