aboutsummaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org>2020-04-01 16:16:46 +0300
committerSergey Poznyakoff <gray@gnu.org>2020-04-01 16:16:46 +0300
commit0b57289838dd536d6f98696e16a06c3663535b8e (patch)
treefb19a743dfeeb5f12db4fd6e37a6dc1bc53baffb /lib
parentbb9f4b1be695f5543ddf30b30ad446b5b7d214c5 (diff)
downloadmangemanche-0b57289838dd536d6f98696e16a06c3663535b8e.tar.gz
mangemanche-0b57289838dd536d6f98696e16a06c3663535b8e.tar.bz2
Minor change
Diffstat (limited to 'lib')
-rw-r--r--lib/App/Mangemanche/Command/dbload.pm2
-rw-r--r--lib/App/Mangemanche/Command/nagios.pm6
-rw-r--r--lib/LWP/Ping903.pm2
3 files changed, 5 insertions, 5 deletions
diff --git a/lib/App/Mangemanche/Command/dbload.pm b/lib/App/Mangemanche/Command/dbload.pm
index 06219a8..78d2501 100644
--- a/lib/App/Mangemanche/Command/dbload.pm
+++ b/lib/App/Mangemanche/Command/dbload.pm
@@ -10,7 +10,7 @@ use File::Spec;
10sub new { 10sub new {
11 my ($class, $com, $agent) = @_; 11 my ($class, $com, $agent) = @_;
12 12
13 my $self = bless $class->SUPER::new($com, $agent, 13 my $self = $class->SUPER::new($com, $agent,
14 'D|driver=s' => 'driver', 14 'D|driver=s' => 'driver',
15 'd|database=s' => sub { 15 'd|database=s' => sub {
16 my $self = shift; 16 my $self = shift;
diff --git a/lib/App/Mangemanche/Command/nagios.pm b/lib/App/Mangemanche/Command/nagios.pm
index 690f33a..016ba6d 100644
--- a/lib/App/Mangemanche/Command/nagios.pm
+++ b/lib/App/Mangemanche/Command/nagios.pm
@@ -10,9 +10,9 @@ use Nagios::Config;
10sub new { 10sub new {
11 my ($class, $com, $agent) = @_; 11 my ($class, $com, $agent) = @_;
12 12
13 bless $class->SUPER::new($com, $agent, 13 $class->SUPER::new($com, $agent,
14 'progname|p=s@' => 'prognames', 14 'progname|p=s@' => 'prognames',
15 'config|c=s' => 'nagiosconf'); 15 'config|c=s' => 'nagiosconf');
16} 16}
17 17
18sub run { 18sub run {
diff --git a/lib/LWP/Ping903.pm b/lib/LWP/Ping903.pm
index 8fc398e..5421db0 100644
--- a/lib/LWP/Ping903.pm
+++ b/lib/LWP/Ping903.pm
@@ -10,7 +10,7 @@ my $VERSION = '0.3';
10 10
11sub new { 11sub new {
12 my $class = shift; 12 my $class = shift;
13 my $self = bless $class->SUPER::new(@_), $class; 13 my $self = $class->SUPER::new(@_);
14 $self->agent("$class/$VERSION"); 14 $self->agent("$class/$VERSION");
15 return $self; 15 return $self;
16} 16}

Return to:

Send suggestions and report system problems to the System administrator.