Ignore .git files, fixed GPL version

Licenses/GPLV2.pm

@@ -1,31 +0,0 @@
-package Licenses::GPLV2;
-
-sub new {
-  return bless {
-    'name' => 'gpl_v3',
-    'pretty_name' => 'GPL v3',
-    'header' => qq {
-###DESCRIPTION###
-Copyright (C) ###DATE### ###NAME###
-
-This program is free software: you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation, either version 3 of the License, or
-(at your option) any later version.
-
-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with this program.  If not, see <http://www.gnu.org/licenses/>.
-    }
-  }, shift;
-}
-
-sub get_license_stub {
-  my ($self) = @_;
-}
-
-1;

licensor.pl

@@ -55,6 +55,8 @@ print "Stub:\n-----\n"
       . $app->{'licenses'}->{$app->{'options'}->{'license'}}->{'header_stub'}
       . "\n-----\n";
 
+# print Data::Dumper->Dump([$app]);
+
 find (sub {
     find_files($app, ${File::Find::name}, $_)
   }, $app->{'options'}->{'directory'});
@@ -68,6 +70,8 @@ sub find_files {
   #
   # Opportunity to filter any file types befrore any processing starts
   #
+  return if ($file =~ /\.git\b/);
+
   handle_files ($app, $file, $name);
 }
 
@@ -109,6 +113,7 @@ sub setup_filetype_comment_mapping {
 
   $app->{'filetype_comments'} = {
     '.pl'         => '#',
+    '.pm'         => '#',
     '.rb'         => '#',
     '.erb'        => ['<!--', '-->'],
     '.html'       => ['<!--', '-->'],
@@ -118,6 +123,9 @@ sub setup_filetype_comment_mapping {
     '.scss'       => '//',
     '.v'          => '//',
     '.sv'         => '//',
-    '.vr'       => '//'
+    '.vr'         => '//',
+    '.gitignore'  => '#',
+    '.gitkeep'    => '#'
+
   };
 }