| 
						
						
							
								
							
						
						
					 | 
					 | 
					@ -133,11 +133,11 @@ 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]); | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					
 | 
					 | 
					 | 
					 | 
					
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
						$self->tagBind($tag, '<Enter>', [sub { | 
					 | 
					 | 
					 | 
						$self->tagBind($tag, '<Enter>', [sub { | 
				
			
			
		
	
	
		
		
			
				
					| 
						
							
								
							
						
						
						
					 | 
					 | 
					
  |