--- deliantra/Deliantra-Client/DC.pm 2008/09/02 16:27:34 1.188 +++ deliantra/Deliantra-Client/DC.pm 2008/09/02 16:50:06 1.189 @@ -147,7 +147,7 @@ package DC; -our $RC_THEME = "theme-metal"; +our @RC_THEME = ("theme-plain", "."); our $RC_BASE; for (grep !ref, @INC) { @@ -158,11 +158,10 @@ sub find_rcfile($) { my $path; - $path = "$RC_BASE/$RC_THEME/$_[0]"; - return $path if -r $path; - - $path = "$RC_BASE/$_[0]"; - return $path if -r $path; + for (@RC_THEME) { + $path = "$RC_BASE/$_/$_[0]"; + return $path if -r $path; + } die "FATAL: can't find required file \"$_[0]\" in \"$RC_BASE\"\n"; }