diff options
-rw-r--r-- | lib/Apache/Config/Preproc/ifdefine.pm | 2 | ||||
-rw-r--r-- | lib/Apache/Config/Preproc/ifmodule.pm | 2 | ||||
-rw-r--r-- | lib/Apache/Config/Preproc/include.pm | 2 | ||||
-rw-r--r-- | lib/Apache/Config/Preproc/locus.pm | 2 | ||||
-rw-r--r-- | lib/Apache/Config/Preproc/macro.pm | 2 |
5 files changed, 5 insertions, 5 deletions
diff --git a/lib/Apache/Config/Preproc/ifdefine.pm b/lib/Apache/Config/Preproc/ifdefine.pm index 3ca925b..833097d 100644 --- a/lib/Apache/Config/Preproc/ifdefine.pm +++ b/lib/Apache/Config/Preproc/ifdefine.pm @@ -8,7 +8,7 @@ our $VERSION = '1.03'; sub new { my ($class, $conf) = @_; - my $self = bless $class->SUPER::new($conf), $class; + my $self = $class->SUPER::new($conf); @{$self->{D}}{@_} = (1) x @_; return $self; } diff --git a/lib/Apache/Config/Preproc/ifmodule.pm b/lib/Apache/Config/Preproc/ifmodule.pm index f96f04b..cd98985 100644 --- a/lib/Apache/Config/Preproc/ifmodule.pm +++ b/lib/Apache/Config/Preproc/ifmodule.pm @@ -10,7 +10,7 @@ our $VERSION = '1.03'; sub new { my $class = shift; my $conf = shift; - my $self = bless $class->SUPER::new($conf), $class; + my $self = $class->SUPER::new($conf); local %_ = @_; my $v; if ($v = delete $_{preloaded}) { diff --git a/lib/Apache/Config/Preproc/include.pm b/lib/Apache/Config/Preproc/include.pm index aa818fb..c023b2e 100644 --- a/lib/Apache/Config/Preproc/include.pm +++ b/lib/Apache/Config/Preproc/include.pm @@ -14,7 +14,7 @@ our $VERSION = '1.03'; sub new { my $class = shift; my $conf = shift; - my $self = bless $class->SUPER::new($conf), $class; + my $self = $class->SUPER::new($conf); $self->{context} = []; local %_ = @_; $self->{server_root} = delete $_{server_root}; diff --git a/lib/Apache/Config/Preproc/locus.pm b/lib/Apache/Config/Preproc/locus.pm index 8c22613..3a4122d 100644 --- a/lib/Apache/Config/Preproc/locus.pm +++ b/lib/Apache/Config/Preproc/locus.pm @@ -8,7 +8,7 @@ our $VERSION = '1.03'; sub new { my $class = shift; - my $self = bless $class->SUPER::new(@_), $class; + my $self = $class->SUPER::new(@_); $self->{filename} = $self->conf->filename; $self->{line} = 0; $self->{context} = []; diff --git a/lib/Apache/Config/Preproc/macro.pm b/lib/Apache/Config/Preproc/macro.pm index 43714a8..0efc3d6 100644 --- a/lib/Apache/Config/Preproc/macro.pm +++ b/lib/Apache/Config/Preproc/macro.pm @@ -10,7 +10,7 @@ our $VERSION = '1.03'; sub new { my $class = shift; my $conf = shift; - my $self = bless $class->SUPER::new($conf), $class; + my $self = $class->SUPER::new($conf); $self->{keep} = {}; croak "bad number of arguments: @_" if @_ % 2; local %_ = @_; |