ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/util/run
(Generate patch)

Comparing deliantra/Deliantra-Client/util/run (file contents):
Revision 1.1 by root, Thu Dec 29 06:03:08 2011 UTC vs.
Revision 1.4 by root, Sat Dec 31 04:23:44 2011 UTC

… …
2 2
3# wrapper to run the urlader-packaged client 3# wrapper to run the urlader-packaged client
4 4
5our $URLADER = 1; 5our $URLADER = 1;
6 6
7our %NO_WARN = map +($_, undef),
8 "Log/Agent.pm", # Storable has this idiotic optional dependency
9 "Win32/GUI/DIBitmap.pm", # JPEG support for Win32::SplashScreen
10 "ActivePerl/Config.pm", # Config tries to use this
11 "AnyEvent/Strict.pm", # used for debugging
12 "Net/DNS/SEC.pm", # Net:DNS optional
13 "Net/DNS/RR/SIG.pm", # Net:DNS optional
14 "IO/Socket/INET6.pm", # Net:DNS optional
15;
16
7@INC = ( 17@INC = (
8 "pm", 18 "pm",
9 ".", # AutoLoader requires this in newer versions. yup. yup. yup :( 19 ".", # AutoLoader requires this in newer versions. yup. yup. yup :(
10 sub { 20 sub {
11 return if $_[1] eq "Log/Agent.pm"; # Storable has this idiotic optional dependency 21 return if exists $NO_WARN{$_[1]};
12 warn "$_[1]: file not found, packaging error?\n"; 22 warn "$_[1]: file not found, packaging error?\n";
13 () 23 ()
14 }, 24 },
15); 25);
16 26
… …
29 push @STARTUP_DONE, sub { 39 push @STARTUP_DONE, sub {
30 Win32::GUI::SplashScreen::Done (1); 40 Win32::GUI::SplashScreen::Done (1);
31 }; 41 };
32} 42}
33 43
44delete $ENV{PERL_ANYEVENT_STRICT} ; delete $ENV{AE_STRICT};
45delete $ENV{PERL_ANYEVENT_DEBUG_WRAP}; delete $ENV{AE_DEBUG_WRAP};
46
47$ENV{TIMIDITY_CFG} = "timidity.cfg";
34$ENV{PANGO_RC_FILE} = "pango.rc"; 48$ENV{PANGO_RC_FILE} = "pango.rc";
35 49
36require "bin/deliantra"; 50require "bin/deliantra";

Diff Legend

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