Commit all of the local::lib scripts in base form

[catagits/Gitalist.git] / script / gitalist_cgi.pl

diff --git a/script/gitalist_cgi.pl b/script/gitalist_cgi.pl
index 791134f..4afe54e 100755 (executable)
--- a/script/gitalist_cgi.pl
+++ b/script/gitalist_cgi.pl
@@ -1,14 +1,10 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 
-BEGIN { $ENV{CATALYST_ENGINE} ||= 'CGI' }
-
-use strict;
-use warnings;
 use FindBin;
-use lib "$FindBin::Bin/../lib";
-use Gitalist;
+BEGIN { do "$FindBin::Bin/env" or die $@ }
 
-Gitalist->run;
+use Catalyst::ScriptRunner;
+Catalyst::ScriptRunner->run('Gitalist', 'CGI');
 
 1;
 
@@ -30,8 +26,8 @@ Catalyst Contributors, see Catalyst.pm
 
 =head1 COPYRIGHT
 
-
 This library is free software. You can redistribute it and/or modify
 it under the same terms as Perl itself.
 
 =cut
+