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 @@ -12,3 +12,3 @@ sub new { - my $self = bless $class->SUPER::new($com, $agent, + my $self = $class->SUPER::new($com, $agent, 'D|driver=s' => 'driver', 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 @@ -12,5 +12,5 @@ sub new { - bless $class->SUPER::new($com, $agent, - 'progname|p=s@' => 'prognames', - 'config|c=s' => 'nagiosconf'); + $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 @@ -12,3 +12,3 @@ sub new { my $class = shift; - my $self = bless $class->SUPER::new(@_), $class; + my $self = $class->SUPER::new(@_); $self->agent("$class/$VERSION"); |