milkbone57 22 years ago
parent
commit
4576199658
  1. 6
      plugins/Tk-GUI/Tk/Browser.pm

6
plugins/Tk-GUI/Tk/Browser.pm

@ -133,10 +133,10 @@ sub a_begin
{ {
eval 'use Win32::Process; use Win32; ' . eval 'use Win32::Process; use Win32; ' .
'my ($obj, $cmd);' . '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 '. 'Win32::Process::Create($obj, "$cmd", "$cmd $_[1]", 0, 32, abs_path) or '.
'die Win32::FormatMessage( Win32::GetLastError() );' 'die "eerr" . Win32::FormatMessage( Win32::GetLastError() );';
or die "$@ $!"; warn "$@ $!" if $@;
} }
}, $href]); }, $href]);

Loading…
Cancel
Save