diff options
author | Dan Fandrich <dan@coneharvesters.com> | 2024-01-04 00:03:51 -0800 |
---|---|---|
committer | Dan Fandrich <dan@coneharvesters.com> | 2024-01-04 00:03:51 -0800 |
commit | 8a5a3d2004cbcbbebe0aa435cc4ecbda8ea61f98 (patch) | |
tree | 31ca9f9c9d939b1ed062c71b64095a10b2c4a11c /script/mga_mirrors_test.pl | |
parent | 1090823edb5ecbe7a7fc4ffba7dddeeb2a3dea71 (diff) | |
download | mgamirrors-8a5a3d2004cbcbbebe0aa435cc4ecbda8ea61f98.tar mgamirrors-8a5a3d2004cbcbbebe0aa435cc4ecbda8ea61f98.tar.gz mgamirrors-8a5a3d2004cbcbbebe0aa435cc4ecbda8ea61f98.tar.bz2 mgamirrors-8a5a3d2004cbcbbebe0aa435cc4ecbda8ea61f98.tar.xz mgamirrors-8a5a3d2004cbcbbebe0aa435cc4ecbda8ea61f98.zip |
Regenerated the scripts with a modern Catalyst
This was done with "catalyst.pl -force -scripts MGA::Mirrors" using
perl-Catalyst-Runtime-5.901.280-1.mga8 The old scripts complained about
outdated usage.
Diffstat (limited to 'script/mga_mirrors_test.pl')
-rwxr-xr-x | script/mga_mirrors_test.pl | 19 |
1 files changed, 3 insertions, 16 deletions
diff --git a/script/mga_mirrors_test.pl b/script/mga_mirrors_test.pl index d7e52d8..7229b7d 100755 --- a/script/mga_mirrors_test.pl +++ b/script/mga_mirrors_test.pl @@ -1,20 +1,7 @@ #!/usr/bin/env perl -use strict; -use warnings; -use Getopt::Long; -use Pod::Usage; -use FindBin; -use lib "$FindBin::Bin/../lib"; -use Catalyst::Test 'MGA::Mirrors'; - -my $help = 0; - -GetOptions( 'help|?' => \$help ); - -pod2usage(1) if ( $help || !$ARGV[0] ); - -print request($ARGV[0])->content . "\n"; +use Catalyst::ScriptRunner; +Catalyst::ScriptRunner->run('MGA::Mirrors', 'Test'); 1; @@ -27,7 +14,7 @@ mga_mirrors_test.pl - Catalyst Test mga_mirrors_test.pl [options] uri Options: - -help display this help and exits + --help display this help and exits Examples: mga_mirrors_test.pl http://localhost/some_action |