[E-p-i-c-commits] org.epic.debug/src/org/epic/debug PerlDB.java,1.27,1.28

[Stephan R. <ste...@us...>]

Update of /cvsroot/e-p-i-c/org.epic.debug/src/org/epic/debug
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16681/src/org/epic/debug

Modified Files:
	PerlDB.java 
Log Message:


Index: PerlDB.java
===================================================================
RCS file: /cvsroot/e-p-i-c/org.epic.debug/src/org/epic/debug/PerlDB.java,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -d -r1.27 -r1.28
--- PerlDB.java	11 Jul 2004 06:36:22 -0000	1.27
+++ PerlDB.java	17 Jul 2004 07:00:45 -0000	1.28
@@ -66,8 +66,7 @@
 	private Object mCurrentCommandDest;
 
 	private final static String EMPTY_STRING = "";
-	//private static final String mDBinitPerl = "{$| = 1; my $old = select
-	// STDERR; $|=1;select $old;}\n";
+	private static final String mDBinitFlush = "{$| = 1; my $old = select STDERR; $|=1;select $old;}\n";
 	private static final String mDBinitPerl_5_8 = "o frame=2";
 	private static final String mDBinitPerl_5_6 = "O frame=2";
 	private final static String mPadwalkerError = "PadWalker module not found - please install";
@@ -277,6 +276,8 @@
 				command = mDBinitPerl_5_6;
 			}
 			startCommand(mCommandExecuteCode, command, false, this);
+			startCommand(mCommandExecuteCode, mDBinitFlush, false, this);
+			
 			//		/****************test only*****/
 			//		getLaunch().setAttribute(PerlLaunchConfigurationConstants.ATTR_DEBUG_IO_PORT,"4041");
 			//		getLaunch().setAttribute(PerlLaunchConfigurationConstants.ATTR_DEBUG_ERROR_PORT,"4042");