diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2020-01-18 11:08:33 +0200 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2020-01-18 11:13:09 +0200 |
commit | f6db3dba6267aa6909484d2b0433bed03ee6fa76 (patch) | |
tree | 02b5bf2fbe50486daff1feacec283a469273762b /lib/Apache/Config/Preproc | |
parent | 55c8823f50ef9da3c125bceb9508c8a9291acdc2 (diff) | |
download | acpp-f6db3dba6267aa6909484d2b0433bed03ee6fa76.tar.gz acpp-f6db3dba6267aa6909484d2b0433bed03ee6fa76.tar.bz2 |
Complete the locus testsuite
* lib/Apache/Config/Preproc/locus.pm (clone): Bless the returned
object.
* t/06locus04.t: New test.
* t/06locus05.t: New test.
* t/06locus06.t: New test.
Diffstat (limited to 'lib/Apache/Config/Preproc')
-rw-r--r-- | lib/Apache/Config/Preproc/locus.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Apache/Config/Preproc/locus.pm b/lib/Apache/Config/Preproc/locus.pm index 9aa3989..52a51ae 100644 --- a/lib/Apache/Config/Preproc/locus.pm +++ b/lib/Apache/Config/Preproc/locus.pm @@ -121,7 +121,7 @@ sub locus { shift->{_locus} } sub clone { my ($self) = @_; - my $clone = $self->SUPER::clone; + my $clone = bless $self->SUPER::clone; $clone->{_locus} = $clone->{_locus}->clone(); return $clone; } |