--- deliantra/Deliantra-Client/util/run 2011/12/29 06:03:08 1.1 +++ deliantra/Deliantra-Client/util/run 2012/01/07 15:24:41 1.6 @@ -2,14 +2,26 @@ # wrapper to run the urlader-packaged client -our $URLADER = 1; +our %NO_WARN = map +($_, undef), + "Log/Agent.pm", # Storable has this idiotic optional dependency + "Win32/GUI/DIBitmap.pm", # JPEG support for Win32::SplashScreen + "ActivePerl/Config.pm", # Config tries to use this + "AnyEvent/Strict.pm", # used for debugging + "Net/DNS/SEC.pm", # Net:DNS optional + "Net/DNS/RR/SIG.pm", # Net:DNS optional + "IO/Socket/INET6.pm", # Net:DNS optional +; @INC = ( "pm", ".", # AutoLoader requires this in newer versions. yup. yup. yup :( sub { - return if $_[1] eq "Log/Agent.pm"; # Storable has this idiotic optional dependency - warn "$_[1]: file not found, packaging error?\n"; + return if exists $NO_WARN{$_[1]}; + require Carp; + Carp::cluck ("$_[1]: file not found, packaging error?\n"); + eval { + ::crash ("MISSING PACKAGE: $_[1]", 1); + }; () }, ); @@ -31,6 +43,15 @@ }; } +require Urlader; + +delete $ENV{PERL_ANYEVENT_STRICT} ; delete $ENV{AE_STRICT}; +delete $ENV{PERL_ANYEVENT_DEBUG_WRAP}; delete $ENV{AE_DEBUG_WRAP}; + +$ENV{TIMIDITY_CFG} = "timidity.cfg"; $ENV{PANGO_RC_FILE} = "pango.rc"; require "bin/deliantra"; + +exit 0; +