From 4576199658a89e20ea2fe24b7868c9a6caa8482e Mon Sep 17 00:00:00 2001 From: milkbone57 Date: Tue, 22 Jul 2003 14:00:31 +0000 Subject: [PATCH] "" --- plugins/Tk-GUI/Tk/Browser.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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 {