diff options
author | Sergey Poznyakoff <gray@gnu.org> | 2020-04-01 16:16:46 +0300 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org> | 2020-04-01 16:16:46 +0300 |
commit | 0b57289838dd536d6f98696e16a06c3663535b8e (patch) | |
tree | fb19a743dfeeb5f12db4fd6e37a6dc1bc53baffb /lib | |
parent | bb9f4b1be695f5543ddf30b30ad446b5b7d214c5 (diff) | |
download | mangemanche-0b57289838dd536d6f98696e16a06c3663535b8e.tar.gz mangemanche-0b57289838dd536d6f98696e16a06c3663535b8e.tar.bz2 |
Minor change
Diffstat (limited to 'lib')
-rw-r--r-- | lib/App/Mangemanche/Command/dbload.pm | 2 | ||||
-rw-r--r-- | lib/App/Mangemanche/Command/nagios.pm | 6 | ||||
-rw-r--r-- | lib/LWP/Ping903.pm | 2 |
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; | |||
10 | sub new { | 10 | sub 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; | |||
10 | sub new { | 10 | sub 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 | ||
18 | sub run { | 18 | sub 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 | ||
11 | sub new { | 11 | sub 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 | } |