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) );
 }