diff options
| -rw-r--r-- | Build.PL | 7 | ||||
| -rwxr-xr-x | bin/icli | 4 | ||||
| -rwxr-xr-x | t/00-compile.t | 4 |
3 files changed, 11 insertions, 4 deletions
@@ -22,7 +22,7 @@ my @command_paths = ( my $build = Module::Build->new( build_requires => { 'Test::More' => 0, - 'Test::Compile' => 0, + 'Test::Compile' => "1.3.0", 'Test::Pod' => 0, 'Test::Command' => 0, }, @@ -56,6 +56,11 @@ my $build = Module::Build->new( test_types => { author => '.at', }, + meta_merge => { + resources => { + repository => 'https://github.com/derf/icli' + } + }, ); print <<'EOF'; @@ -1195,7 +1195,7 @@ sub display_overview { } sub dispatch_command { - my $str = join( ';', @_ ); + my $str = join( ';', @_ ) . "\n"; open( my $cmd_fh, '>', $rw_file ) or die( "Failed to open icinga command file ($rw_file): $!\n" @@ -1291,7 +1291,7 @@ sub action_on_service { time() ); say "Scheduled forced check of '$service' on '$host'"; } - when ('Acknowledge') { + when ('acknowledge') { dispatch_command( 'ACKNOWLEDGE_SVC_PROBLEM', $host, $service, 2, 1, 1, 'cli', $action_args[0] ); say "Acknowledged $host/$service: $action_args[0]"; diff --git a/t/00-compile.t b/t/00-compile.t index 31e3f3e..e430701 100755 --- a/t/00-compile.t +++ b/t/00-compile.t @@ -5,4 +5,6 @@ use 5.010; use Test::More; use Test::Compile; -all_pl_files_ok('bin/icli'); +my $test = Test::Compile->new(); +$test->all_files_ok('bin/icli'); +$test->done_testing(); |