Wx_load_dll

[Mark Dootson]

Hi,

I'd like to suggest the attached patch.
It should not functionally make any difference - but allows you to do 
evil via Wx::Mini - which was original intention I think.

I have working PPMs for Linux in the PPM repository ( Perl 5.10.1 ) 
which have glibc 2.5 and gtk 2.10 as the main dependencies.

Minimum distributions tested ok are RHEL5, OpenSuse 10.3, Debian Lenny.
Compiled everything as builtins where possible - so should be OK on 
anything recent. Can confirm RHEL4 fails ( only gtk 2.6  )

The only reason for doing these is PPMs are a fair choice on Linux if 
you want to distribute packaged apps. With patch I can avoid the need
to worry about LD_nnnnn paths and just load the shared libs directly, 
which works nicely both packaged or not.



regards

Mark
--- Wx.pm       Mon Jan 25 09:29:05 2010
+++ Wx.pm       Mon Jan 25 09:27:26 2010
@@ -114,12 +114,10 @@
 sub set_end_function { $unload_fun = shift }
 
 sub load_dll {
-  return if $^O ne 'MSWin32';
   goto &$load_fun;
 }
 
 sub unload_dll {
-  return if $^O ne 'MSWin32';
   goto &$unload_fun;
 }
 
@@ -128,6 +126,7 @@
 sub _unload_dll { }
 
 sub _load_dll {
+  return if $^O ne 'MSWin32';
   local $ENV{PATH} = $wx_path . ';' . $ENV{PATH} if $wx_path;
   return unless exists $Wx::dlls->{$_[0]} && $Wx::dlls->{$_[0]};
   my $dll = $Wx::dlls->{$_[0]};