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.2 by root, Fri Dec 30 02:44:15 2011 UTC vs.
Revision 1.6 by root, Sat Jan 7 15:24:41 2012 UTC

1#! perl 1#! perl
2 2
3# wrapper to run the urlader-packaged client 3# wrapper to run the urlader-packaged client
4
5our $URLADER = 1;
6 4
7our %NO_WARN = map +($_, undef), 5our %NO_WARN = map +($_, undef),
8 "Log/Agent.pm", # Storable has this idiotic optional dependency 6 "Log/Agent.pm", # Storable has this idiotic optional dependency
9 "Win32/GUI/DIBitmap.pm", # JPEG support for Win32::SplashScreen 7 "Win32/GUI/DIBitmap.pm", # JPEG support for Win32::SplashScreen
10 "ActivePerl/Config.pm", # Config tries to use this 8 "ActivePerl/Config.pm", # Config tries to use this
… …
17@INC = ( 15@INC = (
18 "pm", 16 "pm",
19 ".", # AutoLoader requires this in newer versions. yup. yup. yup :( 17 ".", # AutoLoader requires this in newer versions. yup. yup. yup :(
20 sub { 18 sub {
21 return if exists $NO_WARN{$_[1]}; 19 return if exists $NO_WARN{$_[1]};
20 require Carp;
22 warn "$_[1]: file not found, packaging error?\n"; 21 Carp::cluck ("$_[1]: file not found, packaging error?\n");
22 eval {
23 ::crash ("MISSING PACKAGE: $_[1]", 1);
24 };
23 () 25 ()
24 }, 26 },
25); 27);
26 28
27############################################################################# 29#############################################################################
… …
39 push @STARTUP_DONE, sub { 41 push @STARTUP_DONE, sub {
40 Win32::GUI::SplashScreen::Done (1); 42 Win32::GUI::SplashScreen::Done (1);
41 }; 43 };
42} 44}
43 45
46require Urlader;
47
48delete $ENV{PERL_ANYEVENT_STRICT} ; delete $ENV{AE_STRICT};
49delete $ENV{PERL_ANYEVENT_DEBUG_WRAP}; delete $ENV{AE_DEBUG_WRAP};
50
51$ENV{TIMIDITY_CFG} = "timidity.cfg";
44$ENV{PANGO_RC_FILE} = "pango.rc"; 52$ENV{PANGO_RC_FILE} = "pango.rc";
45 53
46require "bin/deliantra"; 54require "bin/deliantra";
55
56exit 0;
57

Diff Legend

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