X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=templates%2Fperl_script;h=845afc8ae39f8173e5d3f13cbb36e0eaf9a62abc;hb=6b16ff5c2f488d5291794bc7b906f25c65eb8f53;hp=05509d74b6438d5e1193388b65a848f1c5ea7c57;hpb=b8afffb79ed17914430e54d02069bef45adcabaa;p=lib.git

diff --git a/templates/perl_script b/templates/perl_script
index 05509d7..845afc8 100755
--- a/templates/perl_script
+++ b/templates/perl_script
@@ -3,7 +3,7 @@
 # and is released under the terms of the GNU GPL version 3, or any
 # later version, at your option. See the file README and COPYING for
 # more information.
-# Copyright 2013 by Don Armstrong <don@donarmstrong.com>.
+# Copyright 2016 by Don Armstrong <don@donarmstrong.com>.
 
 
 use warnings;
@@ -18,12 +18,12 @@ SCRIPTNAME - DOES_SOMETHING
 
 =head1 SYNOPSIS
 
-SCRIPT_NAME [options]
+SCRIPTNAME [options]
 
  Options:
-  --debug, -d debugging level (Default 0)
-  --help, -h display this help
-  --man, -m display manual
+   --debug, -d debugging level (Default 0)
+   --help, -h display this help
+   --man, -m display manual
 
 =head1 OPTIONS
 
@@ -53,12 +53,12 @@ SCRIPTNAME
 use vars qw($DEBUG);
 
 my %options = (debug           => 0,
-	       help            => 0,
-	       man             => 0,
-	       );
+               help            => 0,
+               man             => 0,
+              );
 
 GetOptions(\%options,
-	   'debug|d+','help|h|?','man|m');
+           'debug|d+','help|h|?','man|m');
 
 pod2usage() if $options{help};
 pod2usage({verbose=>2}) if $options{man};
@@ -67,7 +67,7 @@ $DEBUG = $options{debug};
 
 my @USAGE_ERRORS;
 if (1) {
-     push @USAGE_ERRORS,"You must pass something";
+    push @USAGE_ERRORS,"You must pass something";
 }
 
 pod2usage(join("\n",@USAGE_ERRORS)) if @USAGE_ERRORS;