[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/DC.pm

Comparing deliantra/Deliantra-Client/DC.pm (file contents):
Revision 1.182 by root, Thu May 22 20:45:20 2008 UTC vs.
Revision 1.188 by root, Tue Sep 2 16:27:34 2008 UTC

 =over 4
 =cut
+package Deliantra::Client; # work around CPAN breakage
+package App::Deliantra; # try to reserve namespace
 package DC;
 use Carp ();
+our $VERSION;
 BEGIN {
-   $VERSION = '0.9972';
+   $VERSION = '0.9975';
    use XSLoader;
    XSLoader::load "Deliantra::Client", $VERSION;
 }
 use utf8;
+use strict qw(vars subs);
 use AnyEvent ();
 use Pod::POM ();
 use File::Path ();
 use Storable (); # finally
    print $msg, "\n";
 }
 package DC;
+our $RC_THEME = "theme-metal";
+our $RC_BASE;
+for (grep !ref, @INC) {
+   $RC_BASE = "$_/Deliantra/Client/private/resources";
+   last if -d $RC_BASE;
+}
 sub find_rcfile($) {
    my $path;
-   for (grep !ref, @INC) {
+   $path = "$RC_BASE/$RC_THEME/$_[0]";
-      $path = "$_/Deliantra/Client/private/resources/$_[0]";
-      return $path if -r $path;
+   return $path if -r $path;
-   }
+   $path = "$RC_BASE/$_[0]";
+   return $path if -r $path;
-   die "FATAL: can't find required file $_[0]\n";
+   die "FATAL: can't find required file \"$_[0]\" in \"$RC_BASE\"\n";
 }
 sub read_cfg {
    my ($file) = @_;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines