diff --git a/plugins/Tk-GUI/Tk/Browser.pm b/plugins/Tk-GUI/Tk/Browser.pm index bd3d490..8a4305d 100644 --- a/plugins/Tk-GUI/Tk/Browser.pm +++ b/plugins/Tk-GUI/Tk/Browser.pm @@ -133,11 +133,11 @@ sub a_begin { eval 'use Win32::Process; use Win32; ' . 'my ($obj, $cmd);' . - '$cmd = ' . "'" . 'C:\Program Files\Internet Explorer\iexplore.exe' . "';" . + '$cmd = ' . "'" . 'C:\Progra~1\Intern~1\iexplore.exe' . "';" . 'Win32::Process::Create($obj, "$cmd", "$cmd $_[1]", 0, 32, abs_path) or '. - 'die Win32::FormatMessage( Win32::GetLastError() );' - or die "$@ $!"; - } + 'die "eerr" . Win32::FormatMessage( Win32::GetLastError() );'; + warn "$@ $!" if $@; + } }, $href]); $self->tagBind($tag, '', [sub {