diff options
-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; 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,9 +10,9 @@ use Nagios::Config; sub new { my ($class, $com, $agent) = @_; - 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'); } 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'; sub new { my $class = shift; - my $self = bless $class->SUPER::new(@_), $class; + my $self = $class->SUPER::new(@_); $self->agent("$class/$VERSION"); return $self; } |