view release on metacpan or  search on metacpan

lib/oEdtk/Config.pm  view on Meta::CPAN

			my $ini2 = (tied %allcfg)->val($uchost, 'iniEdtk');
			last if not defined $ini2 or $ini2 eq $ini or $ini2 eq 'local';
			$ini = $ini2;
		}


	# Get the DEFAULT and ENVDESC sections by default, override with the optional
	# sections that we were given, and finally with the hostname section.
	my %cfg = ();
	$cfg{'EDTK_HOST'} = $uchost;
	$cfg{'USERNAME'}  = getlogin || getpwuid($<) || "undef";
	foreach ('DEFAULT', 'ENVDESC', @$sections, $uchost) {
		if (exists $allcfg{$_}) {
			%cfg = ( %cfg, %{$allcfg{$_}} );
		}
	}

	# Get current application name
	if (defined($app)) {
		$cfg{'EDTK_PRGNAME'} = $app;
	} else {