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 | 2 | ||||
-rw-r--r-- | lib/LWP/Ping903.pm | 2 |
3 files changed, 3 insertions, 3 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; sub new { my ($class, $com, $agent) = @_; - my $self = bless $class->SUPER::new($com, $agent, + my $self = $class->SUPER::new($com, $agent, 'D|driver=s' => 'driver', 'd|database=s' => sub { 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,7 +10,7 @@ use Nagios::Config; sub new { my ($class, $com, $agent) = @_; - bless $class->SUPER::new($com, $agent, + $class->SUPER::new($com, $agent, 'progname|p=s@' => 'prognames', 'config|c=s' => 'nagiosconf'); } 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'; sub new { my $class = shift; - my $self = bless $class->SUPER::new(@_), $class; + my $self = $class->SUPER::new(@_); $self->agent("$class/$VERSION"); return $self; } |