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

environments/ppa-mbqj77/deployments/1
Xavier Guimard 17 years ago
parent f68de89899
commit 45670f3d21
  1. 6
      build/lemonldap-ng/debian/liblemonldap-ng-conf-perl.install
  2. 8
      modules/lemonldap-ng-common/lib/Lemonldap/NG/Common/Conf.pm

@ -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

@ -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";

Loading…
Cancel
Save