1 files changed, 4 insertions, 11 deletions
diff --git a/script/mga_mirrors_cgi.pl b/script/mga_mirrors_cgi.pl
index c33a0e6..d5ef4cc 100755
--- a/script/mga_mirrors_cgi.pl
+++ b/script/mga_mirrors_cgi.pl
@@ -1,14 +1,7 @@
 #!/usr/bin/env perl
 
-BEGIN { $ENV{CATALYST_ENGINE} ||= 'CGI' }
-
-use strict;
-use warnings;
-use FindBin;
-use lib "$FindBin::Bin/../lib";
-use MGA::Mirrors;
-
-MGA::Mirrors->run;
+use Catalyst::ScriptRunner;
+Catalyst::ScriptRunner->run('MGA::Mirrors', 'CGI');
 
 1;
 
@@ -22,7 +15,7 @@ See L<Catalyst::Manual>
 
 =head1 DESCRIPTION
 
-Run a Catalyst application as a cgi script.
+Run a Catalyst application as a CGI script.
 
 =head1 AUTHORS
 
@@ -30,8 +23,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
+