diff options
| author | Darin Wright | 2008-01-31 14:35:11 +0000 |
|---|---|---|
| committer | Darin Wright | 2008-01-31 14:35:11 +0000 |
| commit | 75eb84e33fa7781df4a77976775fe07429e2ef3d (patch) | |
| tree | 0c0f71b5b297e8711ad9293728e1c7661cdf7a2c /org.eclipse.debug.examples.core | |
| parent | 88be86b9cff01c822c5bcdfb4114142d6350fca9 (diff) | |
| download | eclipse.platform.debug-75eb84e33fa7781df4a77976775fe07429e2ef3d.tar.gz eclipse.platform.debug-75eb84e33fa7781df4a77976775fe07429e2ef3d.tar.xz eclipse.platform.debug-75eb84e33fa7781df4a77976775fe07429e2ef3d.zip | |
Bug 217211 - PDA example debugger does not run on linux
Diffstat (limited to 'org.eclipse.debug.examples.core')
| -rw-r--r-- | org.eclipse.debug.examples.core/pdavm/pda.pl | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/org.eclipse.debug.examples.core/pdavm/pda.pl b/org.eclipse.debug.examples.core/pdavm/pda.pl index 82829e460..de0866eba 100644 --- a/org.eclipse.debug.examples.core/pdavm/pda.pl +++ b/org.eclipse.debug.examples.core/pdavm/pda.pl @@ -5,7 +5,7 @@ use warnings; use IO::Socket; ##################################################################### -# Copyright (c) 2005 IBM Corporation and others. +# Copyright (c) 2005, 2008 IBM Corporation and others. # All rights reserved. This program and the accompanying materials # are made available under the terms of the Eclipse Public License v1.0 # which accompanies this distribution, and is available at @@ -13,6 +13,7 @@ use IO::Socket; # # Contributors: # Bjorn Freeman-Benson - initial API and implementation +# Pawel Piech - WindRiver Systems - Bug 217211: PDA example debugger does not run on linux ##################################################################### ##################################################################### @@ -652,9 +653,14 @@ sub start_debugger { Reuse => 1, ); $debugsock = $mainsock->accept(); + + # make the socket non-blocking on windows my $set_it = "1"; - my $ioctl_val = 0x80000000 | (4 << 16) | (ord('f') << 8) | 126; - ioctl($debugsock, $ioctl_val, $set_it) or die "couldn't set nonblocking: $^E"; + my $ioctl_val = 0x80000000 | (4 << 16) | (ord('f') << 8) | 126; + ioctl($debugsock, $ioctl_val, $set_it); + + # make the socket non-blocking on linux + $debugsock->blocking(0); my $mainsock2 = new IO::Socket::INET (LocalHost => '127.0.0.1', LocalPort => $debugport2, |