LEMONLDAP::NG : bless was not safe in Conf.pm

build/lemonldap-ng/debian/liblemonldap-ng-conf-perl.install

@@ -1,7 +1,5 @@
-debian/tmp/usr/share/perl5/Lemonldap/NG/Common/Apache/*
-debian/tmp/usr/share/perl5/Lemonldap/NG/Common/Conf*
-debian/tmp/usr/share/man/man3/Lemonldap::NG::Common::Apache::Session::SOAP.3pm
-debian/tmp/usr/share/man/man3/Lemonldap::NG::Common::Conf*
+debian/tmp/usr/share/perl5/Lemonldap/NG/Common*
+debian/tmp/usr/share/man/man3/Lemonldap::NG::Common*
 debian/tmp/usr/share/man/man1/lmConfig_File2MySQL.1p
 debian/tmp/usr/bin/lmConfig* /usr/share/lemonldap-ng/bin
 debian/configStorage.pm /usr/share/lemonldap-ng

modules/lemonldap-ng-common/lib/Lemonldap/NG/Common/Conf.pm

@@ -11,14 +11,14 @@ our @ISA;
 sub new {
     my $class = shift;
     my $args;
+    $args ||= {};
+    my $self = bless {}, $class;
     if ( ref( $_[0] ) ) {
-        $args = $_[0];
+        %$self = %{$_[0]};
     }
     else {
-        %$args = @_;
+        %$self = @_;
     }
-    $args ||= {};
-    my $self = bless $args, $class;
     unless ( $self->{mdone} ) {
         unless ( $self->{type} ) {
             print STDERR "configStorage: type is not defined\n";