Mercurial > pub > Impl
diff Lib/IMPL/Config.pm @ 179:b3d91ff7aea9
minor changes
author | sourcer |
---|---|
date | Tue, 20 Dec 2011 23:00:30 +0300 |
parents | b88b7fe60aa3 |
children | d1676be8afcc |
line wrap: on
line diff
--- a/Lib/IMPL/Config.pm Wed Oct 12 00:06:07 2011 +0300 +++ b/Lib/IMPL/Config.pm Tue Dec 20 23:00:30 2011 +0300 @@ -92,6 +92,10 @@ sub spawn { my ($this,$file) = @_; + unless ($file) { + ($file = ref $this || $this) =~ s/:+/./g; + $file .= ".xml"; + } return $this->LoadXMLFile( File::Spec->catfile($ConfigBase,$file) ); }