dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Xavier Guimard 2008-11-19 11:25:35 +00:00
parent f68de89899
commit 45670f3d21
2 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
build/lemonldap-ng/debian/liblemonldap-ng-conf-perl.install
View File

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

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

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