aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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;
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;
}

Return to:

Send suggestions and report system problems to the System administrator.