… | |
… | |
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 $URLADER = 1; |
6 | |
6 | |
|
|
7 | our %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 | |