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