Post in haste and spot the error straight away ... use Wx; if(($Wx::VERSION =~ /^(0\.95|0\.96)$/) && (not exists($ENV{PAR_0}))) { *Wx::load_dll = sub { return if $^O =~ /^darwin/i; goto &$Wx::load_fun; }; }
On 04/05/2010 12:06, Mark Dootson wrote:
use Wx; if(($Wx::VERSION =~ /^(0\.95|0\.96)$/) && (not exists($ENV{PAR_0}))) { *Wx::load_dll = sub { return if $^O =~ /^darwin/i; goto &$load_fun; }; }