don't try to execute init files

This commit is contained in:
David Rose 2002-10-17 15:50:42 +00:00
parent 034291f780
commit 4b4bf819a6
1 changed files with 1 additions and 5 deletions

View File

@ -239,11 +239,7 @@ sub CTAttachCompute {
local( $loop ) ;
local( $looptmp ) ;
local( *INITFILE ) ;
if ( -x $init ) {
open( INITFILE, "$init $_[0] $_[1] $root |" ) ;
} else {
open( INITFILE, "< $init" ) ;
}
open( INITFILE, "< $init" ) ;
while ( <INITFILE> ) {
s/\n$// ;
@linesplit = split( /\#/ ) ;