Skip to main content
aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDarin Wright2008-01-31 14:35:11 +0000
committerDarin Wright2008-01-31 14:35:11 +0000
commit75eb84e33fa7781df4a77976775fe07429e2ef3d (patch)
tree0c0f71b5b297e8711ad9293728e1c7661cdf7a2c /org.eclipse.debug.examples.core
parent88be86b9cff01c822c5bcdfb4114142d6350fca9 (diff)
downloadeclipse.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.pl12
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,

Back to the top